TIdMultiPartFormDataStream

type TIdMultiPartFormDataStream = class(TIdBaseStream)

protected

  FInputStream: TStream;

  FFreeInputStream: Boolean;

  FBoundary: string;

  FRequestContentType: string;

  FCurrentItem: Integer;

  FInitialized: Boolean;

  FInternalBuffer: TIdBytes;

  FPosition: Int64;

  FSize: Int64;

  FFields: TIdFormDataFields;

  function GenerateUniqueBoundary;

  procedure CalculateSize;

  function IdRead(); override;

  function IdWrite(); override;

  function IdSeek(); override;

  procedure IdSetSize(); override;

public

  constructor Create;

  destructor Destroy; override;

  function AddFormField();

  function AddObject();

  function AddFile();

  procedure Clear;

  property Boundary: string; [r]

  property RequestContentType: string; [r]

end;

TIdMultiPartFormDataStream

TIdBaseStream

TObject