Probmelm mit: "Dynamisches Einbinden einer DLL"

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