Einzelnen Beitrag anzeigen

Benutzerbild von Zacherl
Zacherl

Registriert seit: 3. Sep 2004
4.629 Beiträge
 
Delphi 10.2 Tokyo Starter
 
#9

AW: Inline Assembler: CALL

  Alt 13. Sep 2016, 17:13
Also thiscall (ECX = Pointer zur Objektinstanz) ist auch ohne Assembly möglich:
Delphi-Quellcode:
type
  TFunctionPointer = function(A, B, C: Integer): Integer of object;

// Aufruf
var
  Method: TMethod;
begin
  Method.Code := Pointer($00401234); // Adresse der Funktion
  Method.Data := Pointer($00749624); // Adresse der Objektinstanz
  Result := TFunctionPointer(Method)(1, 2, 3);
Ich glaube lediglich fastcall (und natürlich alle nicht-standard Conventions) wird von Delphi nicht unterstüzt.
Projekte:
- GitHub (Profil, zyantific)
- zYan Disassembler Engine ( Zydis Online, Zydis GitHub)

Geändert von Zacherl (13. Sep 2016 um 17:16 Uhr)
  Mit Zitat antworten Zitat