envia via Sockets

Question

Bom pessoal to usando um socket servidor em uma aplica��o servidora e em uma aplicacao cliente um socket cliente. tenho varios clientes q conecta nos servidor como fasso pra apelidar um cliente no ser...

Paullsoftware · Answer

Coloque dois ListBox no seu servidor e fa�a esse c�digo:

procedure TfServ.ServerSocket1ClientConnect(Sender: TObject;
  Socket: TCustomWinSocket);
begin
LbClients.Items.Add(Trim(Socket.RemoteAddress));//ListBox1
LbAcoes.Items.Add(�Cliente:�+Socket.RemoteAddress+� Conectou!�);//ListBox2
end;

para saber se algu�m se desconectou fa�a o s�digo abaixo:

procedure TfServ.ServerSocket1ClientDisconnect(Sender: TObject;
  Socket: TCustomWinSocket);
  var Procura:Integer;
begin
 Procura := LbClients.Items.IndexOf(Socket.RemoteAddress);
 if Procura >= 0 then
  begin
  LbClients.ItemIndex:=Procura;
  LbClients.DeleteSelected;
  end;
 LbAcoes.Items.Add(�Cliente:�+Socket.RemoteAddress+� Desconctou!�);
end;

espero ter ajudado, o nome que vc recebe � o nome do micro na rede! :wink: