Downlopad arquivo usando TIdHTTP

Delphi

15/09/2010

Olá pessoal,
estou tentando fazer um procedimento para download de arquivos usando TIdHTTP.

  Http := TIdHTTP.Create(nil);
  Http.OnWork:= HttpWork;
  Http.OnWorkBegin := HttpWorkBegin;
  Http.OnWorkEnd := HttpWorkEnd;

  MS := TMemoryStream.Create;


Para fazer o download faço assim:

  Http.Request.CacheControl := 'no-cache';
  Http.Get(URL_DO_AQRUIVO, MS);
  MS.SaveToFile('c:\agenda.zip');


No evento Http.OnWork tenho um progressbar e posso observar que o download é iniciado. Porém o método MS.SaveToFile não ocorre, ou seja, nunca tenho o arquivo salvo em disco.

Onde estou errando?

Uso Delphi7 e Indy (10.0.76)
Carlos Phelippe

Carlos Phelippe

Curtidas 0

Melhor post

Carlos Phelippe

Carlos Phelippe

16/09/2010

Pessoal, resolvi com essa dica:

http://delphiforyou.blogspot.com/2010/03/download-de-arquivos-com-idhttp.html
GOSTEI 1
POSTAR