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;
Nenhum comentário:
Postar um comentário