Delphi и Базы данных → Alias → Как получить путь псевдонима и таблицы 4


uses DbiProcs;

function GetDirByDatabase( Database: TDatabase ): string;
var
pszDir: PChar;
begin
pszDir := StrAlloc( 255 );
try
DbiGetDirectory( Database.Handle, True, pszDir );
Result := StrPas( pszDir );
finally
StrDispose( pszDir );
end;
end;
Опубликовал admin
11 Мар, Вторник 2008г.

Delphi и Базы данных → Alias → Как получить путь псевдонима и таблицы 3


uses db;

var
aliaspath: string[128];
begin
aliaspath := Session.GetAliasParams[′MyAlias′].values[′PATH′];
end;

uses SysUtils,DbiProcs, DBiTypes;
...

function GetDataBaseDir(const Alias : string): String;
(* Возвращает каталог базы данных, на которую
ссылается псевдним (без конечного обратного слеша) *)
var
sp: PChar;
Res: pDBDesc;
begin
try
New(Res);
sp := StrAlloc(length(Alias)+1);
StrPCopy(sp,Alias);
Опубликовал admin
11 Мар, Вторник 2008г.

Delphi и Базы данных → Alias → Как получить путь псевдонима и таблицы 2


procedure TForm1.FormCreate(Sender: TObject);
begin
Session.GetAliasNames(ListBox1.Items);
end;
Опубликовал admin
11 Мар, Вторник 2008г.

Delphi и Базы данных → Alias → Как получить путь псевдонима и таблицы


function GetDBPath1(AliasName: string): TFileName;
var
ParamList: TStringList;
begin
ParamList := TStringList.Create;
with Session do
try
GetAliasParams(AliasName, ParamList);
Result := UpperCase(ParamList.Values[′PATH′]) + ′′;
finally
Paramlist.Free;
end;
end;

function GetDBPath2(AliasName: string): TFileName;
var
ParamList: TStringList;
i: integer;
begin
ParamList := TStringList.Create;
with Session do
try
try
Опубликовал admin
11 Мар, Вторник 2008г.


RSS-материал

Программирование для чайников.