Добавление псевдонима с помощью функции 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]
