제가 한번 구현해 본건데 한번 비교해 보세요.



library testdll;



uses

bde, db, dbtables, dialogs;



procedure myDLLCall(dbHandle : hdbidb); stdcall;

var

Database : TDatabase;

Query : TQuery;

begin

Database := TDatabase.Create(nil);

try

Database.DatabaseName := 'Test'; {새 알리아스}

Database.Handle := dbHandle;

Query := TQuery.Create(nil);

try

with query do

begin

DatabaseName := Database.DatabaseName;

Close;

SQL.Clear;

SQL.Add('SELECT SYSDATE FROM DUAL');

Open;

ShowMessage(Query.FieldByName('SYSDATE').AsString);

end;

finally

Query.Free;

end;

finally

Database.Free;

end;



exports

myDllCall;



begin

end.





//프로그램에서 호출과 사용

unit appl;



uses

Windows, Messges, SysUtils, Classes, Graphics, Contrils,

Forms, Dialogs, StdCtrls, DB, BDE;



type

TForm1 = class(TForm)

dbSQLServer : TDatabase;

Button1 : TButton;

procedure Button1Click(Sender : TObject);

end;



var

Form1 : TForm;



procedure myDllCall(dbHandle : hdbidb); stdcall; external 'TESTDLL.DLL'



implementation



{$R *.DFM}



procedure TForm1.Button1Click(Sender : TObject);

begin

dbSQLServer.Open;

myDllCall(dbSQLServer.Handle);

end

procedure TForm1.Button1Click(Sender : TObject);

begin

dbSQLServer.Open;

myDllCall(dbSQLServer.Handle);////////// 바로 여기...!!!

end



먼저 답을 해 주셔서 정말 감사하구요...



다른 질문이 있어서 이렇게 염치불구하고 또 질문을 날립니다...



예제는 잘 보았는데요...위에 표시된 부분에서요..



dbSQLServer의 handle을 입력하는데 있어서 hdbidb가 무엇인지



식별하지를 못하거든요/?



어떻게 해야 문제를 해결 할 수 있을지 모르겠네요...



찾아보니 TDatabase 의 handle은 Integer이고...



hdbidb는 LongInt이던데...어떻게 형변환을 할 수있는지 모르겠군요..