Ich habe ja echt keinen Bock das ganze nachzucoden ... somit ist meine Hilfe leider stark eingeschränkt..
teste doch mal ob das hier funktioniert.
Delphi-Quellcode:
procedure TForm1.JabberSession1Message(ASender: TObject; const Msg: IJabberMsg; const Tag: IXMLTag);
var
myMsg : TJabberMsg;
begin
IUnknown(Msg).QueryInterface(IJabberMsg, myMsg);
ShowMessage(myMsg.FromJID);
end;