Fórum Socket Assíncrono #351962

//No Componente tServerSocket
procedure TDM.ServidorClientConnect(Sender: TObject;
  Socket: TCustomWinSocket);
var Numero : Integer;

begin
   //Um Pouco da Rotina para vc monitorar os Socket pois depois irei tirar a parte mais complicada de trabalhar com Socket
  I := 0;
  New(IDSocket); 
  Socket.Data := IDSocket; 
  Conexao.Add(Socket.data); 

end;

procedure TDM.ServidorClientDisconnect(Sender: TObject;
  Socket: TCustomWinSocket);
var NumeroConexao, I : Integer;
begin

   Try
     NumeroConexao := StrToInt(qryPesqConexaoNumeroSocket.value);
   except
     On EconvertError do

   end;

   With qryDelConexao do
   Begin
     Close;
     Params[0].value := IntToStr(NumeroConexao);
     ExecSQL;
   end;

   //Aki eu coloco a torina para subir ou descer os socket tem uma mais completa so q nao ta aki comigo e ela e bem estensa depois eu posto pra vc se vc quiser

   glbAberto := False;
    If Socket.Data <> nil Then
    begin
      NumConex := Conexao.IndexOf(Socket.Data);
      Conexao.Remove(Socket.Data);
      Dispose(Socket.Data);
    end;

end;

procedure TDM.ServidorClientError(Sender: TObject;
  Socket: TCustomWinSocket; ErrorEvent: TErrorEvent;
  var ErrorCode: Integer);
begin
   //Para nao deixar aparecer as msg do Windows pq se aparecer fica travado ate dar um Enter em OK
   errorCode := 0;
end;

procedure TDM.ServidorClientRead(Sender: TObject;
  Socket: TCustomWinSocket);

begin
 //Aki e a parte principal pq e aki q vc recebe as informações q os clientes estao te enviando eu utilizo um sleep pq minhas conexoes e via PC com Equipamento GPRS ai da um atrazo no envio mais acredito q PC para PC nao precisa usar esse Sleep.

    Sleep(130);
     GlbValor := Socket.ReceiveText; //funcao q vc recebe os valores ai vc depois trata e armazena em tabelas

end;

Bom pra vc mandar os dados do servidor para o cliente vc tem q saber em qual socket ele esta conectado por isso vc vai ter q fazer uma função para amarrar o numero do socket com o pc ou se nao vc envia todos os dados para todos os cliente conectados

Dm.Servidor.Socket.Connections[(NumeroSocket))].SendText(´Teste q ira enviar);