idHttp下载文件

 http://blog.csdn.net/chinazhd/article/details/6440491

1. procedure TForm1.Button3Click(Sender: TObject);  
2. var  
3. h:TIdhttp;  
4. res : String;  
5. MyStream:TMemoryStream;  
6. begin  
7. MyStream:=TMemoryStream.Create;  
8. h:=Tidhttp.Create(nil);  
9. try  
10. h.get('http://www.oro.com/project2.exe',MyStream);  
11. except  
12. showmessage('网络出错!');  
13. MyStream.Free;  
14. exit;  
15. end;  
16. MyStream.SaveToFile('c:/1.exe');  
17. MyStream.Free;  
18.   
19.   
20. end;