| Статистика |
|
Онлайн всего: 1 Гостей: 1 Пользователей: 0 |
|
Добавление псевдонима с помощью функции 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;
|
| Категория: Alias | Добавил: Skinner (04.07.2008)
| Автор: Tom Stickle
|
| Просмотров: 405
| Рейтинг: 0.0/0 |
|
|
