Ver Mensaje Individual
  #2  
Antiguo 14-12-2007
JXJ JXJ is offline
Miembro
 
Registrado: abr 2005
Posts: 2.475
Reputación: 22
JXJ Va por buen camino
encierra tu codigo dentro de un bloque try
para saber que error sale, aun no se como usar el bloque try except
pero es algo como abajo

Código Delphi [-]
procedure TForm2.TimerTimer(Sender: TObject);
var
  Msg: String;
begin
  //Cada cierto tiempo tendremos que estar mirando si nos llega algo del servidor
  if not IdTcpClient.Connected then
    exit;

try
  Msg := IdTCPClient.ReadLn('', 5);  //El 5 es un timeout para que no se quede ahí anclado siempre
  if Msg <> '' then
    MemoLog.Lines.Add(Msg);
end;
except
end
Responder Con Cita