TMimeStream

type TMimeStream = class(TStream)

protected

  FSections: TFPObjectList;

  FOutputStream: TMimeOutputStream;

  FBoundary: String;

  FActiveSection: Integer;

  FCalledRead: Boolean;

  FCalledWrite: Boolean;

  function GetBoundarySize;

  function GetSize; override;

  function GetCount;

  function GetBoundary;

  function GetSection();

  function GetMimeHeader;

  procedure SetSection();

  procedure ActivateFirstSection;

  procedure ActivateNextSection;

  procedure DoRead();

public

  constructor Create;

  destructor Destroy; override;

  function Seek();

  function Read(); override;

  function Write(); override;

  procedure AddTextSection();

  procedure AddFileSection();

  procedure AddStreamSection();

  procedure Delete();

  procedure Remove();

  procedure Reset;

  property Sections: TMimeSection; default; [rw]

  property Count: Integer; [r]

  property Boundary: String; [r]

end;

TMimeStream

TStream

TObject