Перекодировка 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)

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

---
--

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

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