定义一下 DownLoadURL
var DownLoadURL:TDownLoadURL;//注意引用 TDownLoadURL类所在单元名称
begin
DownLoadURL.URL:='';
..........
你上面的地址也是出处转载抄袭过来的(最恨这样败类;)
也可以不定义 :
with TDownloadURL.Create(self) do//相当于后面都是省略了该对象直接用属性方法名称了
URL:='';
......
end;
D7我用Tidhttp来下载,可以自已写代码有进度条。