// 설치된 Borland Database Engine(BDE) 의 language driver 리스트를
// TComboBox로 읽어오는 예제입니다
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
StdCtrls, db, DBTables, DbiProcs, DbiTypes, DbiErrs;
type
TForm1 = class(TForm)
ComboBox1: TComboBox;
Button1: TButton;
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.DFM}
procedure GetLangDrivers(pLangList: TStrings);
var
Rslt: DBIResult; // BDE에 의해 리턴된 값을 저장
hCur: hDBICur; // cursor handle 핸들
LD: LDDesc; // Language Driver Descriptor (LDDesc)
weinit: Boolean; // BDE가 초기화되어 있는지의 flag
i, cnt: Integer;
begin
weinit := False;
pLangList.Clear;
try
// PC에 설치되어 있는 language driver 의 리스트를 연다
// list의 값을 참조하려면 DbiGetNextRecord(), DbiGetCursorProps() 을 사용합니다
// 각 값은 LDDesc 구조체로 저장되어 있습니다
// hCur는 이 구조체 리스트의 cursor handle
Rslt := DbiOpenLdList(hCur);
if Rslt = DBIERR_NOTINITIALIZED then // 초기화 에러
begin
// BDE를 초기화 한다
Rslt := DbiInit(nil);
// Check()는 BDE 함수들에 의해 리턴된 값이 에러코드(DBIERR_NONE 이외의)이면
// DbiError exception을 강제로 발생시킵니다
// 아래 "except on E:EDBEngineError do"에 걸리겠죠...
Check(Rslt);
// BDE를 초기화 했다는 표시
weinit := True;
// 다시 PC에 설치되어 있는 language driver 의 리스트 열기를 시도
Rslt := DbiOpenLdList(hCur); // hCur는 이 구조체 리스트의 cursor handle
Check(Rslt);
end;
// 에러 메시지
if Rslt <> DBIERR_NONE then
begin
// 더 많은 에러가 있지만 몇가지만 보여줌
case Rslt of
DBIERR_NOSUCHTABLE:
ShowMessage('DBIERR_NOSUCHTABLE');
DBIERR_TABLEOPEN:
ShowMessage('DBIERR_TABLEOPEN');
DBIERR_INVALIDHNDL:
ShowMessage('DBIERR_INVALIDHNDL');
else
; // not used
end;
end
else
begin
// 각 language driver의 LDDesc 구조체에서 필요한 정보를 읽는다
DbiGetRecordCount(hCur, cnt); // cursor handle의 갯수(language driver의 갯수)
for i := 0 to cnt-1 do
begin
// LDDesc (language driver descriptor)
// Field Type Description
// ---------------------------------------------------------------------
// szName DBINAME Specifies the driver's symbolic name.
// szDesc DBINAME Specifies the driver description.
// iCodePage UINT16 Specifies the code page number.
// PrimaryCpPlatform UINT16 Unused.
// AlternateCpPlatform UINT16 Unused.
DbiGetNextRecord(hCur, dbiNOLOCK, @LD, nil);
pLangList.Add(LD.szDesc); // driver description만 읽어온다
end;
end;
// DbiOpenLdList()로 구했던 cursor handle 을 닫는다
Check(DbiCloseCursor(hCur));
// 만약 BDE를 초기화 되었다면 이를 닫는다
if weinit = True then
Check(DbiExit());
except on E:EDBEngineError do
begin
Check(DbiCloseCursor(hCur));
if weinit = True then
Check(DbiExit());
end;
end;
end;
procedure TForm1.Button1Click(Sender: TObject);
var
oldcursor: TCursor;
begin
// ComboBox control은 각 item에 변경이 생길때마다 매번 다시 그리기를
// 하므로 redraw속도가 느립니다
// WM_SETREDRAW 메시지를 ComboBox control에 보내어 redraw를 잠시 먼추게 한 후
// 다시 WM_SETREDRAW 를 보내어 한번만 그리기를 합니다
// 하지만 ComboBox는 이러한 역할을 하는 BeginUpdate, EndUpdate 메소드를
// 가지고 있습니다
ComboBox1.Items.BeginUpdate;
ComboBox1.Sorted := False;
ComboBox1.Clear;
oldcursor := Screen.Cursor;
Screen.Cursor := crHourGlass;
try
GetLangDrivers(ComboBox1.Items);
finally
ComboBox1.Items.EndUpdate;
Screen.Cursor := oldcursor;
end;
ComboBox1.Sorted := True;
ComboBox1.Items.EndUpdate;
if ComboBox1.Items.Count > 0 then
ComboBox1.ItemIndex := 0;
Screen.Cursor := oldcursor;
end;
end.
|
|
