TIpMimeEntity

type TIpMimeEntity = class(TPersistent)

protected

  FProgress: Byte;

  PrevProgress: Byte;

  FMimeParts: TIpMimeParts;

  FParentBoundary: string;

  FBody: TIpAnsiTextStream;

  FEntityName: string;

  FBoundary: string;

  FCharacterSet: string;

  FContentDescription: string;

  FContentDispositionType: string;

  FContentID: string;

  FContentSubtype: string;

  FContentType: string;

  FCreationDate: string;

  FContentTransferEncoding: TIpMimeEncodingMethod;

  FFileName: string;

  FIsMime: Boolean;

  FIsMultipart: Boolean;

  FModificationDate: string;

  FMimeVersion: string;

  FOnCodingProgress: TIpCodingProgressEvent;

  FOriginalSize: LongInt;

  FParent: TIpMimeEntity;

  FReadDate: string;

  FRelatedType: string;

  FRelatedSubtype: string;

  FRelatedStart: string;

  FRelatedStartInfo: string;

  FAttachmentCount: Integer;

  procedure Clear; virtual;

  procedure ClearBodyLargeAttach(); virtual;

  function ContainsSpecialChars();

  procedure DecodeContentDisposition();

  procedure DecodeContentType();

  function DecodeContentTransferEncoding();

  procedure DecodeMimeHeaders();

  procedure DoOnCodingProgress();

  procedure EncodeContentDisposition();

  procedure EncodeContentType();

  procedure EncodeContentTransferEncoding();

  procedure EncodeMimeHeaders();

  procedure OctetStreamToHextetStream();

  procedure Decode8Bit();

  procedure DecodeBase64();

  procedure DecodeBinHex();

  procedure DecodeQuoted();

  procedure DecodeUUEncode();

  procedure Encode8Bit();

  procedure EncodeBase64();

  procedure EncodeBinHex();

  procedure EncodeQuoted();

  procedure EncodeUUEncode();

  function DecodeEntity();

  function DecodeEntityAsAttachment();

  function EncodeEntity();

  procedure ReadBody();

  property OnCodingProgress: TIpCodingProgressEvent; [rw]

public

  constructor Create(); virtual;

  destructor Destroy; override;

  procedure ClearBody;

  procedure EncodeBodyFile();

  procedure EncodeBodyStream();

  procedure EncodeBodyStrings();

  procedure ExtractBodyFile();

  procedure ExtractBodyStream();

  procedure ExtractBodyStrings();

  function FindNestedMimePart();

  function GetMimePart();

  function NewMimePart;

  property AttachmentCount: Integer; [r]

  property Body: TIpAnsiTextStream; [r]

  property Boundary: string; [rw]

  property CharacterSet: string; [rw]

  property ContentDescription: string; [rw]

  property ContentDispositionType: string; [rw]

  property ContentID: string; [rw]

  property ContentSubtype: string; [rw]

  property ContentTransferEncoding: TIpMimeEncodingMethod; [rw]

  property ContentType: string; [rw]

  property CreationDate: string; [rw]

  property EntityName: string; [rw]

  property FileName: string; [rw]

  property IsMime: Boolean; [r]

  property IsMultipart: Boolean; [r]

  property MimeParts: TIpMimeParts; [r]

  property MimeVersion: string; [rw]

  property ModificationDate: string; [rw]

  property OriginalSize: LongInt; [rw]

  property Parent: TIpMimeEntity; [r]

  property ReadDate: string; [rw]

  property RelatedStart: string; [rw]

  property RelatedStartInfo: string; [rw]

  property RelatedSubtype: string; [rw]

  property RelatedType: string; [rw]

end;

TIpMimeEntity

TObject