Imprimir Página - metodo POST delphi INDY reintentar si se produce socket error

Hola :
Quiero saber cual es la mejor forma de volver a reintentar una llamada POST en el caso que se produzca un error (socket error).

un ejemplo

Código:

function PostExample: string;
var
  lHTTP: TIdHTTP;
  lParamList: TStringList;
begin
  lParamList := TStringList.Create;
  lParamList.Add('id=1');

  lHTTP := TIdHTTP.Create(nil);
  try
    Result := lHTTP.Post('http://blahblahblah...', lParamList);
  finally
    FreeAndNil(lHTTP);
    FreeAndNil(lParamList);
  end;
end;

La idea básicamente es...que si se produce un error en la llamada ihttp.post que espere por ejemplo 3 segundos y lo vuelva a intentar de nuevo. Asi sucesivamente hasta 5 intentos.

Gracias

Foro de elhacker.net

Programación => Programación General => Mensaje iniciado por: OssoH en 22 Octubre 2013, 10:22 am