| Форумы
ЧАТ |
Орешник |
|
| Форумы -» | Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG |
|
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
Перекодировка Win>Dos и Dos>Win. Помогите дураку :-) [D7, Win95/98, Win2k, WinXP]
Cardinal © (2004-09-11 18:57:00)Привет, коллеги. Вот я решил задать такой вопрос: "как мне произвести перекодировку из oem в win и наоборот?"
Только не надо отправлять меня в фак, пожалуйста: там предлaгают делать это с помощью api-функций CharToOem и OemToChar, что у меня абсолютно не получается. То ли я память как-то не так выделяю для PChar'ов, то ли ее вообще не надо выделять, но у меня постоянно AV. В отладчике, кстати, видно, что строка переведена, но при любом обращении к ней происходит AV. Пробовал один пример с таблицами перекодировки, да тоже не вышло.
Выручайте. Спасибо.
GEN++ (2004-09-11 23:46:00) [1]Есть готовый компонент DosWin приводился здесь -
поищи в кладовке, отлично работает.
Cardinal (2004-09-11 20:19:00) [2]
> [1] Jel © (11.09.04 19:05)
Спасибо. Что-то я сглупил %).
---
--
Jel (2004-09-11 19:05:00) [3]
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;
| |
