Problema con Sockets

[jlsc]

Hola a todos,

Necesito hacer un programa mediante sockets, la idea es que desde un PC Servidor le envié mensajes a los demás PC Clientes al mismo tiempo. Lo tengo programado de tal manera que cada vez que un PC Cliente se conecte al servidor este almacene la IP del PC Cliente en un Treeview, y cuando se desconecte desaparezca del TreeView hasta aqui todo bien, mando un mensaje a cada PC cliente sin problemas pero cuando hago un bucle para enviar a todos los PC clientes no me funciona solo llegá a uno y luego me da error, me dice no se puede modificar el estado del socket cuando esta activo. Pero como hago cual es la idea? Yo lo tengo programado de la siguiente manera.

procedure TFormMensaje.BitBtn1Click(Sender: TObject);
var
Mensaje, ClientText:String;
NombrePC:String;
k,j: integer;
begin
NombrePC:='';
for k:=0 to (FormServidor.TreeView1.Items.Count - 1) do
begin
ClientText:= FormServidor.TreeView1.items[k].Text;
for j:=1 to 3 do
NombrePC:= NombrePC + ClientText[j];
if (uppercase(NombrePC)='ESH') then {verifico que es un equipo al cual hay que mandarle según su nombre}
begin
FormServidor.ClientSocket1.Host:=ClientText;
FormServidor.ClientSocket1.Port:=21;
FormServidor.ClientSocket1.Active:=True;
if FormServidor.ClientSocket1.Active then
FormServidor.ClientSocket1.Socket.SendText(Memo1.Text + ' : '+ DateToStr(Date) + ' ' + TimetoStr(Time));
Memo1.Clear;
FormMensaje.Close;
end;
NombrePC:='';
enD
end;


Ven el error o cual sería la manera correcta de hacerlo.

Muchas gracias por su valiosa ayuda.

Un saludo

Jorge

[rgstuamigo]

Segun veo tu código lo que necesitas es usar el componente ServerSocket y no un ClientSocket.
Si lo que deseas es enviar un mensaje a todos los socket clientes desde el socket server pues yo lo haría de ésta forma:

Código Delphi [-]
procedure TForm1.Button3Click(Sender: TObject);
var i:Integer;
begin
  for i :=0  to ServerSocket1.Socket.ActiveConnections-1 do
     ServerSocket1.Socket.Connections[i].SendText(Edit1.Text);
end;

.
Saludos...

[rgstuamigo]

Amigo jlsc , no debes repetir las mismas preguntas(Hilos) en varios foros, por favor lee la guía de estilo para conocer las reglas del foro.
Aquí ya preguntaste lo mismo, por lo tanto voy a Mover y Unir ambos hilos.

[jlsc]

He probado y funciona correctamente.

Muchas gracias

Un saludo