指定网址下载文件
提示:如下图格式,我们从指定网址上下载这个文件
提示:注意控件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