Delphi 10.2.3 新增的TMimeTypes类

2021-03-27 14:27

阅读：479

标签：单元 tor final url roc sys .com 图片 obj

Delphi 10.2.3 新增的TMimeTypes类，利用url中的文件扩展名，可以轻松得到url需要返回的类型,查看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应返回内容的类型：

procedure TForm10.Button1Click(Sender: TObject);
var
t:string;
kind:TmimeTypes.TKind;
begin
TMimeTypes.Default.GetExtInfo(‘htm‘,t,kind);
end;

运行后得到的结果：

技术分享图片

有了TMimeTypes类，再也不用记该返回什么类型的url请求了！

此外，在这个System.Net.Mime单元中，还提供了其他重要意义的类，如TMultipartFormData，用来处理htm中的Form，支持文件的。

Delphi 10.2.3 新增的TMimeTypes类

标签：单元 tor final url roc sys .com 图片 obj

原文地址：https://www.cnblogs.com/kinglandsoft/p/9348467.html

上一篇：在Windows下如何创建指定的虚拟环境

下一篇：Windows 上安装 Azure PowerShell及Azure PowerShell部署虚拟机

文章来自：搜素材网的编程语言模块，转载请注明文章出处。
文章标题：Delphi 10.2.3 新增的TMimeTypes类
文章链接：http://soscw.com/index.php/essay/68616.html

亲，登录后才可以留言！

Delphi 10.2.3 新增的TMimeTypes类

评论

热门文章

推荐文章

最新文章

置顶文章