Текущий архив: 2003.05.19;
Скачать: CL | DM;

Вниз

Вопрос по кодировке текста из 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]

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

---

Страницы: 1 вся ветка

Текущий архив: 2003.05.19;
Скачать: CL | DM;

Наверх

Память: 0.47 MB
Время: 0.011 c