envia via Sockets

15/03/2006

0

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 servidor exemplo se o terminal Dp01 conectar eu vejo o nome dele no servidor, se o Cml01 conectar eu vejo no servidor. pq quero identificar pq e o seguinte um terminal envia uma informação pro servidor q recebe e distribui pra todos q estam conectados com exeção pra aquele q enviou pro servidor então pensei q se eu pudesse apelidar cada terminal eu posso criar um loop pra enviar pra todo mundo mesno por terminal xxx se alguem tiver uma solução similar q resolva isso eu agradeço


Marcal

Marcal

Responder

Posts

16/03/2006

Paullsoftware

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:


Responder

Que tal ter acesso a um e-book gratuito que vai te ajudar muito nesse momento decisivo?

Ver ebook

Recomendado pra quem ainda não iniciou o estudos.

Eu quero
Ver ebook

Recomendado para quem está passando por dificuldades nessa etapa inicial

Eu quero

Utilizamos cookies para fornecer uma melhor experiência para nossos usuários, consulte nossa política de privacidade.

Aceitar