idHttp下载文件

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

procedure TForm1.Button3Click(Sender: TObject);  

var  

h:TIdhttp;  

res : String;  

MyStream:TMemoryStream;  

begin  

MyStream:=TMemoryStream.Create;  

h:=Tidhttp.Create(nil);  

try  

h.get('http://www.oro.com/project2.exe',MyStream);  

except  

showmessage('网络出错!');  

MyStream.Free;  

exit;  

end;  

MyStream.SaveToFile('c:/1.exe');  

MyStream.Free;  

  

  

end;