terça-feira, 27 de setembro de 2011

TIdHttp Indy - Tirar o Cache no Download

Na função de Download acrescente a linha de comando 
idHttp1.Request.CacheControl := 'no-cache';
como mostra o exemplo abaixo:



FUNCTION TdmDownload.DownloadHTTP(url, arq: STRING): boolean;
VAR MS: TMemoryStream;
BEGIN
  result := true;
  PrepararDownload(Result, arq);


  MS := TMemoryStream.Create;
  TRY
    TRY
      idHttp1.Request.CacheControl := 'no-cache';
      idHttp1.Get(URL, MS);
      MS.SaveToFile(ARQ)
    EXCEPT
      result := false;
      RAISE;
    END;
  FINALLY
    MS.Free;
    idHttp1.Disconnect;
  END;
END;