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

{codecitation class=»brush: pascal; gutter: false;» width=»600px»}

Автор: Tom Stickle

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;

end;

{/codecitation}

Добавить комментарий