TIdMessagePart

type TIdMessagePart = class(TCollectionItem)

protected

  FContentMD5: string;

  FCharSet: string;

  FEndBoundary: string;

  FExtraHeaders: TIdHeaderList;

  FFileName: string;

  FName: string;

  FHeaders: TIdHeaderList;

  FIsEncoded: Boolean;

  FOnGetMessagePartStream: TOnGetMessagePartStream;

  FParentPart: Integer;

  function GetContentDisposition; virtual;

  function GetContentType; virtual;

  function GetContentTransfer; virtual;

  function GetContentID; virtual;

  function GetContentLocation; virtual;

  function GetContentDescription; virtual;

  function GetMessageParts;

  function GetOwnerMessage;

  procedure SetContentDisposition(); virtual;

  procedure SetContentType(); virtual;

  procedure SetContentTransfer(); virtual;

  procedure SetExtraHeaders();

  procedure SetContentID(); virtual;

  procedure SetContentDescription(); virtual;

  procedure SetContentLocation(); virtual;

public

  constructor Create(); override;

  destructor Destroy; override;

  procedure Assign(); override;

  function GetCharSet();

  function ResolveContentType();

  class function PartType; virtual;

  property IsEncoded: Boolean; [r]

  property MessageParts: TIdMessageParts; [r]

  property OwnerMessage: TPersistent; [r]

  property OnGetMessagePartStream: TOnGetMessagePartStream; [rw]

  property Headers: TIdHeaderList; [r]

published

  property CharSet: string; [rw]

  property ContentDescription: string; [rw]

  property ContentDisposition: string; [rw]

  property ContentID: string; [rw]

  property ContentLocation: string; [rw]

  property ContentTransfer: string; [rw]

  property ContentType: string; [rw]

  property ExtraHeaders: TIdHeaderList; [rw]

  property FileName: string; [rw]

  property Name: string; [rw]

  property ParentPart: Integer; [rw]

end;

TIdMessagePart

TObject