TMimePart

type TMimePart = class(TObject)

public

  constructor Create;

  destructor Destroy; override;

  procedure Assign();

  procedure AssignSubParts();

  procedure Clear;

  procedure DecodePart;

  procedure DecodePartHeader;

  procedure EncodePart;

  procedure EncodePartHeader;

  procedure MimeTypeFromExt();

  function GetSubPartCount;

  function GetSubPart();

  procedure DeleteSubPart();

  procedure ClearSubParts;

  function AddSubPart;

  procedure DecomposeParts;

  procedure ComposeParts;

  procedure WalkPart;

  function CanSubPart;

published

  property Primary: String; [rw]

  property Encoding: String; [rw]

  property Charset: String; [rw]

  property DefaultCharset: String; [rw]

  property PrimaryCode: TMimePrimary; [rw]

  property EncodingCode: TMimeEncoding; [rw]

  property CharsetCode: TMimeChar; [rw]

  property TargetCharset: TMimeChar; [rw]

  property Secondary: String; [rw]

  property Description: String; [rw]

  property Disposition: String; [rw]

  property ContentID: String; [rw]

  property Boundary: String; [rw]

  property FileName: String; [rw]

  property Lines: TStringList; [r]

  property PartBody: TStringList; [r]

  property Headers: TStringList; [r]

  property PrePart: TStringList; [r]

  property PostPart: TStringList; [r]

  property DecodedLines: TMemoryStream; [r]

  property SubLevel: Integer; [rw]

  property MaxSubLevel: Integer; [rw]

  property AttachInside: Boolean; [r]

  property OnWalkPart: THookWalkPart; [rw]

  property MaxLineLength: Integer; [rw]

end;

TMimePart

TObject