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:
TJabberSessionOnCommError = procedure(ASender: TObject; const ErrorText: WideString) of object;
Bei mir:
TJabberSessionOnCommError = procedure(Sender: TObject; var ErrorText: OleVariant) of object;