TIdFormDataField

type TIdFormDataField = class(TCollectionItem)

protected

  FFileName: string;

  FCharset: string;

  FContentType: string;

  FContentTransfer: string;

  FFieldName: string;

  FFieldStream: TStream;

  FFieldValue: string;

  FCanFreeFieldStream: Boolean;

  FHeaderCharSet: string;

  FHeaderEncoding: char;

  function FormatHeader;

  function PrepareDataStream();

  function GetFieldSize;

  function GetFieldStream;

  function GetFieldValue;

  procedure SetCharset();

  procedure SetContentType();

  procedure SetContentTransfer();

  procedure SetFieldName();

  procedure SetFieldStream();

  procedure SetFieldValue();

  procedure SetFileName();

  procedure SetHeaderCharSet();

  procedure SetHeaderEncoding();

public

  constructor Create(); override;

  destructor Destroy; override;

  property ContentTransfer: string; [rw]

  property ContentType: string; [rw]

  property Charset: string; [rw]

  property FieldName: string; [rw]

  property FieldStream: TStream; [rw]

  property FileName: string; [rw]

  property FieldValue: string; [rw]

  property FieldSize: Int64; [r]

  property HeaderCharSet: string; [rw]

  property HeaderEncoding: char; [rw]

end;

TIdFormDataField

TObject