Как сохранить текст в DOS кодировке?

[oleg kutkov]

Моя программа экспортирует текстовый файлик, содержащий инфу: цифры и кириллицу, появилась необходимость экспортировать этот файл в DOS кодировке, никак не могу найти путной инфы, везде нытакаюсь на использование функций:
CharToOEM
OEMToChar
CharToOEMBuff
OEMToCharBuff
OemToAnsi
AnsiToOem:
но ничего не выходит, постоянно высыпаются ошибки о несовместимости типов и прочее.
Подскажите, кто, что знает.

[ZhekON]

Воспользуйся поиском по форуму. Здесь гдето была ужэ такая тема.

[Квэнди]

procedure WinToDos;
var
Src, Str: PChar;
begin
Src := Memo1.Lines.GetText; //Берем текст из TMemo как тип PChar
CharToOem(Src, Str); //API функция для перевода текста
Memo2.Lines.Text := StrPas(Str);//Записываем назад
end;

procedure DosToWin;
var
Src, Str: PChar;
begin
Src := Memo1.Lines.GetText; //Берем текст из TMemo как тип PChar
OemToChar(Src, Str); //API функция для перевода текста
Memo2.Lines.Text := StrPas(Str);//Записываем назад
end;

[oleg kutkov]

Спасибо за быстрый отвтет, но эти примеры мне знакомы, но к сожалению, вот они и не работают. Поэтому я и обратился за помощью. При вызове CharToOem(Src, Str) (при запуске программы из под проводника, а не из делфи вылетает ошибка:
Acces violation at adress 004303B4 in module .... . Read of adress E2E1A5CE.

При запуску из под делфи сообщение намного длинее.

В любом случае после сообщения приложение впадает в ступор, как будто находится в бесконичном цикле, программа выключается только завершением процесса.
Memo1 содержит всего одну строчку текста на киррилице: "тестовая строчка".

[JTG]

Под строки PChar надо вроде память выделять.

Можно попробовать
CharToOem(@Src,@Dest);
где src,dest:array[0..255] of char например

или (х/з, проверить негде)
CharToOem(pchar(s1),pchar(s2)); s1,s2 - строки (не pchar)
тут наверно ошибка вылезет, если s1 или s2=''

[Квэнди]

с каких пор DOS-кодировка поддерживает русские буквы ?

[oleg kutkov]

Всем спасибо, все получилось.
DOS-кодировка поддерживает русские буквы, по крайней мере, то что у меня получается в результате преобразования киррилических символов распознается редакторами, как дос-кодировка и обрабатывается дос-приложениями.

[JTG]

с каких пор DOS-кодировка поддерживает русские буквы ?

Да все поддеоживает 866 OEM - Russian

[chingiz]

Сообщение от oleg kutkov

Всем спасибо, все получилось.

Мне почему-то охота заматериться когда я вижу такие ответы - "всем спасибо, все получилось, до свидания" - меня, да может и не только меня тоже заинтересовала данная тема. Может господин "oleg kutkov" скажет конкретнее как у него получилось???

[oleg kutkov]

Я не стал конкретно расписывать, как у меня получилось, т.к. исчерпывающий ответ дан в предидущих постах. Нужно просто внимательно их прочитать, разобраться и пробовать, тогда все получится.