Скачать: CL | DM;

Как конвертировать 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;


---

← →
Игорь Шевченко ©   (2004-05-20 14:23) [4]

RxLib strutils.pas OemToAnsiStr

---

← →
WebErr ©   (2004-05-20 14:26) [5]

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

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

---

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

Скачать: CL | DM;



Память: 0.46 MB
Время: 0.036 c