Delphi 1

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

var

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

pszDriverType : 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;

- Tom Stickle [000765]