| Форумы
ЧАТ |
Орешник |
|
| Форумы -» | Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG |
|
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
ошибка при перекодировке CharToOem [D7, XP]
Кирей © (2007-08-20 15:33:00)Пытаюсь перевести файл из кодировки виндовс в дос, дает ошибку 'Access volation at adress 77D3ADC7 in module user32.dll'. Делаю по примеру на этом сайте: http://delphimaster.ru/cgi-bin/faq.pl?look=1&id=988619604&n=19
Германн (2007-08-20 18:06:00) [1]
> Плохиш © (20.08.07 16:36) [13]
>
>
> > Кирей (20.08.07 16:19) [12]
>
> А чем PChar не угодил?
>
Наверно тем, что до изучения GetMem руки не дошли :)
Плохиш (2007-08-20 16:36:00) [2]
> Кирей (20.08.07 16:19) [12]
А чем PChar не угодил?
Кирей (2007-08-20 16:19:00) [3]Я в смысле, можно ли сделать так:Text_OEM:array[0..размер файла] of char;
pavel_guzhanov (2007-08-20 16:15:00) [4]
> pavel_guzhanov © (20.08.07 16:13) [10]
>
> > А есть ограничение по размеру Text_OEM?
>
> Насколько я понимаю, только ограничение для char ...
Эх, глупость написал :о)) Извиняюсь.
pavel_guzhanov (2007-08-20 16:13:00) [5]
> А есть ограничение по размеру Text_OEM?
Насколько я понимаю, только ограничение для char ...
Кирей (2007-08-20 16:12:00) [6]
> pavel_guzhanov ©
А есть ограничение по размеру Text_OEM?
Германн (2007-08-20 16:00:00) [7]
> Src, Str
Память под
> Src, Str
выделять Пушкин будет?
pavel_guzhanov (2007-08-20 15:58:00) [8]
var Text_OEM:array[0..30] of char;// размерность надо указать правильно
Text_win:String;
begin
Text_win:=//твоя строка в win кодировке
FillChar(Text_OEM, 31, #0);
CharToOem(PAnsiChar(Text_win), Text_OEM);// text_oem - это строка в дос кодировке
end;
Кирей (2007-08-20 15:57:00) [9]procedure TForm1.FormShow(Sender: TObject);
var
Src, Str:PChar;
begin
Src := Memo1.Lines.GetText;
CharToOem(Src, Str);
Memo2.Lines.Text := StrPas(Str);
end;
Jeer (2007-08-20 15:53:00) [10]Там нет примера - там набор функций, а твой пример никому не известен, кроме тебя.
MBo (2007-08-20 15:52:00) [11]код покажешь?
Кирей (2007-08-20 15:48:00) [12]Ну не получилось с файлами, попробовал сделать все как в примере - то же самое
Jeer (2007-08-20 15:46:00) [13]Там нет никаких файлов - начни с этого.
Вася Правильный (2007-08-20 15:36:00) [14]отладчиком пользоваться умеешь?
| |
