Форум программистов [Powered by Invision Power Board]

Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате

Форум программистов > Delphi: Базы данных и репортинг > Не распознаётся таблица сделанная в парадокс 4.5

Автор: Cyri 28.4.2005, 09:36

Народ, подскажите. Есть база данных, созданная на Парадокс 4.5. Всего 32 такблицы. Все на русском языке. СУБД досовская, куча скриптов написано. НАписана программа, которая осуществляетс взаимодействие таблиц друг с другом. Толково написана. Всё работает. Надо это дело перенести в Делфи, чтобы всё было по-виндосовски. Вот эти таблицы и не роспознаёт ни DatabaseDesktop, ни SQLExplorer, ни BDE. Вместо русских букв - непонятно что. Как сделать эти таблицы читаемыми? Не хочется писать всё заново.
Я пробовал менять языковые драйвера в ДБД и дефоулт драйвер в БДЕ.Безрезультатно. Я не очень силён в этом. Помогите. Прикрепляю файл с таблицей из названий улиц. Попробуйте его адекватно увидеть через средства Борланд (в делфи, БДЕ, СКюЛ-эксплорер). Если вдруг удасться, то напишите.

Автор: Alex 28.4.2005, 14:32

Код

procedure SetLangForParadoxAndDBase;
// Устанавливает языковые настройки для драйверов
//   PARADOX - 'Pdox ANSI Cyrillic' (1251) и
//   DBASE   - 'dBASE RUS cp866'    (866)
var
  p :TStringList;
  c :TConfigMode;
begin
  p := TStringList.Create;
  c := Session.ConfigMode;  Session.ConfigMode := cmSession;
  try
    p.Text := 'LANGDRIVER=ancyrr'^M^J'LEVEL=7';
    Session.ModifyDriver('PARADOX',p);
    p.Text := 'LANGDRIVER=db866ru0'^M^J'LEVEL=7';
    Session.ModifyDriver('DBASE',p);
  finally
    Session.ConfigMode := c;
    p.Free;
  end;
end;