Casa
Top.Mail.Ru Yandeks.Metrika
Foro: "Principal";
Archivo actual: 2002.01.08;
Descargar: [xml.tar.bz2];
abajo

Как вызвать системную ошибку. Encontrar ramas similares


Andrewv   (2001-12-18 14:14) (1)

Можно ли из собственной программы вызвать системную ошибку
"Программа выполнила недопустимую операцию"?


Andrey Senchenko (2001-12-18 14:25) (1)


var
i : integer
begin
i := i/0
end.

или нужен генератор ошибок по выбору ?


Dimka Maslov (2001-12-18 17:26) (1)

ExceptObjProc:=nil;
PInteger(nil)^:=0;


Pat (2001-12-18 17:45) (1)

>Андрей Сенченко
А сам проверял?


panov2001-12-18 17:56) (1)

var
s : String;
p: Pointer;
comenzar
s := "Exception";
p := nil;
Move(s,p,9);



Denso2001-12-18 21:59) (1)

var Obj:TLabel;//любой компонентный тип
//нигде не вызывается конструктор Obj!
comenzar
//обращение к несозданому объекту
Obj.Caption := "Exception! Ha-ha dva raza!";
fin;



Alexey Petrov (2001-12-19 08:46) (1)

Человек просил недопустимую операцию - а вы ему access violation хором предлагаете :)

Priveleged instruction:

asm
hlt
end;


А это чисто недопустимая операция

asm
lock nop
end



Digitman (2001-12-19 08:55) (1)

Абсолютно согласен с <Алексей Петров>


Bizon (2001-12-19 10:05) (1)

Попробывал последний вариант.
Ошибка External Exception и в 98 и в 2к
Eso es todo.


Alexey Petrov (2001-12-19 10:20) (1)

External Exception - Это Delphi-йская обертка над всеми неведомыми для Delphi исключениями.
А код соответствует, как раз, процессорному исключению "неверный код операции".



Bizon (2001-12-19 10:26) (1)

Замечательно, но эта обработка высвечивается в сообщении, а как сделать чтобы было четко написано: Программа выполнила......
Как в wind`е обычно.


Dimka Maslov (2001-12-19 10:36) (1)

В Delphi определён адрес обработчика исключений ExceptObjProc, если он определён, то при возникновении системной ошибки возникнет исключение. В противном случае - "программа выполнила недопустимую операцию"


Bizon (2001-12-19 10:41) (1)

Ок. Получилось.


handra2001-12-19 14:34) (1)

Нифига:
ExceptObjProc:=nil;
asm lock nop end;

Resultado:
Исключение unknown software exception и т.д.
Затем следующее:
Runtime error 255 at ....


Big_Hart   (2001-12-19 14:53) (1)

asm
Cli
final
Repetición:
until false




Páginas: 1 rama entera

Foro: "Principal";
Archivo actual: 2002.01.08;
Descargar: [xml.tar.bz2];

arriba















Memoria: 0.84 MB
Tiempo: 0.036 c
1-22194
Arte
2001-12-15 09:28
2002.01.08
Mijo pregunta!


1-22213
T2
2001-12-16 07:14
2002.01.08
Secreto Api & oth.


1-22227
Tosov
2001-12-15 10:43
2002.01.08
Cómo trabajar con TInplaceEdit


14-22371
Denso
2001-11-08 17:11
2002.01.08
¿Vida después de la muerte?


14-22414
wHammer
2001-11-12 10:48
2002.01.08
Delphi 5 and(or(xor)) C++ Builder 5?





africaans albanés Arabic armenio Azerbaiyán vasco Bielorruso Bulgarian Catalán Chino (simplificado) Chino (tradicional) Croata Checo Danés Dutch Inglés Estonia filipina Finnish Francés
gallego georgiano Alemán Griego criollo haitiano hebreo hindi Húngaro islandés Indonesian irlandés Italiano Japonés Korean letón lituano macedonio Malay maltés Noruego
persa polaco Portuguese rumano Ruso Serbio Slovak Esloveno Español swahili Sueco Thai turco ucranio Urdu vietnamita galés yídish bengalí bosnio
cebuano esperanto gujarati hausa hmong igbo javanés kannada khmer lao latín maorí marathi mongol nepali punjabi somalí Tamil telugu yoruba
zulú
Английский Francés Alemán Italiano portugués Русский Español