Pesquisa SQL em DLL ???
08/08/2004
0
Salve pessoal !!!
Estou tentando ultilizar a seguinte dll:
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.
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
Curtir tópico
+ 0
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:
:wink:
Responder
Clique aqui para fazer login e interagir na Comunidade :)