hi,
wie kann ich meine Form an eine
DLL als Parameter übergeben?
Form-Code:
Delphi-Quellcode:
function Form1.Send(const MeineFunktion: String; Sender: TObject): Boolean;
try
@CMDFunc := GetProcAddress('MeineDLL.dll', PChar(MeineFunktion));
Result := CMDFunc(ParamStr, Sender); //Sender ist meine Form //ParamStr hat noch keine Verwendung
except
Result := False;
end;
end;
Ich rufe sie so auf:
Send('Funktion1', Form1) //Funktion1 soll die Form schließen
DLL-Code:
Delphi-Quellcode:
function Funktion1(const ParamStr: String; Sender: TObject): Boolean;
begin
Result := False;
try
(Sender as TObject).Destroy;
Result := True;
except
Result := False;
end;
end;
Was muss ich ändern, damit der Quellcode funktioniert?
Im Moment macht er gar nichts, obwohl die Funktion ausgeführt wird.
Da haut doch was mit den Parametern nicht richtig hin.
Könnt ihr mir helfen?