Probmelm mit: "Dynamisches Einbinden einer DLL"

[jbg]

Du brauchst also einen Pascal Interpreter. Da könnte ich dir die JVCL Komponente TJvInterpreterProgram vorschlagen.


Hier ist mal eine mögliche Anwendung:

Delphi-Quellcode:

procedure MyTest(var s: string; a: Integer); stdcall;
begin
  ShowMessage(s + ' ' + IntToStr(a));
  s := 'Was anderes';
end;

exports
  MyTest;

initialization
  GlobalJvInterpreterAdapter.
    AddExtFun('system', 'MyTest', 0, ParamStr(0), 'MyTest', -1, 2, [varByRef or varString, varInteger], varEmpty);
end.

Und der zu interpretierende Code sieht so aus:

Delphi-Quellcode:

unit Test;
interface

implementation

function main: string;
var s: string;
begin
  s := 'Hallo'
  MyTest(s, 1000);
  MyTest(s, 300);
end;

end.

[Mike_C]

Hi!

@jgb:
also, wenn ich dich richtig verstanden habe, brauche ich eine DLL, die ungefähr so aussieht:

Delphi-Quellcode:

uses
  SysUtils,
  Classes,
  JvComponent,
  JvInterpreter,
  Messages,
  Dialogs,
  Forms;

{$R *.res}

{$E lib}

var
  JvInterpreterProgram : TJvInterpreterProgram;

procedure MyTest(var s: string; a: Integer); stdcall;
begin
  ShowMessage(s + ' ' + IntToStr(a));
  s := 'Was anderes';
end;

exports
  MyTest;

begin
  JvInterpreterProgram := TJvInterpreterProgram.Create(Application.MainForm);
  JvInterpreterProgram.Adapter.AddExtFun('system', 'MyTest', 0, ParamStr(0), 'MyTest', -1, 2, [varByRef or varString, varInteger], varEmpty);
end.

und in der Anwendung eine Rountine, die dann etwa das macht:

Delphi-Quellcode:

//Funktion importieren (statisch für Test)
procedure MyTest(var s: string; a: Integer); stdcall;external'libInterpret.lib';

...

//Anwendung...
procedure TForm1.Button1Click(Sender: TObject);
var s: string;
begin
  s := 'Hallo';
  MyTest(s,1000);
  MyTest(s,300);
end;

[jbg]

Man benötigt nicht unbedingt eine DLL. Das PE-Format (Windows Executable) unterstützt auch das Exportieren von Funktionen in einer exe-Datei.