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;

Эта запись была опубликована 14.12.2007в 13:56. В рубриках: Alias, Базы данных. Вы можете следить за ответами к этой записи через RSS 2.0. Комментарии пока закрыты, но Вы можете оставить трекбек со своего сайта.