Форум: "WinAPI";
Текущий архив: 2004.10.17;
Скачать: [xml.tar.bz2];

Вниз

Перекодировка Win>Dos и Dos>Win. Помогите дураку :-)   Найти похожие ветки 

← →
Cardinal ©   (2004-09-11 18:57) [0]

Привет, коллеги. Вот я решил задать такой вопрос: "как мне произвести перекодировку из oem в win и наоборот?"

Только не надо отправлять меня в фак, пожалуйста: там предлaгают делать это с помощью api-функций CharToOem и OemToChar, что у меня абсолютно не получается. То ли я память как-то не так выделяю для PChar"ов, то ли ее вообще не надо выделять, но у меня постоянно AV. В отладчике, кстати, видно, что строка переведена, но при любом обращении к ней происходит AV. Пробовал один пример с таблицами перекодировки, да тоже не вышло.

Выручайте. Спасибо.

---

← →
Jel ©   (2004-09-11 19:05) [1]


procedure TForm1.Button1Click(Sender: TObject);
var pch_in, pch_out : pchar;
begin
 pch_in := "Строка для перекодировки в ОЕМ";
 pch_out := pchar(StringOfChar(" ", length(pch_in)));
 CharToOem(pch_in, pch_out);
 ShowMessage(pch_out);
end;


---

← →
Cardinal ©   (2004-09-11 20:19) [2]

>  [1] Jel ©   (11.09.04 19:05)

Спасибо. Что-то я сглупил %).

---
--

---

← →
GEN++ ©   (2004-09-11 23:46) [3]

Есть готовый компонент DosWin приводился здесь -
поищи в кладовке, отлично работает.

---

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

Форум: "WinAPI";
Текущий архив: 2004.10.17;
Скачать: [xml.tar.bz2];

Наверх

Память: 0.44 MB
Время: 0.037 c