In Asm-Prozedur eine Exception auslösen

[jaenicke]

Zitat von Amateurprofi:

@Kas Ob.
Thanks for your detailed comments in #8.
Unfortunately not was I am looking for, because I dont want to call procedures outside of my Asm-Procedure (except system-routines).

Hattest du diesen Teil seines Codes übersehen?

Zitat von Kas Ob.:

Here a simple code that will work for 32bit

Code:

//[..]
procedure ExceptionAsm32;
const
  pMyExClass: ExceptClass = (TMyException);
  LocalExceptionMsg : string = 'Error from Assembly';
asm
  mov     edx, LocalExceptionMsg
  mov     eax, pMyExClass
  Call    GetException
  Call    system.@RaiseExcept
end;

Zitat von paule32.jk:

Einfach einen Einzeiler Assembler mittels inline Code zu realisieren geht halt nicht, weil IHR schon geschrieben habt, das eine Instanz zu einer Exception Klasse vorliegen muss.

Klaus hat doch schon in seinem Eingangspost den notwendigen Assemblercode gepostet. Die einzige Frage war, wie er nun EAX korrekt befüllen muss. Die Lösung hatte Kas Ob. ja auch schon gepostet.

Zitat von paule32.jk:

Ich habe jetzt keinen Delphi-Dissambler gefunden

Delphi?
DelphiAsm.png