Добавление псевдонима с помощью функции DbiAddAlias

Written on 18 Октября 2007. Posted in [Delphi] Базы данных. BDE

var

pszAliasName : PChar; { Имя псевдонима }{ Тип драйвера для псевдонима }

pszParams : PChar; { Дополнительные параметры }

bPersist : Bool; { Постоянный или временный псевдоним }

dbiRes : Integer; {Возвращаемый код }

begin

pszAliasName := strAlloc(25);

pszDriverType := strAlloc(25);

pszParams := strAlloc(100);

try

bPersist := True;

strPcopy(pszAliasName, 'Lance');

strPcopy(pszDriverType, 'PARADOX');

strPcopy(pszParams, 'PATH:'+'c:\Paradox\');

dbiRes := DbiAddAlias(nil, pszAliasName, pszDriverType, pszParams,bPersist);

finally

strDispose(pszAliasName);

strDispose(pszDriverType);

strDispose(pszParams);

end;