Выгрузка в dbf с перекодировкой

[MikeR]

Собственно сабж. Написал выгрузку в dbf. Проблем нет. Но при импорте в ЕГАИС не поддерживается кодировка DOS. Написал перекодировку из DOS в Windows и вот тут внимание самое интересное. Нижний регистр перекодируется без проблем это символы "абвгдежзикл..." а вот с верхним регистром проблемы "АБВГДЕЖЗ...". Коды верхнего регистра в ASCI отсутствуют полностью, только можно найти жалкие остатки типа 134 - Е, 135 - Ш, 153 - Т. Собственно недостоющие можно добыть из латиницы, но как быть с "Я, Ж.."?

[diessever]

Могу предположить что при выгрузке вы используете драйвер dBase, если заменить драйвер на FoxPrо-шный то выгрузка будет в кодировке WIN и ничего перекодировать собственно не нужно. Поищите VFPODBC и установите если отсутствует.

[Ruff]

Zitat:

Zitat von MikeR

Коды верхнего регистра в ASCI отсутствуют полностью, только можно найти жалкие остатки типа 134 - Е, 135 - Ш, 153 - Т.

Что-то Вы явно путаете... И в ANSI и в OEM кодировках русский алфавит представлен полностью. Для конвертации Win -> DOS в Аксапте можно использовать метод:
WinApi::CharToOemBuff(_text)

Обратного, к сожалению, нет, но его несложно создать по аналогии.

[MikeR]

Спасибо уже ознакомился с предложением о написании WinApi::OemToChar(_text), но только где взять библиотеку? Перебором подобрать не получилось.
Ruff тогда опубликуйте коды и все навсего.

[MikeR]

Вот предлагаю ознакомится с существующими http://www.tspu.edu.ru/ebooks/stakhin/2.3.htm
далее с 240 по 262 идет нижний регистр между ними куча мне не нужных символов. А коды верхнего я уже опубликовал

[sukhanchik]

Оно?

static str oemToChar(str _text)
{
    DLL             dll         = new DLL("user32.dll");
    DLLFunction     dllFunction = new DLLFunction(dll, "OemToCharA");
    Binary          result      = new Binary(strlen(_text) + 1);
    ;
    dllFunction.returns(ExtTypes::DWord);
    dllFunction.arg(ExtTypes::String, ExtTypes::Pointer);

    dllFunction.call(_text, result);
    return result.string(0);
}

2Ruff: Где-где ваш метод? Чего-то не нашел или не там искал? (Ax 3.0 SP3 CU1)
Все, нашел dis слой, с комментариями от valu, класс WinApi

[MikeR]

Thanks sukhanchik, но получается при переводе WinApi:emToChar("АБВГДЕЖЗИЙКЛМНОПРСТ")
в 6L+T+-+ііLЈіTі=+ііTT
Хотя интересный подход не додумался бы "OemToCharA" имеется в виду последняя А

[MikeR]

Дело оказалось в следующем
Класс, формирующий файл dbf перекодировал из Windows в Dos, уже потом перекодировать без потерь не получится

[Ruff]

Zitat:

Zitat von MikeR

Ruff тогда опубликуйте коды и все навсего.

Вот, пожалуйста - OEM для 866 (русской) кодовой страницы:
http://ascii.org.ru/
Верхний регистр идет с кода 128 по код 159 непрерывно. Нижний прерывается на псевдографику...

Zitat:

Zitat von MikeR

...далее с 240 по 262 идет нижний регистр...

Если мы говорим об одном и том же (о кодах ASCII), то они однобайтовые, то есть 255 максимум. Откуда 262?