Methode wird vom Automatisierungsobjekt nicht unterstützt

[Luckie]

Ich reagiere auf folgende Nachricht:

Delphi-Quellcode:

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?

[TKC]

hi, versuchs mal so ...

Delphi-Quellcode:

procedure TDWJabberMsg.FOnMessageEvent(Sender: TObject; var Msg: OleVariant; var Tag: OleVariant);
begin
  ShowMessage(TDWJabberMsg(Msg).FromJID);
  if Assigned(OnDWMessage) then
  begin
    FOnMessage(self, Msg, Tag);
  end;
end;

[Luckie]

Leider kommt da: "Ungültige Typumwandlung". :(

[TKC]

hmm evtl reicht ja folgendes ...

Delphi-Quellcode:

procedure TDWJabberMsg.FOnMessageEvent(Sender: TObject; var Msg: OleVariant; var Tag: OleVariant);
begin
  ShowMessage(Msg);
  if Assigned(OnDWMessage) then
  begin
    FOnMessage(self, Msg, Tag);
  end;
end;

poste doch mal bitte das komplette interface ... dann kann ichs besser verstehen :wink:

[Luckie]

Ich kann die Typbibliothek mal anhängen, weil ich nicht weiß, was du brauchst.

[TKC]

also

OnMessage(Msg: IJabberMsg; Tag: IXMLTag)

ist was ganz anderes als

TDWJabberMsg.FOnMessageEvent(Sender: TObject; var Msg: OleVariant; var Tag: OleVariant);

...auf was reagierst du denn nun ?

[Luckie]

Ich habe das in einer Klasse. In der wird der Event ausgelöst und dann wird der Event nach draußen weitergereicht, damit man drauf reagieren kann, wenn man die Klasse benutzt. Hat bisher sehr gut Funktioniert.

Beispiel:
Konstruktor:

Delphi-Quellcode:

  TOnAuthError = procedure(Sender: TObject; var ErrorText: OleVariant) of object;


  TOnRosterItem = procedure(Sender: TObject; var Item: OleVariant) of object;

  TDWJabberSession = class(TObject)
  private
    FJabberSession: TJabberSession;
    ...
    FOnAuthError: TOnAuthError;
    ...
    procedure FOnAuthErrorEvent(Sender: TObject; var ErrorText: OleVariant);
  public
    ...
    property OnDWAuthError: TOnAuthError read FOnAuthError write FOnAuthError;
    ...
  end;


constructor TDWJabberSession.Create;
begin
  FJabberSession := TJabberSession.Create(nil);
  with FJabberSession do
  begin    
    ...
    OnAuthError := FOnAuthErrorEvent;
    ...
  end;
end;

procedure TDWJabberSession.FOnAuthErrorEvent(Sender: TObject; var ErrorText: OleVariant);
begin
  if Assigned(OnDWAuthError) then
    FOnAuthError(Self, ErrorText);
end;

Und dann im Forular:

Delphi-Quellcode:

procedure TForm1.OnJabAuthError(Sender: TObject;
  var ErrorText: OleVariant);
begin
  Memo1.Lines.Add(ErrorText + JabSes.LastError);
end;

Mit diesem Ereignis geht das wunderbar, weil der Paramter vom Typ OleVariant ist. Jertzt weiß ichnicht, wie ich damit umgehen soll wenn der Parameter vom Typ IJabberMsg ist. Dieser Typ ist nach außenhin auch nicht bekannt.

Deklariere ich die Paramter wie hier:

Zitat:

OnMessage(Msg: IJabberMsg; Tag: IXMLTag)

Sagt er mir an dieser Stelle:

Delphi-Quellcode:

FJabberSession.OnMessage := FOnMessageEvent;

Zitat:

[Fehler] DWJabber.pas(295): Inkompatible Typen: 'OleVariant' und 'IJabberMsg'

Deswegen habe ich sie als OleVariant deklariert.

[TKC]

Warum nutzt du denn nicht den Componentenwrapper den dir Delphi erzeugt hat .. ist in der TLB Datei die du gepostet hast ?

[Luckie]

Das habe ich schon probiert, wenn ich mich nicht täusche (Ich habe chon so viel probiert... ;) ). Wie würde denn das it dem Komponentenwrapper aussehen? Wäre schön, wenn ich morgen im Laufe des tages dem Chef einen funktionierenden Client präsentieren könnte. :?

[TKC]

Was muss ich denn installieren um das interface selbst zu testen ?

[Luckie]

Du musst die Com-Server registrieren und dann die Typbibliothek importieren bzw. du kannst auch gleich meine Unit nehmen. Und zum Testen wäre natürlich ein Jabber Server nicht schlecht und eine schon halbwegs funktionierende Demo. Das wirst du aber nicht haben und den Code, den ich bisher habe kann ich nicht rausgeben, der ist für die Firma.

[TKC]

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;

[Luckie]

Zitat:

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

[Luckie]

So, da sind wir wieder.

Die gute Nachricht: Es läßt sich kompilieren und es kommt kein Fehler beim Ausführen. Die schlechte: myMsg ist immer nil. :(

[Luckie]

So, ich habe das ganze jezuz ohne Klasse gemacht und ich habe immer noch den selben Fehler, dabei sollte mein Code jetzt identisch mit dem von WinJab sein. Sie dazu Jabber1.pas aus dem Anhang Zeile 2881.

Ich verstehe es einfach nicht. :wall:

[TKC]

Irgendwie sieht meine TLB etwas anders aus als deine ... ich hänge sie mal an ..
kannste ja mal testweise austauschen.

Ist den Msg auch nil ???

[Luckie]

Aha. Jetzt stimmen die parmeter von den Ereignissen nicht mehr:

Delphi-Quellcode:

    procedure OnJabberConnect(Sender: TObject);
    procedure OnJabberCommError(Sender: TObject; var ErrorText: OleVariant);
    procedure OnJabberAuthError(Sender: Tobject; var ErrorText: OleVariant);
    procedure OnJabberDisConnect(Sender: TObject);
    procedure OnJabberRosterItem(Sender: TObject; var Item: OleVariant);
    procedure OnJabberRosterStart(Sender: TObject);
    procedure OnJabberRosterEnd(Sender: TObject);
    procedure OnJabberMessage(Sender: TObject; var Msg: OleVariant; var Tag: OleVariant);

Delphi-Quellcode:

  { Event handlers }
  with JabberSession do
  begin
    OnConnect := OnJabberConnect;
    OnCommError := OnJabberCommError;
    OnAuthError := OnJabberAuthError;
    OnDisconnect := OnJabberDisConnect;
    OnRosterItem := OnJabberRosterItem;
    OnRosterStart := OnJabberRosterStart;
    OnRosterEnd := OnJabberRosterEnd;
    OnMessage := OnJabberMessage;
  end;

Zitat:

[Fehler] Main.pas(105): Inkompatible Typen: 'Liste der Parameter ist unterschiedlich'

Bei dir:

Delphi-Quellcode:

TJabberSessionOnCommError = procedure(ASender: TObject; const ErrorText: WideString) of object;

Bei mir:

Delphi-Quellcode:

TJabberSessionOnCommError = procedure(Sender: TObject; var ErrorText: OleVariant) of object;

[Luckie]

JA! :bouncing4: :firejump: :bounce1: :bounce2: :dancer2: :witch: :hello: :roteyes: Es geht.

Mit welcher Delphi Version hast du die Typbibliothek erzeugt? Meine wurde mit Delphi 6 Professional erzeugt. :roll:

[TKC]

gibts doch gar nicht ...

Habs mit D2006 gemacht .

Schön das ich dir helfen konnte .

[Luckie]

Du bist klasse. Besten, besten herzlichen Dank. :P

[TKC]

Kein Problem .. deine Sourcen haben mir schon sehr oft weitergeholfen :wink: