Форум: "Базы";
Текущий архив: 2002.09.16;
Скачать: [xml.tar.bz2];
ВнизКак установить LANGDRIVER для драйвера PARADOX программно? Найти похожие ветки
← →
agrig (2002-08-26 16:10) [0]Сабж.
Все знают как сделать это через BDE Admin. Но как установить этот параметр в программе?
Надо для инсталяции.
← →
3JIA9I CyKA (2002-08-26 16:15) [1]В параметрах Database засунь
langdrv=ancyrr
← →
Ученик (2002-08-26 16:52) [2]function WriteLanguageDriver(const DriverName, LanguageName : string) : Boolean;
function FindAndWrite(const ConfigPath : string) : Boolean;
var
sConfigPath : string;
Cursor: HDBICur;
ConfigDesc: CFGDesc;
begin
Result := False;
sConfigPath := Format(ConfigPath, [DriverName]);
if (DbiOpenCfgInfoList(nil, dbiReadOnly, cfgPERSISTENT,
PChar(sConfigPath), Cursor) = 0) then begin
DbiCloseCursor(Cursor);
if (DbiOpenCfgInfoList(nil, dbiReadWrite, cfgPERSISTENT,
PChar(sConfigPath), Cursor) = 0) then try
while DbiGetNextRecord(Cursor, dbiNOLOCK, @ConfigDesc, nil) = 0 do begin
if StrComp(ConfigDesc.szNodeName, "LANGDRIVER") = 0 then begin
StrPCopy(ConfigDesc.szValue, LanguageName);
Result := DbiModifyRecord(Cursor, @ConfigDesc, True) = 0;
Break
end
end
finally
DbiCloseCursor(Cursor);
end
end
end;
begin
Result := FindAndWrite("\DRIVERS\%s\INIT") or FindAndWrite("\DRIVERS\%s\DB OPEN")
end;
← →
agrig (2002-08-27 11:45) [3]Спасибо ребята,
пока ждал ответа, я понял, почему у самого не получалось.
есть еще такой способ:
Session.ModifyDriver(.. , ..)
Делает по сути тоже что и "ученик". только чуть быстрее.
Страницы: 1 вся ветка
Форум: "Базы";
Текущий архив: 2002.09.16;
Скачать: [xml.tar.bz2];
Память: 0.44 MB
Время: 0.007 c