Methode wird vom Automatisierungsobjekt nicht unterstützt

[Luckie]

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;
    ...;