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;