ActiveDelphi

[cofercatu]

Bom dia,
será que consigo consumir uma dll progress?
quando chega na linha r := function da erro.
A conexão está Ok!

implementation
function SISMA_BUSCA_TIPO_OS(Param1: Integer): Boolean; stdcall; external 'c:\temp\Minha.dll';

procedure TForm1.BitBtn1Click(Sender: TObject);
var
r : Boolean;
begin
try
ADOConnection1.Close;
ADOConnection1.Open;
r := SISMA_BUSCA_TIPO_OS(1);
ADOConnection1.Close;
except
ShowMessage ('erro');
end;
end;

Obrigado

[natanbh1]

Informe a mensagem de erro para facilitar a ajuda do pessoal.
_________________
''A persistência é o caminho para o êxito.''
Charlie Chaplin

[leo_cj]

Como o Natanael disse, informe o erro para que o pessoal do fórum possa ajudar melhor.

Outra coisa, qual a função desse ADOConnection no seu código?

Pelo que percebi ele não está sendo utilizado em nenhum lugar durante o trecho postado.

[cofercatu]

msg: O Aplicativo não pode ser inicializado corretamente (0xc000007b).

Compila mas não executa.
se comentar a linha:
r := SISMA_BUSCA_TIPO_OS(1);
o erro desaparece.

O AdoConnection é para saber se estou conectando com a base progress.

[leo_cj]

O erro aparenta estar dentro da DLL, você tem os fontes dela?
se sim, da uma olhada no fonte, debuga ele pra verificar se a mesma está funcionando como deveria.

[cofercatu]

Usei o tdump para visualizar a dll, mas o arquivo texto gerado veio vazio.
A dll gerada no progress é .net e no visual studio roda, mas não consigo executa-la no delphi 7.