delphi程序中下载文件的问题

 

使用Delphi编写下载文件程序时，一开始还觉得很顺利，使用URLDownload很方便

function DownloadFile1(SourceFile, DestFile: string): Boolean;
begin
  try
    CoInitialize(nil);              //这个是发现问题后加上去的
    Result := UrlDownloadToFile(nil, PChar(SourceFile), PChar(DestFile), 0, nil) = 0;
     CoUninitialize(); 
  except
    Result := False;
  end;
end;

但是最后却发现问题了——网页更新了，但是下载回来的页面怎么试都没有更新，查看IIS日志， 发现客户端根本向服务器发出请求，甚至把IE缓存删除了都不更新，晕倒！

最后使用idhttp解决这个问题(uses idHttp)

function  DownloadFile(SourceFile, DestFile: string): Boolean;
var
  DownLoadFile:TFileStream;
  idHttp1:TidHttp;
  tmp:boolean;
begin
  idhttp1:=TidHttp.Create(nil);
  tmp:=false;
  DownLoadFile:=TFileStream.Create(DestFile,fmCreate);
 try
    IdHTTP1.Get(SourceFile,DownLoadFile);
    tmp:=DownLoadFile.Size>0;
 except
    tmp:=false;
 end;

  IdHttp1.Free;
  DownLoadFile.Free;
  if not tmp then deletefile(DestFile);          //下载的文件不存在时删除该空白文件
  result:=tmp;

end;

 

idhttp的异常只能捕获，不能使用finally消除