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

Советы » ODBC » Получение дескриптора 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; type

TForm1 = 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

; var

Form1: TForm1; implementation

{$R *.DFM} procedure

TForm1.Button1Click(Sender: TObject); begin

Table1.active := True

; end

; procedure

TForm1.Button2Click(Sender: TObject); var

hTmpDB: hDBIDb; iLen: word; begin

Check(DbiGetProp(hDBIObj(Table1.DBhandle), dbNATIVEHNDL, @hTmpDB, sizeof(hDBIDb), iLen)); Edit1.text := inttostr(longint(htmpdb)); end

; end

.

Другое по теме:

Категории

Статьи

Советы

Copyright © 2023 - All Rights Reserved - www.delphirus.com