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

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

; end

;

Другое по теме:

Категории

Статьи

Советы

Copyright © 2023 - All Rights Reserved - www.delphirus.com