01type
02  IBinaryData = interface(IDispatch)
03    ['{8A9F7CB3-230A-4048-B938-852CBF6ADB2D}']
04    procedure Append(Src: OleVariant); safecall;
05    procedure Load(Src: OleVariant); safecall;
06    procedure Save(Dst: OleVariant); safecall;
07    function Size: LongWord; safecall;
08    procedure AppendData(Data: OleVariant; DataSize: LongWord); safecall;
09    procedure SetData(Data: OleVariant; DataSize: LongWord); safecall;
10    procedure GetData(Data: OleVariant); safecall;
11    function ToString(const Encoding: WideString): WideString; safecall;
12    procedure FromString(Data: OleVariant); safecall;
13    procedure AppendString(Data: OleVariant); safecall;
14    function ToBase64(Width: Integer): WideString; safecall;
15    procedure FromBase64(Data: OleVariant); safecall;
16    function ContentIsText: WordBool; safecall;
17  end;