TMimeSection

type TMimeSection = class

protected

  FContentType: String;

  FEncoding: TMimeEncoding;

  FActivated: Boolean;

  FDescription: String;

  FDisposition: TMimeDisposition;

  FBuffer: String;

  FEncodingStream: TStream;

  FOutputStream: TStream;

  FLocalStream: TBogusStream;

  function RecalculateSize();

  function GetSize; virtual; abstract;

  procedure SetDescription();

  procedure SetDisposition();

  procedure SetEncoding();

  procedure CreateEncodingStream; virtual;

  function GetHeader; virtual;

  function ReadBuffer();

  procedure FillBuffer(); virtual; abstract;

public

  constructor Create();

  destructor Destroy; override;

  function Read();

  procedure Reset; virtual;

  property ContentType: String; [rw]

  property Encoding: TMimeEncoding; [rw]

  property Disposition: TMimeDisposition; [rw]

  property Description: String; [rw]

  property Header: String; [r]

  property Size: Integer; [r]

end;

TMimeSection

TObject