Советы по Delphi

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



Содержание раздела