Inline Assembler: CALL

[Stevie]

Zitat von Amicello:

Delphi scheint das nicht als absolute Konstante im Programmcode zu verwursten, sondern legt schön eine 4-Byte breite Variable mit dem Wert als Inhalt an.

Delphi-Quellcode:

const
  adr_00845C55: DWORD = $00845C55;

Das liegt daran, dass du hier eine sogenannte Typisierte Konstante deklariert hast.

[Amicello]

Zitat von Stevie:

Das liegt daran, dass du hier eine sogenannte Typisierte Konstante deklariert hast.

Ja.. da hab ich mich auch schon versucht etwas einzulesen. Speicherzugriffe mit PDWORD Variablen(^) sind auch herrlich bequem.
Irgendwann werd ich mich wohl auch noch dran gewöhnen wo man ein ";" setzt und wo nicht
Nur mit der IDE steh ich noch auf Kriegsfuß (Stichwort TABS, Zeilenende) .. aber ich denke das wird auch.

[Zacherl]

Falls du lieber auf inline-Assembly verzichten willst, geht sogar Folgendes:

Delphi-Quellcode:

type
  TFunctionPointer = function(A, B, C: Integer): Integer; stdcall;

// Aufruf
TFunctionPointer($00401234)(1, 2, 3);

Je nachdem was für Funktionen du aufrufst, musst du natürlich schauen, ob die überhaupt einer Standard Calling-Convention (stdcall, cdecl, etc.) folgen. Falls nicht, kommst du um den Assembler-Code wohl nicht herum.

[Amicello]

Zitat von Zacherl:

Falls du lieber auf inline-Assembly verzichten willst, geht sogar Folgendes: (...)

Interessanter Ansatz!
Manche Programmfunktionen erfordern zusätzlich zum PUSH'en der Paramenter aber auch noch bestimmte Suchverweisen, Kriterien etc. z.B. in den Registern EAX/ECX. Da muss ich dann in die Assemblertrickkiste greifen, aber trotzdem danke für deinen Tipp!
Ich werde den sicherlich an der ein oder anderen Stelle mit einbauen.

[Zacherl]

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.

[Stevie]

Zitat von Zacherl:

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);

Das ist nicht korrekt. thiscall geht so

[Amicello]

So - jetzt muss ich mal wirklich ein großes Kompliment an die Aktiven hier im Forum loswerden.

Delphi ist ein Thema, bei dem man insbesondere als Anfänger gern mal stundenlang im Kreis herum googlen kann - und dabei häufig nur allgemeines Blabla, geistigen Unfug und unnütze Dinge findet, die man eh schon längst wusste.

So konkrete Antworten genau auf den Punkt wie hier im Forum, dazu noch weitergehende Vorschläge wie man das ganze noch verbessern oder eleganter lösen kann...
Was soll ich sagen - Danke und ich ziehe den Hut.. Chapeau Jungs (oder Mädels)

[Zacherl]

Zitat von Stevie:

Das ist nicht korrekt. thiscall geht so

Hast du natürlich recht. Der Codeschnipsel von mir funktioniert nur mit Delphi-eigenen Methoden (Register-Call + versteckter This-Pointer als erstes Argument).