Zitat von
ACE-ppc:
Ich habe ja echt keinen Bock das ganze nachzucoden
Ja, ist verständlich. Da habe ich ja auch einen ganzen Tag drangesessen.
Zitat:
... somit ist meine Hilfe leider stark eingeschränkt..
Aber trotzdem besten Dank für deine Mühe.
Zitat:
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;
Werde ich gleich mal im Büro versuchen.
WinJab ist übrigens ein Client, der die den
Com-Server benutzt (Ist der gleiche Autor.
). Da habe ich schon mal in die Sourcen reingeguckt, aber die machen es eigentlich genauso, wie ich auch.
Einzigeste Unterschied, er hat Delphi 5 benutzt und ich benutze Delphi 6 Professional.
Aus dem WinJab Code:
Delphi-Quellcode:
procedure JabberMessage(Sender: TObject;
var Msg, Tag: OleVariant);
...;
...;
...;
{---------------------------------------}
procedure TfrmJabber.JabberMessage(Sender: TObject;
var Msg,
Tag: OleVariant);
var
FromJID:
string;
Subject:
string;
Body:
string;
MsgType: JabberMsgType;
...;
begin
// handle messages
// search for this user in the roster
FromJID := Msg.FromJID;
Subject := Msg.Subject;
Body := Msg.Body;
...;