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