使用idHttp下载文件（在线等待）

Question

FFileName:='g:\aaa.zip';
  FURL:='http://www.csdn.net/cnshare/soft/openfile.asp?kind=1&id=20520';
  if not FileExists(FFileName) then
  begin
    fHandle := CreateFile(PChar(FFileName), GENERIC_WRITE, FILE_SHARE_WRITE, nil,
      CREATE_NEW, 0, 0);
    try
      FIdHttp.Head(FURL);
      FileLength := FIdHttp.Response.ContentLength;
      FileSeek(fHandle, FileLength, 0);
    finally
      FileClose(fHandle);
    end;
  end;
  FFileStream := TFileStream.Create(FFileName, fmOpenWrite or fmShareDenyNone);
  FIdHttp.Get(FURL, FFileStream);
在FIdHttp.Head(FURL)时保readtimeout，但我设了1小时
在Get时报'HTTP/1.1 302 Object moved' 到底什么错？

Answer 1

使用ftp控件下载目录
作者：atondelphi中的nmftp控件中Download函数只能下载一个文件，没有提供一个下载整个目录（包含子目录）的函数。我编写了个实现目录下载功能的方法，需要用到该功能的用户可参考一下。file://目录下载function tftp.ex_download(remote_dir,local_dir:string):boolean;var  i,j,count1:integer;  att,ss:string;  current_dir:string;  temp_dir:string;begin  try begin  NMFTP1.ChangeDir(remote_dir);  current_dir:=remote_dir;  temp_dir:=copy(current_dir,2,length(current_dir));  if not DirectoryExists(local_dir) then CreateDir(local_dir);  if not directoryexists(local_dir+temp_dir) then createdir(local_dir+temp_dir);  nmftp1.ParseList:=true;  NMftp1.list;  count1:=nmftp1.FTPDirectoryList.name.Count;  for i:=0 to count1-1 do begin  file://必须  NMFTP1.ChangeDir(current_dir);  nmftp1.list;  ss:=nmftp1.FTPDirectoryList.name.Strings[i];  att:=nmftp1.FTPDirectoryList.Attribute.Strings[i];  if (copy(pchar(att),1,1)<>'d')and(copy(pchar(att),1,1)<>'D') then begin  if not DirectoryExists(local_dir) then CreateDir(local_dir);  NMFTP1.Download(current_dir+ss,local_dir+temp_dir+ss);  end  else begin  if not directoryexists(local_dir+temp_dir+ss) then createdir(local_dir+temp_dir+ss);  file://递归调用  ex_download(remote_dir+ss+'\',local_dir);  end;  end;  result:=true;  end  except  On E:Exception do begin  result:=false;  end;  end;end;

Answer 2

我没有用任何控件做了一个文件下载系统epidn,请访问我的私人站点：http://www.epidn.com/如果你有什么好的意见和建议，请联系我。我将给你源代码。

Answer 3

该文件确实已经不在了！所以提示这个错误！还有在使用TIdHTTP时，还会有一个问题，就是只要HTTP的应答码不是 200（OK）的话，就会
出现异常，一出现异常就什么都收不到了（实际数据已经传会本地了的，只是控件没有接收）。但是有不少网站确实也会用 302（Found）作为正常的应答码！这是只能自己去该Indy的相关原代码进行处理了。注意对于URL本身不是文件URL的（如上例），必须进行两次的GET操作才能获取到文件的（第一次获取到真正的URL，然后才开始下载。

Answer 4

这个代码是说目标已被转移，如果你设置了idhttp允许自动重定向的话就不会报错，它会自动到新目标提取文件