delphi - 在 Delphi 中如何获得给定 MIME 类型的标准文件扩展名？

Question

是否有内置方法可以获取 Delphi (XE7) 中给定 MIME 类型的标准扩展名？

我正在寻找最简单、最通用的方法来实现这样调用的函数:

fileExt := GetExtension('text/xml');

Answer 1

Indy 似乎在 TIdThreadSafeMimeTable 上有一个内置函数:

Uses
  IdCustomHTTPServer;


function GetMIMETypeDefaultExtension(const aMIMEType: String): String;
var
  mimetable: TIdThreadSafeMimeTable;
Begin
  if not(aMIMEType.Trim.IsEmpty) then
  Begin
    mimetable := TIdThreadSafeMimeTable.Create(true);
    try
      result := mimetable.GetDefaultFileExt(aMIMEType);
    finally
      mimetable.Free;
    end
  End
  else
      result := '';
End;

编辑:函数已修复为直接使用 TIdThreadSafeMimeTable，无需自定义 http 服务器。