Fórum função para saber posição de conexão com socket #350876

 
public
    { Public declarations }
    IDConexoes : TList;
    conexoes: TList;
    tempo: TTime;

  end;

var
  Form1: TForm1;

implementation


uses Unit_login;


{$R *.dfm}

//Function TForm1.LocalizaCliente(Cli : Pointer):Integer;
//Begin
//Result := IDConexoes.IndexOf(Cli);
//End;



procedure TForm1.Timer1Timer(Sender: TObject);
begin
  //if (Tempo >= STrToTime(´00:00:00´)) then
  //begin
   // Label1.caption := TimeToStr(Tempo - StrToTime(´00:00:01´));
    //Tempo:= Tempo - StrToTime(´00:00:01´);
 // end
  //else
 // begin
  //Timer1.Enabled:=false;
 // ShowMessage(´ee´);
 // end;
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
//Tempo := StrToTime(´00:00:20´);
Servidor.Active := True;
//IDConexoes := TList.Create;
//IDConexoes.Clear;
conexoes:= TList.Create;

end;

procedure TForm1.servidorClientRead(Sender: TObject;
  Socket: TCustomWinSocket);
// este é o primeiro jeito !!!
 // Var Msg : String;
//IDCli : integer;
//HoraStr : String;
//begin
//Msg := socket.ReceiveText;
//If Msg = ´HORA?´ then
 //Begin
  //IDCli := LocalizaCliente(Socket.Data);
 // HoraStr := FormatDateTime(´HH:mm:ss´,Now);

//If (IDCli >= 0) then
 // Servidor.Socket.Connections[IDCli].SendText(HoraStr);
//end;




// este é o segundo jeuto!!!!
 //  Var MsgRecebida : String;
//I : integer;/
//begin
 // MsgRecebida := socket.ReceiveText;  // Pega o conteúdo enviado

//  For i := 0 to servidor.Socket.ActiveConnections-1 do
  //   Servidor.Socket.Connections[i].SendText(MsgRecebida);

//end;


//este é o terceiro jeito !!!
var msg : string;
      NumConex : integer;
begin
NumConex := Conexoes.IndexOf(Socket.Data);

if NumConex >= 0 then
  Begin
     msg := socket.ReceiveText; // pego a menssagem q chegou
     msg := AnsiLowerCase(msg); // transformo todas as letras para minuscula
     servidor.Socket.Connections[NumConex].SendText(msg);  //envio d volta pra
   //                                   //  quem enviou
  end;
end;







procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
begin
//IDConexoes.Free; 
end;

procedure TForm1.servidorClientConnect(Sender: TObject;
  Socket: TCustomWinSocket);
  Var IDsocket : ^String; // Variavel utilizada par identificar o sockets
begin
 New(IDSocket);
 Socket.Data := IDSocket;
 Conexoes.Add(Socket.data);
end;

//Var
//IDsocket : ^byte;
//begin
 //New(IDSocket);
 //Socket.Data := IDSocket;
 //IDConexoes.Add(Socket.data);
//end;
 

procedure TForm1.servidorClientDisconnect(Sender: TObject;
  Socket: TCustomWinSocket);
//Var
// NumConex : integer;
Begin
//IDConexoes.Remove(Socket.Data);
//Dispose(Socket.Data);
end;


procedure TForm1.FormDestroy(Sender: TObject);
begin
conexoes.Destroy;
end;

end