Problema con Indy/IRC

[Gean]

sii, tengo puesto esto:

Código Delphi [-]
procedure TForm2.IdIRC1NicknamesListReceived(ASender: TIdContext;
  const AChannel: string; ANicknameList: TStrings);
var
  i:integer;
begin
Usuarios.Items.Add('Nicknames in Channel: '+AChannel);
for i:= 0 to ANicknameList.Count-1 do begin
Usuarios.Items.add(ANicknameList.Strings[i]);
end;
end;

pero lo que me devuelve esto asi:
minick
minick = nombredelcanal: minick nick1 nick2...

como podria listar solamente minick en una linea
nick1 en otra linea
nick2 en otra linea...
es eso lo k kiero, si no puede ser en un listbox, en un memo

[DriverOp]

Hombre... La lista ya está en un TStrings, entonces si la quieres en un TMemo basta con hacer:

Código Delphi [-]
Memo1.Lines.AddStrings(ANicknameList);

y listo .

[Gean]

claro, pero con ese codigo me devuelve lo que te he puesto en el mensaje anterior, lo que me gustaria es que se quedasen en lineas distintas en un memo, o preferiblemente en items diferentes en un list Box

[DriverOp]

Empezado por Gean

claro, pero con ese codigo me devuelve lo que te he puesto en el mensaje anterior, lo que me gustaria es que se quedasen en lineas distintas en un memo, o preferiblemente en items diferentes en un list Box

Ah, comprendo, parece que ANicknameList devuelve todos los nicks de un canal en una línea y en la siguiente línea los de otro canal y así sucesivamente.

Pues habrá que parsear el string donde están los nicks que te interesan, digo yo. Me parece extraño pero no tengo Indy10 para probar lo que dices. Como sea, este código te puede ayudar a parsear la cadena que tiene los nicks:

Código Delphi [-]
function GetToken(Cadena:string; Separador:char; Token:integer):string;
var
   Posicion:integer;
begin
     while Token > 1 do begin
       Delete(Cadena,1,Pos(Separador,Cadena));
       Dec(Token);
     end;
     Posicion:=Pos(Separador,Cadena);
     if Posicion=0 then
       Result:=cadena
     else
       Result:=Copy(Cadena,1,Posicion-Length(Separador));
end;

function GetTokenCount(Cadena:string; Separador:char):integer;
var
   Posicion:integer;
begin
  Posicion:=Pos(Separador,Cadena);
  Result:=1;
  if Cadena <> '' then
    begin
      if Posicion <> 0 then
        begin
        while Posicion <> 0 do
          begin
            Delete(Cadena,1,Posicion);
            Posicion:=Pos(Separador,Cadena);
            Inc(Result);
          end; // while
      end; // if
  end // if
    else Result:=0;
end;

procedure TForm2.IdIRC1NicknamesListReceived(ASender: TIdContext;
  const AChannel: string; ANicknameList: TStrings);
var
  Str: string;
  n: integer;
begin
  Str:=ANicknameList.Strings[1]; { Según el código es el string en la posición 1 el que te interesa }
  for n:=1 to GetTokenCount(Str,' ') do
    Memo1.Lines.Append(GetToken(Str,' ',n));
end;

En el TMemo obtendrás algo más que los nicks pero supongo que sabrás qué hacer con el resto.

[Gean]

=( muxas gracias por la paciencia k tienes conmigo, pero probando con ese codigo solo me sale mi nick... dejalo ya si kieres, haber si encuentro algo yo... :S

[DriverOp]

Como gustes...

[genyus00]

por si no.. o si alguien llega a este punto. utilicen:

para indy 9.00.19 delphi 7

procedure TSoundForm.IdIRC1Names(Sender: TObject; AUsers: TIdIRCUsers; AChannel: TIdIRCChannel);
var i: Integer;
begin
if Assigned(AUsers) then
begin
ListBox1.Clear;
for i := 0 to AUsers.Count - 1 do
ListBox1..Items.Add( AUsers.Items[i].Nick );
end;
end;