TFPMimeTypes

type TFPMimeTypes = class(TComponent)

protected

  function FindMimeByType();

  function FindMimeByExt();

  function DefaultMimeTypesLocation; virtual;

public

  constructor Create(); override;

  destructor Destroy; override;

  procedure Clear;

  procedure LoadKnownTypes; virtual;

  class function GetNextExtension();

  procedure LoadFromStream(); virtual;

  procedure LoadFromFile();

  procedure AddType();

  function GetMimeExtensions();

  function GetMimeType();

  function GetKnownMimeTypes();

  function GetKnownExtensions();

end;

TFPMimeTypes

TObject