Советы по Delphi
Добавление псевдонима с помощью функции DbiAddAlias
| varpszAliasName : PChar; { Имя псевдонима }pszDriverType : PChar; { Тип драйвера для псевдонима }pszParams : PChar; { Дополнительные параметры }bPersist : Bool; { Постоянный или временный псевдоним }dbiRes : Integer; {Возвращаемый код }begin pszAliasName := strAlloc(25);pszDriverType := strAlloc(25);pszParams := strAlloc(100); trybPersist := True;strPcopy(pszAliasName, 'Lance');strPcopy(pszDriverType, 'PARADOX');strPcopy(pszParams, 'PATH:'+'c:\Paradox\'); dbiRes := DbiAddAlias(nil, pszAliasName, pszDriverType, pszParams,bPersist); finallystrDispose(pszAliasName);strDispose(pszDriverType);strDispose(pszParams);end; |
- Tom Stickle [000765]
