Советы по Delphi. Версия 1.4.3 от 1.1.2001

Озеров Валентин

 finally

Database.Free; {free memory}

StrDispose(pszDir);

 end;

end;

Информация о псевдониме BDE

Delphi 1

var MyAliasPath: string;

const AliasName='MyAlias';

{****

Получаем из BDE путь MyAlias}

ParamsList:= TStringList.Create;

try

 with Session do begin

Session.GetAliasNames(ParamsList);

Session.GetAliasParams(AliasName,ParamsList);

MyAliasPath:=Copy(ParamsList[0],6,50)+'\';

 end;

finally

 ParamsList.Free;

end;

uses 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);

if DbiGetDatabaseDesc(sp,Res) = 0 then Result := StrPas(Res^.szPhyName)

else Result:= '';

 finally

StrDispose(sp);

Dispose(Res);

 end;

end;

Изменение каталога псевдонима во время выполнения приложения

Delphi 1

Я делаю это все время. У меня есть INI-файл, который сообщает, где можно найти таблицы и каталоги их расположения. Вот как я это делаю:

procedure CheckTable(var Table : TTable; var TName : string);

var

 ChangePath: boolean;

 Path: string;

 ActiveState: Boolean;

begin

 if (TName = '') then TName := Table.TableName

 else with Table do begin

ActiveState := Active;

Close;

Path := ExtractFilePath(TName);

ChangePath := HasAttr(DatabaseName, faDirectory) or (CompareText(DatabaseName, Path) <> 0);

if (Length(Path) > 0) and ChangePath then DatabaseName := Path;

if (CompareText(ExtractFileName(Tname), TableName) <> 0) then TableName := ExtractFileName(Tname);

Active := ActiveState;

 end;

end;

Псевдоним

на лету

Delphi 2

Попробуйте это:

type TDataMod = class(TDataModule)

 Database: TDatabase;

public

 procedure TempAlias(NewAlias, NewDir: String);

end;

procedure TDataMod.TempAlias(NewAlias, NewDir: String);

begin

 with Session do if not IsAlias(NewAlias) then begin

ConfigMode := cmSession; (* NewAlias будет ВРЕМЕННЫМ *)

try

AddStandardAlias(NewAlias, NewDir, 'PARADOX');

Database.Close;

Database.AliasName := NewAlias;

Database.Open;

finally

ConfigMode := cmAll;

end;

 end;

end;

Комментарии:

a) Поместите компонент Database на форму DataModule;

b) Задайте свойству DatabaseName имя базы данных, например, 'TempDB';

c) Задайте свойству DatabaseName компонента TTable значение = 'TempDB'

d) Для получения дополнительной информации ознакомьтесь с примером MastApp, поставляемым вместе с D2.