Вопрос по кодировке текста из DOS - ской в WINDOWS и обратно.

← →
ND (2003-05-07 11:01) [0]

Кто занимался чтением текста в кодировке DOS, или текст в кодировке WINDOWS нужно представить в кодировке DOS.

И вообще про все кодировки где можно узнать ?

Если есть предложения и примеры кода буду благодарен.

← →
evvcom © (2003-05-07 11:10) [1]

А в чем проблема? Формируешь файл с кодами от $20 до $FF, смотришь его в разных кодировках, находишь соответствие и делаешь выводы.

← →
Vovchik_A © (2003-05-07 11:25) [2]

Uses Windows;

// //Конвертирование DOS строки в String // function OEMToStr(lpc: PChar): String; Var PcStr: PChar; Begin new(PcStr); CharToOEM(lpc,PcStr); Result:=String(PcStr); Dispose(PcStr); End;

Если я правильно тебя понял

← →
Roma © (2003-05-07 11:35) [3]

uses Windows; // DOS -> Win function StrToOem(const S: string): string; begin SetLength(Result, Length(S)); CharToOemBuff(PChar(S), PChar(Result), Length(S)); end; // function StrToOem(const S: string): string; // Win -> DOS function OemToStr(const S: string): string; begin SetLength(Result, Length(S)); OemToCharBuff(PChar(S), PChar(Result), Length(S)); end; // function StrToOem(const S: string): string;

Надо бы еще проверки на пустую переданную строку добавить...

← →
ND (2003-05-07 11:41) [4]

Спаяибо попробую.

Вопрос по кодировке текста из DOS - ской в WINDOWS и обратно. Найти похожие ветки