【控件功能】我来做练习-第6课-指定网址下载文件

指定网址下载文件

提示：如下图格式，我们从指定网址上下载这个文件

提示：注意控件IDHTTP的设置参数

提示：注意控件IDANTFREEZE的设置参数

源代码如下

function GetFileName(const URI: string): string;
var
LHttp: TIdHTTP;
begin
LHttp := TIdHTTP.Create(nil);
try
LHttp.Head(URI);
Result := LHttp.Response.RawHeaders.Params[‘Content-Disposition’,
‘filename’];
if Result = ‘’ then
with TIdURI.Create(URI) do
try
Result := Document;
finally
Free;
end;
finally
LHttp.Free;
end;
end;

procedure TForm1.Button1Click(Sender: TObject);
var
Bu