TStreamerFactory

type TStreamerFactory = class(TObject)

protected

  function FindDefByName();

  function FindDefByContentType();

  function IndexOfStreamer();

  function IndexOfStreamerContentType();

  procedure RegisterStreamer();

  procedure UnRegisterStreamer();

public

  constructor Create;

  destructor Destroy; override;

  class function Instance;

  class procedure GetStreamerList();

  procedure GetStreamerDefNames();

  function FindStreamerByName();

  function FindStreamerByContentType();

end;

TStreamerFactory

TObject