Скачать: CL | DM;

ошибка при перекодировке 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 ©   (2007-08-20 16:15) [11]

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


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

---

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

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

---

← →
Плохиш ©   (2007-08-20 16:36) [13]

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

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

---

← →
Германн ©   (2007-08-20 18:06) [14]

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

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

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.47 MB
Время: 0.019 c