Как конвертировать DOS->WIN, если OemToChar под XP не пашет?

← →
Shark (2004-05-20 13:14) [0]

Уважаемые мастера, у меня к вам заурядный вопрос - возникла необходимость конвертировать текст из кодировки DOS в WIN, пробовал юзать OemToChar по разному, как только не пробовал!

Вот один из вариантов:

procedure TForm1.Button1Click(Sender: TObject);
var Src, Str:PChar;
begin
Src := PChar(Memo1.Lines.GetText);
OemToChar(Src, Str);
Memo2.Lines.Text := StrPas(Str)
end;

я и указатели на строки пробовал передовать - бесполезно! Вечно ошибка, причём её даже Delphi не отлавливает! Пробовал на другом компе - таже фигня!

Подскажите пожалуйста ещё какие-нибудь алгоритмы перекодировки DOS->WIN...

← →
Reindeer Moss Eater © (2004-05-20 13:24) [1]

Пробовал на другом компе - таже фигня!

А ты попробуй еще на сотне-друшой компов.
Может после этого вспомнишь, что под результат надо сначала память выделить, а уж потом вызывать OemToChar.

← →
Anatoly Podgoretsky © (2004-05-20 13:48) [2]

Это Пушкин виноват.

← →
Romkin © (2004-05-20 14:12) [3]

Млин, классику знать надо. Хоть немного. И хоть немного читать Object Pascal Language Guide. Грустно
procedure TForm1.Button1Click(Sender: TObject); var Str: ansistring; begin Str := Memo1.Lines.GetText; OemToChar(PChar(Str), PChar(Str)); Memo2.Lines.Text := Str; end;

RxLib strutils.pas OemToAnsiStr

> Romkin © (20.05.04 14:12) [3]
> Млин, классику знать надо. Хоть немного.

--->
> Anatoly Podgoretsky © (20.05.04 13:48) [2]
> Это Пушкин виноват.

Как конвертировать DOS->WIN, если OemToChar под XP не пашет? Найти похожие ветки