Question

我有一个网站的网址。它看起来像这样：http://www.example.com/downloads/file/4789/download？

我想将文件保存到我的系统，但我不知道如何在我的示例中获取由URL触发的下载文件名。有些文件是pdf，其他文件是doc和rtf等。

如果有人可以请我指出文件名问题的方向以及使用哪些组件，我将非常感激。

Answer 1

要从网址获取文件名，您可以检索HEAD信息并检查Content Disposition标头字段。对于此任务，您可以使用TIdHTTP indy组件。如果内容处置没有文件名，您可以尝试解析该URL。

试试这个样本。

{$APPTYPE CONSOLE}

{$R *.res}

uses
  IdURI,
  IdHttp,
  SysUtils;

function GetRemoteFileName (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;

begin
  try
    Writeln(GetRemoteFileName('http://dl.dropbox.com/u/12733424/Blog/Delphi%20Wmi%20Code%20Creator/Setup_WmiDelphiCodeCreator.exe'));
    Writeln(GetRemoteFileName('http://studiostyl.es/settings/downloadScheme/1305'));

  except
    on E: Exception do
      Writeln(E.ClassName, ': ', E.Message);
  end;
  Readln;
end.

从触发器下载delphi中的文件并捕获文件名

1 个答案: