Delphi-Quellcode:
TCallbackProcedure = procedure(Msg: string); stdcall;
TMyMsgEvent = procedure(Msg: string) of object;
// TCallbackProcedure != TMyMsgEvent
// ein "of object" fuegt einen (nicht sichtbaren) 1. neuen Parameter ein
// Technisch ist demnach das TMyMsgEvent ein
// TMyMsgEvent2 = procedure(Sender: TObject; Msg: string)
// diese sind nicht kompatibel (daher die Fehlermeldung)
Entweder du nimmst ein "TMyMsgEvent2" und übergibst zusätzlich das "self" als Parameter an die
DLL. Die
Dll muss das Objekt zwischenspeichern und beim Aufruf ebenfalls übergeben. Du benoetigst dann eine Funktion ShowDLLMessageExt (keine Methode). Innerhalb dieser kannst du das Objekt dann casten und die Methode aufrufen. Dann sparst du dir die globale Variable:
Delphi-Quellcode:
procedure ShowDLLMessageExt(obj: TObject; sMsg: widestring); stdcall;
begin
TintDll(obj).OnMyMsg(sMsg);
end;
oder du nimmst ein TMyMsgEvent und übergibst beim Callback dieses (sollte hoffentlich funktionieren).