delphi 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);  
    MyStream.SaveToFile('c:/1.exe');  
    MyStream.Free;  
  except  
    showmessage('网络出错!');  
    MyStream.Free;  
  end;      
end;