[R语言] Delphi 10.2.3 新增的TMimeTypes类

编程语言发布于：2021-07-31 10:53 | 阅读数：420 | 评论：0

1487 主题	0 回帖	1537 积分

网站编辑

积分: 1537

发消息

Delphi 10.2.3 新增的TMimeTypes类，利用url中的文件扩展名，可以轻松得到url需要返回的HTTP content-type类型,可以参考这里，现在查看AddDefTypes方法，几乎涵盖了所有的文件类型。为了使用TMimeTypes，我们不必建立他的实例，直接使用TMimeTypes.Default属性，这个属性是个类属性，可以直接使用并返回TMimeTypes的实例。

class property Default: TMimeTypes read GetDefault;

这是GetDefault的实现代码，通过代码，我们看到，返回一个唯一实例。

class function TMimeTypes.GetDefault: TMimeTypes;
var
  LMime: TMimeTypes;
begin
  if FDefault = nil then
  begin
  TMonitor.Enter(FLock);
  try
    if FDefault = nil then
    begin
    LMime := TMimeTypes.Create;
    LMime.AddDefTypes;
    LMime.AddOSTypes;
    FDefault := LMime;
    end;
  finally
    TMonitor.Exit(FLock);
  end;
  end;
  Result := FDefault;
end;

下面，看看一个扩展名，对于一个url应返回内容的类型（HTTP content-type）：
procedure TForm10.Button1Click(Sender: TObject);
var
t:string;
kind:TmimeTypes.TKind;
begin
TMimeTypes.Default.GetExtInfo('htm',t,kind);
end;
运行后得到的结果：