Ich reagiere auf folgende Nachricht:
OnMessage(Msg: IJabberMsg; Tag: IXMLTag)
Das sieht bei mir so aus:
Delphi-Quellcode:
procedure TDWJabberMsg.FOnMessageEvent(Sender: TObject; var Msg: OleVariant; var Tag: OleVariant);
begin
ShowMessage(Msg.FromJID);
if Assigned(OnDWMessage) then
begin
FOnMessage(self, Msg, Tag);
end;
end;
Jetzt kommt aber die
Exception, dass die Methode FromJID nicht von dem Automatisierungsobjekt unterstützt wird. Obwohl sie eigentlich im Interface deklariert ist:
Delphi-Quellcode:
IJabberMsg = interface(IDispatch)
['{2AE8D231-B888-11D3-AECB-00A076A018E8}']
...
property FromJID: WideString read Get_FromJID write Set_FromJID;
...
end;
Wie komme ich jetzt da dran, um die Werte auszugeben?