TMimeItem

type TMimeItem = class(TCollectionItem)

protected

  FLocalFilename: string;

  function CreateUploadedFileStreaming(); virtual;

  function CreateUploadedFile(); virtual;

  function CreateFile(); virtual;

  function ProcessHeader(); virtual;

  procedure SaveToFile(); virtual;

  function GetIsFile; virtual;

  function GetDataSize; virtual; abstract;

  function GetHeader(); virtual; abstract;

  procedure SetHeader(); virtual; abstract;

public

  procedure ProcessStreaming(); virtual; abstract;

  procedure Process(); virtual; abstract;

  property Data: string; [rw]

  property Name: string; [rw]

  property Disposition: string; [rw]

  property FileName: string; [rw]

  property ContentType: string; [rw]

  property Description: string; [rw]

  property IsFile: Boolean; [r]

  property DataSize: Int64; [r]

end;

TMimeItem

TObject