Delphi Jabber Client

[thkerkmann]

Hi,

also ich habe selber schon die JabberCom benutzt und es klappt wunderbar.
Im OnCreate des Forms hab ich folgendes:

Delphi-Quellcode:

procedure TfrmEMSout_main.OnCreate(Sender: TObject);
  try
    JSession.Server := msgrServer;
    JSession.Username := msgrUsername;
    JSession.Password := msgrPassword;
    JSession.Resource := ExtractFileName(Application.Exename);
    JSession.DoConnect(false, jatAuto);
  except
    on E: Exception do
      Logout(E.Message);
  end;
end;

dann ein OnConnect Event

Delphi-Quellcode:

procedure TfrmEMSout_main.JSessionConnect(Sender: TObject);
begin
  JSession.Available := true;
  SendJabberMessage(ExtractFilename(Application.Exename) + ' up and running');
end;

und zum Senden folgendes

Delphi-Quellcode:

procedure TfrmEMSout_main.SendJabberMessage(const aMessage: string);
var
  mMsg: IJabberMsg;
begin
  // send a message
  mMsg := JSession.CreateMsg;
  // index := Integer(lbUsers.Items.Objects[lbUsers.ItemIndex]);
  mMsg.ToJID := msgrSendTo;
  mMsg.FromJID := JSession.Username;
  mMsg.MsgType := jmtNormal;
  mMsg.Body := aMessage;

  JSession.SendMessage(mMsg);
  mMsg := nil;
end;

Ich hatte auch mal ein kleines Testprogramm gemacht.... das such ich nochmal und wenn ich es finde stell ich es hier dazu.

Gruss

Thomas.

[edit]
Attachment drangehängt....
[/edit]