Delphiで標準のファイル拡張子をMIMEタイプで取得するにはどうすればよいですか？

Question

Delphi（XE7）で特定のMIMEタイプの標準拡張を取得する組み込みの方法はありますか？

私はこのように呼ばれることになる機能を実装するための最も簡単で一般的な方法を探しています：

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

Answer 1

HKEY_CLASSES_ROOT \ MIME \データベース\コンテンツタイプの\ text/htmlで、値の拡張を。

Answer 2

インディは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; 

編集：カスタムHTTPサーバなしで直接TIdThreadSafeMimeTableを使用するように固定機能。

uses 
    ..., IdGlobalProtocols; 

function GetExtension(const AMIMEType: string); 
begin 
    Result := GetMIMEDefaultFileExt(AMIMEType); 
end 

ちょうど内部で、GetMIMEDefaultFileExt()は、作成しTIdMimeTableオブジェクトを破壊することを知っていると、そのオブジェクトの再：

Answer 3

インディのIndyProtocolsパッケージはTIdMimeTableクラスとスタンドアロンGetMIMETypeFromFile()とGetMIMEDefaultFileExt()ラッパー関数IdGlobalProtocols単位で、例えばを持っています作成されるたびに既知の拡張子とMIMEタイプのリストが作成されます。

uses 
    ..., IdGlobalProtocols; 

var 
    MimeTable: TIdMimeTable = nil; 

function GetExtension(const AMIMEType: string); 
begin 
    if MimeTable = nil then 
    MimeTable := TIdMimeTable.Create; 
    Result := MimeTable.GetDefaultFileExt(AMIMEType); 
end; 

initialization 
finalization 
    MimeTable.Free; 

：あなたが頻繁にMIME拡張を照会しようとしている場合は、そのたびに再利用（あなたが複数のスレッド間でテーブルを共有する必要がある場合や TIdThreadSafeMimeTable）、それはあなた自身の TIdMimeTableオブジェクトを作成する価値があるだろう

uses 
    ..., IdGlobalProtocols, IdCustomHTTPServer; 

var 
    MimeTable: TIdThreadSafeMimeTable = nil; 

function GetExtension(const AMIMEType: string); 
begin 
    if MimeTable = nil then 
    MimeTable := TIdThreadSafeMimeTable.Create; 
    Result := MimeTable.GetDefaultFileExt(AMIMEType); 
end; 

initialization 
finalization 
    MimeTable.Free;