Vuelvo para plantearos otro problema. De momento no tiene aplicacion practica, pero estoy intentando aprender como funciona.
Tengo varios programas por la red que tienen activo un TSockectServer y estan escuchando por el puerto 7000.
Ahora tengo que hacer un programa con varios TSocketClient que se conecte a todos los Servers.
Tengo algo asi
Código Delphi
[-]
var
i: Integer;
begin
lsb.Items.Clear;
for i := 2 to 255 do
begin
if cs.Active then cs.Close;
cs.Address := '192.168.0.' + inttostr(i);
cs.Port := 7000;
try
cs.Open;
except
end;
if cs.Active then lsb.Items.Add( cs.Address);
end;
end;
Esto funciona, pero va lento porque tiene que esperar a que cs.Open de un error. La intencion seria lanzar 255 Threads y que vayan respondiendo. Esto sabria hacerlo, lo que no se como hacer es que cada Thread añada una linea a lsb. Y ya puestos para no obtener 255 mensajes de error, alguien sabe como silenciar cs.open?