idhttp下载大文件时，总是下一部分就结束，问题研究

zhgc

用idhttp下载文件，碰到神奇的问题。
测试下载外面的大文件（大于100M）也正常 ，
但是下自己的apache中的大文档 ，每次都是60M左右就结束

用filestream 和 memorystream都一样的问题：

1. var
   
2.    MyStream:TFileStream;
   
3. begin
   
4.     MyStream:=TFileStream.Create('c:\002.sql', fmCreate);
   
5.   try
   
6.     IdHTTP1.Get('http://192.168.2.10/002.sql', MyStream);
   
7.     ShowMessage('Download Success!');
   
8.   except
   
9.     ShowMessage('Download Fail！');
   
10.   end;
    
11.   MyStream.Free;
    
12. end;
    

复制代码

1. var
   
2.   tStream: TMemoryStream;
   
3. begin
   
4.   tStream := TMemoryStream.Create;
   
5.   try
   
6.     IdHTTP1.Get('http://192.168.2.10/bartender_bdald.exe', tStream);
   
7.     tStream.Position:=0;
   
8.     tStream.SaveToFile('c:\bartender_bdald.exe');
   
9.     ShowMessage('Download Success!');
   
10.   except
    
11.     ShowMessage('Download Fail！');
    
12.   end;
    
13.   tStream.Free;
    
14. end;

复制代码

怀疑是header头的问题。抓包比对确实有差异
但改了cookies ,改了content_type, 改了accept，几乎改成了一样，还是不行

后来干脆清掉所有header信息：

1.     idhttp1.Request.RawHeaders.Clear;
   
2.     idhttp1.Request.CustomHeaders.Clear;

复制代码

奇迹般好了， 但是只好了一次，又不行了。

于是怀疑到了缓存上，清掉IE缓存果然可以好（为什么 idhttp还是饶不开IE缓存？）


在代码 里加清缓存的功能 ：

1. uses WinInet
   
2. 
   
3.      DeleteUrlCacheEntry(PChar('http://192.168.2.10/bartender_bdald.exe'));
   
4.     IdHTTP1.Get('http://192.168.2.10/bartender_bdald.exe', tStream);
   

复制代码

到此问题似乎是解决了！


控件有个CacheControl :

1. 
   
2.      IdHTTP1.Request.CacheControl := 'no-cache';
   
3.     IdHTTP1.Get('http://192.168.2.10/bartender_bdald.exe', tStream);

复制代码

测试了一下，似乎无效！


最后的解决方案，暂定：

1. uses WinInet
   
2. 
   
3. procedure TForm1.Button2Click(Sender: TObject);
   
4. var
   
5.    MyStream:TFileStream;
   
6. begin
   
7.     MyStream:=TFileStream.Create('c:\bartender_bdald.exe', fmCreate);
   
8.   try
   
9.     idhttp1.Request.RawHeaders.Clear;
   
10.     idhttp1.Request.CustomHeaders.Clear;
    
11.     DeleteUrlCacheEntry(PChar('http://192.168.2.10/bartender_bdald.exe'));
    
12.     DeleteUrlCacheEntry(PChar('http://192.168.2.10'));
    
13.     IdHTTP1.Request.CacheControl := 'no-cache';
    
14.     IdHTTP1.Get('http://192.168.2.10/bartender_bdald.exe', MyStream);
    
15.     ShowMessage('Download Success!');
    
16.   except
    
17.     ShowMessage('Download Fail！');
    
18.   end;
    
19.   MyStream.Free;
    
20. end;

复制代码