Pesquisa SQL em DLL ???

08/08/2004

Salve pessoal !!!

Estou tentando ultilizar a seguinte dll:

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.


Mmoreira

Respostas

09/08/2004

Beppe

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

:wink:


Responder Citar