Watch, Follow, &
Connect with Us

For forums, blogs and more please visit our
Developer Tools Community.

ID: 15288, Handle de IBDatabase

by Agostinho Sieczkowski Email:

Passagem de handle do database IB do projeto principal para uma dll
Download Details
FTP  download also available 0 bytes
CDN Login Required to Download. (You will be redirected to the login page if you click on the Download Link)
To download this, you must have registered:
A free membership

For InterBase, Version 6.0  to 6.0 15 downloads
Copyright: No significant restrictions

Size: 0 bytes
Updated on Wed, 11 Oct 2000 14:46:17 GMT
Originally uploaded on Wed, 11 Oct 2000 14:46:17 GMT
Declaração: TBanco = procedure (Ponteiro : HWND; Operacao : String; Pont_Bd : HDBIDB); stdcall;

Bancario : TBanco;

Chamada da dll:
Ponteiro := LoadLibrary ('Prj_Banco.dll');
if Ponteiro = 0
then raise EDllErro.Create ('Não conseguiu chamar rotina BANCO')
else begin
@Bancario := GetProcAddress (Ponteiro, 'TBancario');
Bancario (Application.Handle, 'BANCO', Dm_Icaro.Db_Icaro.Handle);
if not FreeLibrary (Ponteiro)
then GetLastError;

Ao compilar o trecho acima recebo a mensagem na compilação do projeto:

Incompatible types: "Pointer" and "_hDBIObj"

Como passar o handle do banco IB como parâmetro?

   Latest Comments  View All Add New

Move mouse over comment to see the full text

Could not retrieve comments. Please try again later.

Server Response from: ETNACDC04