Methode wird vom Automatisierungsobjekt nicht unterstützt

[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:
FJabberSession.OnMessage := FOnMessageEvent;

Zitat:

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

Deswegen habe ich sie als OleVariant deklariert.