Forum: Sonstige Fragen zu Delphi
Delphi
by Luckie,
14. Feb 2006
Hat sich erledigt:
procedure TForm1.JabOnConnect;
begin
Memo1.Lines.Add('Verbunden');
end;
procedure TForm1.JabOnAuthError(Sender: TObject; var ErrorText: OleVariant);
begin
Memo1.Lines.Add(ErrorText);
Forum: Sonstige Fragen zu Delphi
Delphi
by Luckie,
13. Feb 2006
Ich will ja nichts umändern. Es wird ja ein Event ausgelöst und darauf will ich reagieren, mehr nicht.
Forum: Sonstige Fragen zu Delphi
Delphi
by Luckie,
13. Feb 2006
Ich habe hier ein ein Interface mit Events vorliegen:
IJabberSessionEvents = dispinterface
procedure OnConnect; dispid 1;
procedure OnDisconnect; dispid 2;
procedure OnAuthError(const ErrorText: WideString); dispid 3;
procedure OnCommError(const ErrorText: WideString); dispid 4;
...
...