Советы по 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]



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