Советы по Delphi

       

Получение дескриптора ODBC соединения


Я как-то обращал ваше внимание на трудность получения дескриптора ODBC соединения посредством DBE. После тесного общения со службой поддержки Borland, я наконец нашел решение как это сделать. Вот этот код:

unit Getprop;
interface
uses
SysUtils, WinTypes, WinProcs, Messages, Classes, Graphics, Controls,Forms, Dialogs, Grids, DBGrids, StdCtrls, DB, DBTables,DBIProcs, DBITypes, DBIErrs;
typeTForm1 = class(TForm)Table1: TTable;DataSource1: TDataSource;Button1: TButton;Button2: TButton;DBGrid1: TDBGrid;Edit1: TEdit;procedure Button1Click(Sender: TObject);procedure Button2Click(Sender: TObject);private{ Private declarations }public{ Public declarations }end;
varForm1: TForm1;
implementation
{$R *.DFM}
procedure TForm1.Button1Click(Sender: TObject);beginTable1.active := True;end;
procedure TForm1.Button2Click(Sender: TObject);varhTmpDB : hDBIDb;iLen : word;
beginCheck(DbiGetProp(hDBIObj(Table1.DBhandle), dbNATIVEHNDL, @hTmpDB, sizeof(hDBIDb), iLen));Edit1.text := inttostr(longint(htmpdb));end;
end

- Chris Fioravanti [000853]



Содержание раздела