Indy IRC List

[goenner90]

Hallo nochmal,

also um /LIST aufzurufen , habe ich folgenden Code verwendet:

Delphi-Quellcode:

procedure TForm1.Button6Click(Sender: TObject);
begin
  IdIRC1.Raw('LIST');
end;

und in dem IdIRCList Event steht folgender Code:

Delphi-Quellcode:

procedure TForm1.IdIRC1List(Sender: TObject; AChans: TStringList;
  APosition: Integer; ALast: Boolean);
var
  i:integer;
  string1,string2:string;
begin
  for i:=0 to AChans.Count-1  do begin 
    string1:=achans.names[i];
    string2:=Copy(string1,0,pos(' ',string1));
    listbox1.Items.Add(string2);
  end;
end;

Dieser Code funktionier soweit, er lässt sich ausführen, jedoch erhalte ich in der Listbox nur 4 Channelnamen und etliche leere Zeilen. Auf dem Netzwerk sind aber 54 Channels, womit das also schonmal nicht hinhauen kann.

Ich wäre sehr froh, wenn jmd. den Code mal testen könnte, und evtl einen Lösungsvorschlag parat hätte, da ich langsam aber sicher am verzweifeln bin.

MFG