Pesquisa SQL em DLL ???

08/08/2004

0

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

Mmoreira

Responder

Posts

09/08/2004

Beppe

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

:wink:


Responder

Que tal ter acesso a um e-book gratuito que vai te ajudar muito nesse momento decisivo?

Ver ebook

Recomendado pra quem ainda não iniciou o estudos.

Eu quero
Ver ebook

Recomendado para quem está passando por dificuldades nessa etapa inicial

Eu quero

Utilizamos cookies para fornecer uma melhor experiência para nossos usuários, consulte nossa política de privacidade.

Aceitar