Dynamisches aufrufen einer beliebigen Methode (Asm und Co.)

[olee]

Hi,

Ich habe hier mal ein (meiner Meinung nach) sehr spezielles und sehr schwieriges Problem für unsere Delphi-Spezis :shock:

Ich habe meine Script Engine "RUTIS" programmiert, und würde jetzt gerne eine möglichkeit einbauen, in einem Script
Methoden aus DLLs usw. dynamisch zu laden und aufzurufen.
Bsp (ScriptCode):

Delphi-Quellcode:

function GetTickCount: Cardinal; stdcall; external 'kernel32.dll' name 'GetTickCount';

Diese Funktion soll man praktisch im Script deklarieren können und dann auch von dort heraus aufrufen können.

Die Paramter (wenn bei einer Methode welche benötigt werden) kann ich problemlos als Datenstream bereitstellen
(für jeden parameter ein Pointer) sowie einen Pointer für ein Result, wenn eines vorhanden ist.

Auch das Laden der Methodenadresse aus der DLL ist kein Problem (GetProcAddress).

Mein Problem besteht nun darin, wie ich die Methode mit den Parametern aufrufe.

Ichhabe mir schon gedacht, das das über assembler gehen müsste, nur leide beherrsche ich kein Assembler.

Wenn einer Lösungsvorschläge hat, wäre ich sehr dankbar.

Ramenbedingungen (also was ich schon habe):

Delphi-Quellcode:

type
  TRutisParamInfo = record
    Data : PByte;
    Adr  : Integer;
    Size : Byte;
    RType: TRutisTypeDecl;  //Info über den Variablentyp also Byte, Word, Shortint, Boolean, usw.
  end;
  PRutisParamInfo = ^TRutisParamInfo;

  TRutisParamInfoArray = Array Of TRutisParamInfo;
  PRutisParamInfoArray = ^TRutisParamInfoArray;

  TLibProcData = record
    //Enthält beliebige Daten zu der Funktion, die aufgerufen werden soll
    //also alles, was man z.B. aus der Zeile oben bei GetickCount herauslesen kann
    //hier könnt ihr dann Sachen angeben, die man zum aufrufen der Funktion benötigen würde
    ProcAddr: Pointer; 
    [.....]
  end;
  
procedure DynCallProc(ProcData: TLibProcData; Params : PRutisParamInfoArray; Result : PRutisParamInfo);
var 
  Param1 : Integer;
begin
  //Beispielcode für Abfrage von Parametern / Result
  Param1 := PInteger(Params^[0].Data)^
  PInteger(Result^.Data)^ := TuIwasMitParam1(Param1);
end;

Meine bisherige Idee war, die Funktion über Assembler aufzurufen, was aber bisher noch an meinem verständnis von assembler hängt, das nicht gerade groß ist.
Meine Idee war, erstmal die Funktion zu analysieren und dann an einer speicheradresse einen dynamischen ASM block zu schreiben
--> Also die Anweisungen von assembler selbst zu schreiben und am ende den block über ein call aufzurufen.

Ich hoffe ihr könnt mir helfen.

EDIT 1:
Es muss vorerst keine Funktion aus einer DLL sein es sollte ja genau so gut mit einer Funktion gehen, die fest
im Code ist, da man sich von dieser ja auch die Adresse holen kann.

MFG
Björn Zeutzheim

[Astat]

Hallo olee.

Sieh mal da.

http://www.swissdelphicenter.ch/de/showcode.php?id=1745

lg. Astat

[olee]

O M G

Das war schneller als ichs mir erhofft habe!

DANKE erstmal ich bin mir es gerade am durchlesen :wink:

EDIT:
Ich habe es jetzt durch und es scheint genau das zu sein, was ich wollte.
Nur 2 Fragen stellen sich mir da noch:
1) Wie sieht es mit den verschiedenen Funktionstypen (stdcall, usw.) aus?
2) Wie funktioniert das laden der Paramter? Der verwendet da doch nur Push aber müssen da nicht iwie die ersten Parameter auf die freien Regster und dann (wenns zu viele sind) aud den Stack?

MFG

[Blup]

In der Delphi-Hilfe unter "Prozeduren und Funktionen" -> "Aufrufkonventionen" ist eigentlich recht gut beschrieben, wie und in welcher Reihenfolge die Parameter übergeben werden.