Редактирование BDE

[kraw2]

Здравствуйте. Как из Delphi отредактировать в BDE параметры БД? В частности LANGDRIVER? На DelphiWorld6 не отсылать (там есть компонент ConfigBde, но он не компилится).

[Шульц]

procedure SetLanguage(Tbl: TTable; Lang: DbiName);
var
pOptDesc: pFLDDesc;
pOptData: pBYTE;
hDb: hDbiDb;
TblDesc: CRTblDesc;
Dir: string;
begin
pOptDesc := AllocMem(sizeof(FLDDesc));
pOptData := AllocMem(20);
SetLength(Dir, dbiMaxNameLen + 1);
Tbl.Active := True;
Check(DbiGetDirectory(Tbl.DBHandle, False, PChar(Dir)));
SetLength(Dir, StrLen(PChar(Dir)));
try
   FillChar(TblDesc, sizeof(CRTblDesc), #0);
   Tbl.DisableControls;
   Tbl.Close;
   Check(DbiOpenDatabase(nil, nil, dbiReadWrite, dbiOpenExcl, nil, 0, nil, nil,
     hDb));
   Check(DbiSetDirectory(hDb, PChar(Dir)));
   pOptDesc.iOffset := 0;
   pOptDesc.iLen := Length(Lang) + 1;
   StrPCopy(pOptDesc.szName, 'LANGDRIVER');
   StrPCopy(PChar(pOptData), Lang);
   TblDesc.iOptParams := 1;
   TblDesc.pfldOptParams := pOptDesc;
   TblDesc.pOptData := pOptData;
   StrPCopy(TblDesc.szTblName, Tbl.TableName);
   StrCopy(TblDesc.szTblType, szParadox);
   Check(DbiDoRestructure(hDb, 1, @TblDesc, nil, nil, nil, False));
finally
   Check(DbiCloseDatabase(hDb));
   FreeMem(pOptDesc, sizeof(FLDDesc));
   FreeMem(pOptData, 20);
   Tbl.EnableControls;
end;
end;

(с) DRKB3_FULL

[kraw2]

Здравствуйте, Шульц. Спасибо за ответ. В этом коде рассматривается таблица Paradox. Хотелось бы для Ms SQL, Interbase и т.п. БД. Параметр входа строка - имя алиаса. Или я что-то не пропариваю?

[Шульц]

Не знаю как под ИБ или СКЛ переделать, рабоатет под парадокс, аксес, байсу.

В DRKB есть еще пару примеров, советую посмотреть, в поиске DRKB поищите фразу LANGDRIVER.