Код: Выделить всё
Database1: TDatabase;
pFIBDatabase1: TpFIBDatabase;
Query1: TQuery;
pFIBDataSet1: TpFIBDataSet;
...
function GetNativeDBHandle(DBHandle: hDBIDb; var NativeHandle: TISC_DB_HANDLE): word;
begin
Result := 0;
// Get the native handle to the database...
Check(DbiGetProp(hDBIObj(DBHandle), dbNATIVEHNDL, @NativeHandle,
sizeof(NativeHandle), Result));
end;
procedure LinkDB (Database1: TDatabase; pFIBDatabase1: TpFIBDatabase);
var
db_handle: TISC_DB_HANDLE;
begin
pFIBDatabase1.Close;
GetNativeDBHandle (Database1.Handle, db_handle);
pFIBDatabase1.Handle := db_handle;
pFIBDatabase1.Open;
end;
procedure TForm1.Button1Click(Sender: TObject);
begin
Database1.Connected := true;
LinkDB (Database1, pFIBDatabase1);
pFIBDataSet1.Open;
Query1.Open;
end;