转自:
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;