Fórum Sockets - Funciona não Funfa na rede só no mesmo PC... PQ? #291474

procedure TfServ.ServerSocket1ClientError(Sender: TObject;
  Socket: TCustomWinSocket; ErrorEvent: TErrorEvent;
  var ErrorCode: Integer);
begin
ListComm.Items.Add(´Ocorreu o seguinte erro:´+IntToStr(ErrorCode));
 if ErrorCode>0 then
  ErrorCode := 0;
end;

procedure TfServ.ServerSocket1ClientRead(Sender: TObject;
  Socket: TCustomWinSocket);
var sRecebe : String;
begin
sRecebe := Socket.ReceiveText;
ListComm.Items.Add(FormatDateTime(´dd/mm/yyyy´,Date)+ ´ - ´+FormatDateTime(´hh:mm:ss´,Time) +´ - ´+Socket.RemoteHost+´ - ´+Socket.RemoteAddress+´ - ´+ sRecebe);

end;

procedure TfClient.ClientSocket1Error(Sender: TObject;  Socket: TCustomWinSocket; ErrorEvent: TErrorEvent;
  var ErrorCode: Integer);
begin
log.Items.Add(´Ocorreu o seguinte erro:´+INtToStr(ErrorCode));
 if ErrorCode>0 then
  ErrorCode := 0;
end;

procedure TfClient.ClientSocket1Read(Sender: TObject;
  Socket: TCustomWinSocket);
var sRecebe : String;
begin
sRecebe := Socket.ReceiveText;
if sRecebe = ´#boot´ then
 begin
  lblMostra.Caption := ´Desligar PC´;
   end
    else
     if sRecebe = ´trava´ then
      begin
       ShowWindow(FindWindow(nil,´Program Manager´),SW_HIDE);
       BarraTarefas(False);
       Socket.SendText(Socket.RemoteAddress+´ - Protegido!´);
      end
       else
        if sRecebe = ´#libera´ then
         begin
         ShowWindow(FindWindow(nil,´Program Manager´),SW_SHOW);
         BarraTarefas(True);
         Socket.SendText(Socket.RemoteAddress+´ - Liberado!´);
         end
          else
ListRecebe.Items.Add(sRecebe);
end;