Array
(
)

Pesquisa SQL em DLL ???

Mmoreira
   - 08 ago 2004

Salve pessoal !!!

Estou tentando ultilizar a seguinte dll:

#Código


library Consulta;

uses
SysUtils,
Classes, DB, IBQuery, IBDatabase;

{$R *.res}

function Abrir( DtBase : TIBDatabase; Transacao : TIBTransaction; Codigo : integer ) : string;
var
IBQry_Cliente : TIBQuery;
begin
IBQry_Cliente := TIBQuery.Create(nil);
IBQry_Cliente.Database := DtBase;
IBQry_Cliente.Transaction := Transacao;
IBQry_Cliente.SQL.Clear;
IBQry_Cliente.SQL.Add( ´Select RAZAO from TB_CLIENTES where COD_CLIENTE = :CODIGO´ );
IBQry_Cliente.ParamByName( ´CODIGO´ ).AsInteger := Codigo;
IBQry_Cliente.Close;
IBQry_Cliente.Open;
Result := IBQry_Cliente.FieldByName( ´RAZAO´ ).AsString;
IBQry_Cliente.Free;
end;

Exports
Abrir;

begin
end.


Estou ultilizado o Firebird
Quando chamo a dll no delphi era até me retorna o nome do cliente esperado mas depois começa a aparecer um monte de erros:

Invalid pointer operation.
..
depois
..
Exception EInvalidPointer in module multESTOQUE.exe at 000027C0. Invalid pointer operation.
..
Dai meu programa se fecha.

Alguem pode me dizer onde estou errando no código?

Desde já agradeço pela atenção.


Beppe
   - 09 ago 2004

Procure por ShareMem com a ferramenta Pesquisar do fórum, já há alguns tópicos sobre o assunto.

:wink: