Форум: "Основная";
Текущий архив: 2003.05.19;
Скачать: [xml.tar.bz2];

Вниз

Вопрос по кодировке текста из 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;
Скачать: [xml.tar.bz2];

Наверх

Память: 0.45 MB
Время: 0.009 c