Добавление псевдонима с помощью функции DbiAddAlias |
Previous Top Next |
Автор: Tom Stickle
Code: |
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; |
©Drkb::02524
Взято с http://delphiworld.narod.ru