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.