Alan santos Da silva

procedure TFrmGerenciador.SERVERExecute(AContext: TIdContext); var byteBuf : TIdBytes; Buffer : array [1..1024] of byte; BufferSec : array [1..1024] of byte; hexComado : string; i : integer; rx, tx : TRxTx; tamStr : integer; sComandoSec : string; begin try FillChar(Buffer, SizeOf(Buffer), 0); AContext.Connection.IOHandler.ReadBytes(byteBuf, 12, false); idGlobal.BytesToRaw(byteBuf, Buffer, 12); hexComado := ''; for i := 1 to 12 do begin hexComado := hexComado + IntToHex(Ord(Buffer[i]), 2); end; rx := strToRxTx(hexComado); if(rx.tamanho > 0) then begin FillChar(BufferSec, SizeOf(BufferSec), 0); AContext.Connection.IOHandler.ReadBytes(byteBuf, rx.tamanho + 1, false); idGlobal.BytesToRaw(byteBuf, BufferSec, rx.tamanho + 1); sComandoSec := ''; for i := 1 to rx.tamanho + 1 do begin sComandoSec := sComandoSec + IntToHex(Ord(BufferSec[i]), 2); end; rx.dados := RetZero(sComandoSec, 1024, false); end; tx := trataComandoPlaca(rx); // AQUI TRATA O COMANDO RECEBIDO DA CONTROLADORA hexComado := RxTxtoStr(tx); tamStr := length(hexComado) div 2; FillChar(Buffer, SizeOf(Buffer), 0); for i := 1 to tamStr do begin Buffer [i + 1] := HexToDec(hexComado[(i*2)+1] + hexComado[(i*2)+2]); end; byteBuf := Idglobal.RawToBytes(Buffer, tamStr); AContext.Connection.IOHandler.Write(byteBuf); except on e:Exception do begin AContext.Connection.DisconnectNotifyPeer; end; end; end; function TFrmGerenciador.enviarComando(TX: TRxTx; resposta: Boolean): TRxTx; var hexComado, sComandoSec : WideString; buf, rxBuf : array [1..1024] of byte; bufSec : array [1..1024] of byte; tamStr, i,M : integer; rx : TRxTx; byteBuf : TIdBytes; begin for m := 1 to 2 do begin sockets[m] :=TidTCPClient.Create; sockets[M].Disconnect; sockets[M].DisconnectNotifyPeer; sockets[M].Host := ListaDeIps.Strings[m]; sockets[M].Port := 9760; sockets[M].ConnectTimeout := -1; sockets[M].IPVersion := Id_IPv4; sockets[M].ReadTimeout := -1; sockets[M].ReuseSocket := rsFalse; sockets[M].Connect; if(not sockets[m].Connected) then //if(not tcp.Connected) then begin try sockets[m].connect(); //tcp.Connect(); except exit; end; end; if(not sockets[m].Connected) then //if(not tcp.Connected) then exit; rx.stx := 0; rx.tamanho := 0; rx.id_destino := 0; rx.id_sub_destino := 0; rx.id_fonte := 0; rx.comando := '0000'; rx.dados := ''; rx.chksum := 0; rx.etx := 0; try FillChar(buf, SizeOf(buf), 0); // Comunicando := true; //tx.chksum := calculaCK(tx); hexComado := RxTxtoStr(tx); tamStr := length(hexComado) div 2; for i := 0 to tamStr - 1 do begin buf [i + 1] := HexToDec(hexComado[(i*2)+1] + hexComado[(i*2)+2]); end; if(tx.tamanho > 0) then begin byteBuf := Idglobal.RawToBytes(buf, 13 + tx.tamanho); //tcp.IOHandler.Write(byteBuf); Sockets[m].IOHandler.Write(byteBuf); end else begin byteBuf := Idglobal.RawToBytes(buf,12); // tcp.IOHandler.Write(byteBuf); Sockets[m].IOHandler.Write(byteBuf); end; if(resposta = true) then begin //tcp.IOHandler.ReadTimeout := 2000; //tcp.IOHandler.ReadBytes(byteBuf, 12, false); Sockets[m].IOHandler.ReadTimeout := 2000; Sockets[m].IOHandler.ReadBytes(byteBuf, 12, false); idGlobal.BytesToRaw(byteBuf, rxBuf, 12); hexComado := ''; for i := 1 to 12 do begin hexComado := hexComado + IntToHex(Ord(rxBuf[i]), 2); end; rx := strToRxTx(hexComado); rx.id_fonte := 0; if(rx.tamanho > 0) then begin FillChar(bufSec, SizeOf(bufSec), 0); // tcp.IOHandler.ReadTimeout := 2000; //tcp.IOHandler.ReadBytes(byteBuf, rx.tamanho +1, false); Sockets[m].IOHandler.ReadTimeout := 2000; Sockets[m].IOHandler.ReadBytes(byteBuf, rx.tamanho +1, false); idGlobal.BytesToRaw(byteBuf, bufSec, rx.tamanho +1); sComandoSec := ''; for i := 1 to rx.tamanho +1 do begin sComandoSec := sComandoSec + IntToHex(Ord(bufSec[i]), 2); end; rx.dados := RetZero(sComandoSec, 1024, false); end; Result := rx; end; except on e:Exception do begin rx.stx := 0; rx.tamanho := 0; rx.id_destino := 0; rx.id_sub_destino := 0; rx.id_fonte := 0; rx.comando := '0000'; rx.dados := ''; rx.chksum := 0; rx.etx := 0; Result := rx; //tcp.Disconnect; Sockets[m].Disconnect; end; end; end; end; Pessoal estou com um problema,onde o meu TcpServer Esta enviando a resposta para todos os Tcpclient Que estão conectados. Como faço para o TcpServer enviar a resposta somete para o tcpClient que enviou o comando,resumindo o Cliente que mandar o comando so ele receber a resposta do servidor. esses são os códigos que estou usando,alguém pode me ajudar onde estou errando aqui ?