Кодировка DOS в Paradox4.5

← →
DSKalugin © (2005-02-18 16:22) [0]

база написана на Paradox4.5 для доса
в ней русскоязычные названия полей и содержимое некоторых полей
Естественно, оно выглядит при просмотре в Виндовс как ересь.
В DBD просмотрел структуру - драйвер "Paradox ascii"
Выставляю его в настройках БДЕ - не помогает
перепробовал все кириллические, ascii и ANSI - не помогает

Как всеже извлечь русскоязычную информацию?

← →
DSKalugin © (2005-02-18 16:46) [1]

может конверторы есть
или программу писать OEM2ANSI

← →
msguns © (2005-02-18 17:02) [2]

Мы эту траблу решали так:
В ДОСе пишется скрипт, который экспортирует таблицу в дбф с полями FIELDNNN и создает еще одну служебную дбф-ку, где сохраняет структуру исх.таблицы в виде
FIELDN - имя поля дбф (FIELDNNN)
FLNATIV - имя поля исх.таблицы (на русском)
FLTYPE - тип поля
FLPKFL - флажок прймкея

В виндузном парадоксе (конвертили в Paradox 7) берем эти дбф-ки и сначала создаем таблицу, потом заливаем в нее данные, сканируя исх.дбф и используя винапишную ф-цию OEM-преобразования символов

← →
DSKalugin © (2005-02-18 17:32) [3]

2 В ДОСе пишется скрипт
нету у меня доса, только ВинХП и Линукс.
я взял эту таблицу у "ненаших"
для извлечения информации

procedure TForm1.Button1Click(Sender: TObject); var d,s: String; Source, Dest : array[0..255] of Char; begin // 1й способ s:=Table1AAAAAAAAA.AsString; SetLength(d, Length(S)); OemToAnsi(PChar(S), PChar(d)); edit1.Text:=d ; SetLength(d,0); // 2й способ OemToAnsi(StrPCopy(Source, S), Dest); edit1.Text:= StrPas(Dest); end;
не работает. беру исходную ОЕМ строку из поля

ААААААААААААААААААААААААААААААААААаааааааааааа
какая тупость
Взял и ДБД втупую сделал реструктуризацию
1-изменил названия всех полей из абры в латин
2-помменял дравер языка на Paradox Cyrr 866
нажал Сохранить и О ЧЮДО! получилось :-)))

хоть в ФАК выносите

Кодировка DOS в Paradox4.5 Найти похожие ветки