TBase64EncodingStream

type TBase64EncodingStream = class(TOwnerStream)

protected

  CharsPerLine: Integer;

  LineSeparator: RawByteString;

  PadEnd: Boolean;

  TotalBytesProcessed: LongWord;

  BytesWritten: LongWord;

  LineLength: Integer;

  Buf: array [0..2] of Byte;

  BufSize: Integer;

  procedure DoWriteBuf();

public

  constructor Create();

  destructor Destroy; override;

  function Flush;

  function Write(); override;

  function Seek(); override;

end;

TBase64EncodingStream

TObject