Главная страница
    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.041 c
11-1169575891
Trible
2007-01-23 21:11
2007.09.16
Примитивные объекты: вопрос.


2-1187705004
iXT
2007-08-21 18:03
2007.09.16
TToolBar


15-1187291152
Piter
2007-08-16 23:05
2007.09.16
Acer TravelMate 2492, кривые драйвера на оф. сайте?


2-1187779985
w666w
2007-08-22 14:53
2007.09.16
Прочитать бинарный файл в строку


2-1187726666
Kiber1
2007-08-22 00:04
2007.09.16
Debugger Fault Notification





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
Английский Французский Немецкий Итальянский Португальский Русский Испанский