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

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