1. Заголовок темы должен быть информативным. В противном случае тема удаляется ... 2. Все тексты программ должны помещаться в теги [code=pas] ... [/code], либо быть опубликованы на нашем PasteBin в режиме вечного хранения. 3. Прежде чем задавать вопрос, см. "FAQ", если там не нашли ответа, воспользуйтесь ПОИСКОМ, возможно такую задачу уже решали! 4. Не предлагайте свои решения на других языках, кроме Паскаля (исключение - только с согласия модератора). 5. НЕ используйте форум для личного общения, все что не относится к обсуждению темы - на PM! 6. Одна тема - один вопрос (задача) 7.Проверяйте программы перед тем, как разместить их на форуме!!! 8.Спрашивайте и отвечайте четко и по существу!!!
Хотелось бы написать программку которая вызывала ошибку в распределении памяти... для этого я хочу написать 3 проги . первая - читает число(в указатель), адрес указателя пишет в файл, ждет действия второй програмки(которая будет пытаться прочитать/изменить значения указателя) и печатает это же число. первую програмку я то написал но с ошибками
var p : ^integer; ad: integer; f :file of integer; begin Assign(f,'file.txt'); Rewrite(f);
New(p); readln(p^);
ad:=Addr(p); //ошибка, можна конечно прать отдельно сигмент и сдвиг но это не то... write(f, ad);
Close(f);
(*readln; read;*) while IOResult = 0 //замена, пока файл не удален другой программой, do {$I-} Reset(f); {$I+} //будем надеятся у нее это получится
writeln(p^);
readln; read; end.
заранее благодарен.
добавлено (вторая программа+в первой уничтожена одна переменная)
var p : ^integer; f :file of integer; begin Assign(f,'file.txt'); Reset(f);
Если честно - я не совсем понял смысл того, что ты хочешь сделать (я имею в виду, зачем тебе это пригодится?) - из одного процесса хочешь получить доступ к адресному пространству другого процесса? Тогда см. DRKB, там по-моему описано, как это делать... Просто так это у тебя не получится, я ж говорил тебе что ты получаешь AV.
Добавлено через 1 мин. P.S. А ошибку распределения памяти можно вызвать (RunError + номер ошибки), а не создавать искусственно.
а мне 2 , а вот для LongInt - 4... надо будет наверно спросить на форуме FP.. и создать тему в 32 битных компиляторах что б другии люди тоже по тестировали. Что думаешь?
Цитата(volvo @ 27.05.2007 15:53)
Если честно - я не совсем понял смысл того, что ты хочешь сделать ... Просто так это у тебя не получится, я ж говорил тебе что ты получаешь AV.
что б больше такое не писать
Цитата(volvo @ 27.05.2007 15:53)
А ошибку распределения памяти можно вызвать (RunError + номер ошибки), а не создавать искусственно.
Ничего не надо спрашивать... Я и так тебе скажу: это зависит от {$mode} или Options -> Compiler -> (вкладка) Syntax -> Compiler mode... Если там стоит "Turbo Pascal compatible" - то будет двухбайтовое целое, если Delphi/FPC - то четырехбайтовое...
А подробнее - процедура RunError как раз и используется для отладки реакции программы на ошибки: после ее вызова программа ведет себя так, как будто в ней произошла ошибка с заданным номером - чтобы проверить, как программа себя поведет, когда ей реально встретится такая ошибка...
Ничего не надо спрашивать... Я и так тебе скажу: это зависит от {$mode} или Options -> Compiler -> (вкладка) Syntax -> Compiler mode... Если там стоит "Turbo Pascal compatible" - то будет двухбайтовое целое, если Delphi/FPC - то четырехбайтовое...
При Delphi действительно 4, но при TPC/FPC -2 и 4 (Integer и LongInt)...
D.3 Delphi mode ... 5. The Objpas unit is loaded right after the system unit. One of the consequences of this is that the type Integer is redefined as Longint. ...
D.5 ObjFPC mode ... 5. The Objpas unit is loaded right after the system unit. One of the consequences of this is that the type Integer is redefined as Longint. ...
Во всех остальных случаях размеры Integer и LongInt НЕ совпадают...
var p : ^longint; //указатель f :file of longint; //файл l:longint; //число begin Assign(f,'file.txt');//связываем файл с переменной Reset(f); //откпываем файл
Ты можешь мне объяснить, ЧЕГО ты хочешь добиться??? (словами, без этого бреда, который ты тут написал?)
Ну, допустим, вначале запускается программа, СОЗДАЮЩАЯ файл... Хорошо, запустил я ее... Ввел число... Что дальше происходит, ты подумал? Что ты пишешь в файл? Указатель на указатель на LongInt? Допустим... Только учти, что этот указатель, который ты пишешь - он валиден только в той программе, в которой было выделение памяти. Другая программа - другой процесс, другое адресное пространство...
Хорошо, забудем про это на секунду...
Что ты делаешь дальше (и, соответственно, что должен делать я, чтобы повторить полученный тобой результат?) - закрыл файл... Допустим, это тебе разрешат сделать... Дальше что? Ты переоткрываешь файл, пока он переоткрывается, т.е., по твоей задумке - пока вторая программа его не удалит? А кто ей даст удалить файл, занятый другим процессом, ты не подумал? Ты моментально получишь AccessDenied даже при попытке Reset-а!
Забудем и про это... Теперь, по твоей задумке, я должен запустить вторую программу, так? Которая у тебя почему-то приведена первой (ты бы хоть комментарии оставлял, что запускать когда, здесь не форум телепатов, все-таки). Хорошо, запустил. Дальше что? Прочел из файла значение в переменную L... Ты не забыл, что там записано? Я тебе напомню, указатель на указатель на LongInt. Что ты делаешь с L? Печатаешь его? И что ты хотел получить? Тебе если на то пошло надо печатать вот это:
type plongint = ^longint; pplongint = ^plongint;
var p: plongint; f: file of longint; l: longint; begin ... read(f, l); p := pplongint(l)^; write(p^); // Вот это ты должен печатать !!! ... end.
Но вся эта цепочка, которую ты задумал, прервется гораздо раньше - по Access Denied при попытке открытия файла, занятого другим приложением.