안녕하세요.
팁&트릭에 [동적으로 BDE Alias 생성하기]예제가 있습니다.
이 예제를 그대로 C++빌더에서 실행하면 정상적으로 생성됩니다.
그런데... 델파이에서는 생성되지 않습니다.
도무지 이유를 못 찾겠습니다.
그 이유가 먼가요??
--- 예제 ---
uses BDE;
procedure AddBDEAlias(sAliasName, sAliasPath, sDBDriver: string);
var
h: hDBISes;
begin;
DbiInit(nil);
DbiStartSession('dummy', h, '');
DbiAddAlias(nil, PChar(sAliasName), PChar(sDBDriver), PChar('PATH:' + sAliasPath), true);
DbiCloseSession(h);
DbiExit;
end;
procedure TForm2.Button1Click(Sender: TObject);
begin
AddBDEAlias('TestDB','C:\Temp', 'DBASE' );
end;
|