Fórum Fechamento inesperado da aplicacao #292235

var
  Buffer: String;
begin
  comandos...
  idTCPCliente.WriteLn(Buffer);  //ENVIO DOS DADOS
  Buffer := idTCPCliente.ReadString(2); //RESPOSTA DO SERVER
  comandos...
end;

procedure TForm1.IdTCPServer1Execute(AThread: TIdPeerThread); var Buffer, Usuario, Senha: String; Operacao, LenUsuario, LenSenha: Byte; begin try Buffer := AThread.Connection.ReadString(1); Move(Buffer[1], Operacao, 1); case Operacao of 0: // LOGANDO NO SERVIDOR begin try Buffer := AThread.Connection.ReadString(2); Move(Buffer[1], LenUsuario, 1); Move(Buffer[2], LenSenha, 1); Buffer := AThread.Connection.ReadString(LenUsuario + LenSenha); Usuario := Descriptografa(Copy(Buffer, 1, LenUsuario)); Senha := Descriptografa(Copy(Buffer, LenUsuario + 1, LenSenha)); IBQLogin.Close; IBQLogin.Params[0].Value := Usuario; IBQLogin.Params[1].Value := Senha; IBQLogin.Open; if IBQLogin.RecordCount = 0 then begin AThread.Connection.WriteLn(#0 + ´*´); Exit; end; AThread.Connection.WriteLn(#0 + ´$´); except AThread.Connection.WriteLn(0 + ´&´); Memo1.Lines.Add(´Erro´); Memo1.Lines.SaveToFile(´.\log.txt´); end; end; end; except end; end;