Кто умеет делать запись файлов в кодировке DOS

[Михаил Андреев]

Пытаюсь вывести в файл из Аксапты данные в кодировке DOS.
Вот фрагмент кода:

static void MA_VendTable_Export(Args _args)
{
VendTable VendTable;
AsciiIo vt;
container c;
;
vt = new AsciiIo("c:\\temp\\VendTable.txt", "W");
vt.writeRaw("Проверка");
vt.writeExp([1]);
vt.writeRaw(ansi2ascii("Проверка"));
vt.writeExp([2]);
vt.writeRaw(ascii2ansi("Проверка"));
vt.writeExp([3]);

В итоге выводится в чем угодно, кроме кодироки DOS В чем проблема?

[Андре]

Честно говоря в Аксапте это дело не пробовал. Но уж если очень надо, а по другому никак не получится можно сделать так: импортировать функцию OemToChar и использовать ее.

[Михаил Андреев]

Я уже решил эту проблему запуском внешнего перекодировщика. Но это же неэстетично

[Wamr]

"неэстетично" - это то что такой ф-ции в Аксапте нет
А вот вариант предложенный Андре очень даже приятен. Сделать свою ф-цию в Global и юзать ее как стандартную.

PHP код:

client static str ChatToOEM(str strSource)
{ //Преобразование строки в кодировку OEM
    DLL         _winApiDLL = new DLL('USER32');
    DLLFunction _CharToOEM  = new DLLFunction(_winApiDLL, 'CharToOemA');
    Binary       bSource    = new Binary(strSource);
    str          oemstr;
    ;
    _CharToOEM.returns(ExtTypes:: DWORD);
    _CharToOEM.arg(ExtTypes::POINTER,
                  ExtTypes::POINTER);
    _CharToOEM.call(bSource, bSource);

    oemstr = bSource.string(0);

    return oemstr;
} 


(c) xroad

[Михаил Андреев]

Спасибо, работает

[Field]

Попробовал функцию, получилось. Только поясните, пожалуйста, почему 'CharToOemA'? В MSDN описана функция CharToOem.
Мне потребовалось использовать функцию OemToChar, и напрямую не пошло.

[sash_xp]

Если не ошибаюсь, все дело в существовании разных версий ф-ций Win32 API. В одних функциях поодерживается ANSI (Win9x), в других Unicode (WinNT).
У вас похоже стоит Windows 9x

[Field]

Нет, у меня Windows 2000 Pro

[sash_xp]

Похоже я сел...
Приду домой, посмотрю, и завтра дам более подробный ответ. А то что-то память подводит.
Хотя нет есть идея. Ф-ции с поддержкой ANSI оканчиваются на A, а с пооддержкой Unicode на W. Но я не подумал, что A-функции можно использовать и в WinNT

[sash_xp]

При программировании под WinNT, если мы желаем использовать наш результат компиляюции под WinNT мы объявляем макрос Unicode, ктоторый определяется так

PHP код:

#ifdef Unicode
#define APIFunction APIFunctionW
#else
#define APIFunction APIFunctionA
#endif 


Т.о. в нашей проге мы используем APIFunction и перед компиляцией, в зависимости от объявления макроса Unicode APIFunction преобразуется в APIFunctionW или в APIFunctionA.
Если прога при выполнении на WinNT вызывает APIFunctionA, то вызывается ф-ция-заглушка, которая преобразует строки в Unicode и вызывает APIFunctionW.
Если при выполнении на Win9x прога вызывает APIFunctionW, то ... прога вешается
Надеюсь я ответил на ваш вопрос , и почему я ошибся в определении системы.

[Field]

Да, спасибо

[Polar]

Axapta 3.0 SP1

Класса Asciilo не нашел
Это может быть из-за лицензионных соглашений
в документации он присутствует.

А вообще, надо записать в текстовый файл некоторую информацию.
Ее считает другая программа , обработает, потом запишет также в текстовый файл.
Аксапта считает результат.

[Polar]

после : это может быть из-за лицензионных соглашений
должен стоять вопросительный знак