COM-Events verwenden

[Luckie]

Hat sich erledigt:

Delphi-Quellcode:

procedure TForm1.JabOnConnect;
begin
  Memo1.Lines.Add('Verbunden');
end;

procedure TForm1.JabOnAuthError(Sender: TObject; var ErrorText: OleVariant);
begin
  Memo1.Lines.Add(ErrorText);
end;

procedure TForm1.JabOnCommError(Sender: TObject; var ErrorText: OleVariant);
begin
  Memo1.Lines.Add(ErrorText);
end;

procedure TForm1.btnConnectClick(Sender: TObject);
var
  JabSes            : TJabberSession;
begin
  JabSes := TJabberSession.Create(Form1);
  try
    JabSes.Server := txtServer.Text;
    JabSes.Port := StrToInt(txtPort.Text);
    JabSes.Username := txtUser.Text;
    JabSes.Password := txtPass.Text;
    JabSes.Resource := 'Spark';
    JabSes.OnConnect := JabOnConnect;
    JabSes.OnAuthError := JabOnAuthError;

    JabSes.DoConnect(False, jatPlainText);
  finally
    JabSes.Free;
  end;
end;