Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 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.01 c
1-59697
Novichek
2003-05-07 15:12
2003.05.19
перевод из Dec в Hex


3-59600
Azazello
2003-04-28 14:10
2003.05.19
Текст из TRichEdit.


4-59992
Vitek
2003-03-15 00:47
2003.05.19
Потоки


1-59672
Patrick
2003-05-07 10:42
2003.05.19
Кодировка клавиш


1-59718
Nikos
2003-05-04 18:00
2003.05.19
Обработка исключительных ситуаций