Текущий архив: 2004.10.17;
Скачать: CL | DM;
Вниз
Перекодировка 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 вся ветка
Текущий архив: 2004.10.17;
Скачать: CL | DM;
Память: 0.47 MB
Время: 0.041 c
