hola, creo que el problema está en que no guardas informacion del socket cliente, y entonces no hay forma de que le puedas enviar un mensaje si no estas dentro del evento ONREAD.
En el Servidor deberias crear una variable tipo TCustomWinSocket y asignarle la variable socket del cliente en el evento ClientRead. Algo asi:
procedure TForm1.ss1ClientRead(Sender: TObject; Socket: TCustomWinSocket);
begin
lb1.Items.Add(socket.RemoteHost+' dice:');
lb1.Items.Add(socket.ReceiveText);
cli1:=socket;
end;
procedure TForm1.Button2Click(Sender: TObject);
begin
cli1.SendText(edit1.Text);
end;
Espero te sirva. No creo que sea optimo. Pero funciona.
Saludos
PD: Si te hace falta te envio el mini codigo que hice para esto.
|