IRC Userliste aktualisieren -> wiedermal...

[kurtm1]

Suchfunktion habe ich bereits benutzt, liefert aber auch keine Lösung.

Wie kann ich eine Userliste von der IRC Komponente von INDY 9 bekommen die immer aktualisiert wird?

thx

[Pseudemys Nelsoni]

das musst du natürlich selbst tun (OnJoin, OnPart, OnQuit)

[kurtm1]

Kannst du mir mal ein paar Denkanstöße dazu geben?

Bis jetzt habe ich folgendes:

Delphi-Quellcode:

procedure TForm1.IdIRC1Names(Sender: TObject; AUsers: TIdIRCUsers;
  AChannel: TIdIRCChannel);
var b:Byte;
begin
  lbxUserOnline.Clear;
        for b:=0 to IDIRC1.Users.Count-1 do
        lbxUserOnline.Items.Add(IDIRC1.Users.Items[b].Nick);
end;

Delphi-Quellcode:

procedure TForm1.IdIRC1Join(Sender: TObject; AUser: TIdIRCUser;
  AChannel: TIdIRCChannel);
begin
        lbxUserOnline.Items.Add(AUser.Nick);
end;

Bei welchem Ereignis kann ich den User, der weggeht, wieder aus der Listbox löschen?

thx

[Äfan]

Das müsste mit OnQuit gehen, also z.B.:

Delphi-Quellcode:

procedure TForm1.IdIRC1Quit(Sender: TObject; AUsers: TIdIRCUsers;
  AChannel: TIdIRCChannel);
var b:Byte;
begin
  lbxUserOnline.Clear;
        for b:=0 to IDIRC1.Users.Count-1 do
        lbxUserOnline.Items.Add(IDIRC1.Users.Items[b].Nick);
end;

MFG

[kurtm1]

Das hatte ich auch gedacht, aber es funzt nicht, es passiert dann nichts...

[kurtm1]

ich arbeite noch dran, aber wenn ich es habe bekommt ihr den code...

//EDIT: Ich habs jetzt so gelöst:

Delphi-Quellcode:

procedure TForm1.IdIRC1Names(Sender: TObject; AUsers: TIdIRCUsers;
  AChannel: TIdIRCChannel);
var b:Byte;
begin
        for b:=1 to IDIRC1.Users.Count-1 do
        lbxUserOnline.Items.Add(IDIRC1.Users.Items[b-1].Nick);
end;


procedure TForm1.IdIRC1Join(Sender: TObject; AUser: TIdIRCUser;
  AChannel: TIdIRCChannel);
begin
        lbxUserOnline.Items.Add(AUser.Nick);
end;


procedure TForm1.IdIRC1Quit(Sender: TObject; AUser: TIdIRCUser);
var b:Byte;
begin
        for b:=0 to lbxUserOnline.Items.Count-1 do
        If(pos(AUser.Nick,lbxUserOnline.Items[b]))<>0 then
        begin
        lbxUserOnline.Items.Delete(b);
        exit;
        end;
end;