ошибка при перекодировке CharToOem

← →
Кирей (2007-08-20 15:33) [0]

Пытаюсь перевести файл из кодировки виндовс в дос, дает ошибку "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 15:36) [1]

отладчиком пользоваться умеешь?

← →
Jeer © (2007-08-20 15:46) [2]

Там нет никаких файлов - начни с этого.

← →
Кирей (2007-08-20 15:48) [3]

Ну не получилось с файлами, попробовал сделать все как в примере - то же самое

← →
MBo © (2007-08-20 15:52) [4]

код покажешь?

← →
Jeer © (2007-08-20 15:53) [5]

Там нет примера - там набор функций, а твой пример никому не известен, кроме тебя.

← →
Кирей (2007-08-20 15:57) [6]

procedure TForm1.FormShow(Sender: TObject);
var
Src, Str:PChar;
begin
Src := Memo1.Lines.GetText;
CharToOem(Src, Str);
Memo2.Lines.Text := StrPas(Str);
end;

← →
pavel_guzhanov © (2007-08-20 15:58) [7]

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 16:00) [8]

> Src, Str

Память под
> Src, Str
выделять Пушкин будет?

← →
Кирей (2007-08-20 16:12) [9]

> pavel_guzhanov ©

А есть ограничение по размеру Text_OEM?

← →
pavel_guzhanov © (2007-08-20 16:13) [10]

> А есть ограничение по размеру Text_OEM?

Насколько я понимаю, только ограничение для char ...

> pavel_guzhanov © (20.08.07 16:13) [10]
>
> > А есть ограничение по размеру Text_OEM?
>
> Насколько я понимаю, только ограничение для char ...

Эх, глупость написал :о)) Извиняюсь.

← →
Кирей (2007-08-20 16:19) [12]

Я в смысле, можно ли сделать так:Text_OEM:array[0..размер файла] of char;

> Кирей (20.08.07 16:19) [12]

А чем PChar не угодил?

> Плохиш © (20.08.07 16:36) [13]
>
>
> > Кирей (20.08.07 16:19) [12]
>
> А чем PChar не угодил?
>

Наверно тем, что до изучения GetMem руки не дошли :)

ошибка при перекодировке CharToOem Найти похожие ветки