Главная страница
    Top.Mail.Ru    Яндекс.Метрика
Форум: "Начинающим";
Текущий архив: 2007.09.16;
Скачать: [xml.tar.bz2];

Вниз

ошибка при перекодировке 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 вся ветка

Форум: "Начинающим";
Текущий архив: 2007.09.16;
Скачать: [xml.tar.bz2];

Наверх





Память: 0.47 MB
Время: 0.036 c
15-1187356097
TUser
2007-08-17 17:08
2007.09.16
Украина первой в мире признала астрологию наукой


2-1187804192
nord489
2007-08-22 21:36
2007.09.16
PopupMenu


8-1165916716
zenov
2006-12-12 12:45
2007.09.16
как подключить к своей проге плагины аудиовывода из Winamp?


15-1187683863
vajo
2007-08-21 12:11
2007.09.16
Покупка лицензионных Win


6-1169389960
AdmeraL
2007-01-21 17:32
2007.09.16
TWebBrowser





Afrikaans Albanian Arabic Armenian Azerbaijani Basque Belarusian Bulgarian Catalan Chinese (Simplified) Chinese (Traditional) Croatian Czech Danish Dutch English Estonian Filipino Finnish French
Galician Georgian German Greek Haitian Creole Hebrew Hindi Hungarian Icelandic Indonesian Irish Italian Japanese Korean Latvian Lithuanian Macedonian Malay Maltese Norwegian
Persian Polish Portuguese Romanian Russian Serbian Slovak Slovenian Spanish Swahili Swedish Thai Turkish Ukrainian Urdu Vietnamese Welsh Yiddish Bengali Bosnian
Cebuano Esperanto Gujarati Hausa Hmong Igbo Javanese Kannada Khmer Lao Latin Maori Marathi Mongolian Nepali Punjabi Somali Tamil Telugu Yoruba
Zulu
Английский Французский Немецкий Итальянский Португальский Русский Испанский