Converting some Delphi Code to C++

Hi. I have the following code in a Delphi DLL which is working and shall be ported to C(++) - it is important that the DLL can deal with the IStream refernce. unit T_D2007_Impl; interface uses ActiveX, StrUtils, SysUtils, Classes, Math; type TPFLog = procedure(AMsg: PAnsiChar; ASeverity: Integer) of object; stdcall; var BYTESRETURNED, BYTESTRANSFORMED: Integer; BYTESLASTREAD: PLongInt; DLIBMOVE: Int64; STREAMSTAT: tagSTATSTG; INSTREAM: IStream; LOG: TPluginFrameworkLog; implementation // Helpers ... function StreamToString(AStream: IStream): AnsiString; var len: Int64; s: AnsiString; currentposinstream: Int64; begin [login to view URL](STREAMSTAT, STATFLAG_DEFAULT); DLIBMOVE := 0; [login to view URL](DLIBMOVE, STREAM_SEEK_CUR, currentposinstream); len := [login to view URL] - currentposinstream; SetLength(s, len); if len > 0 then [login to view URL](Pointer(s), len, BYTESLASTREAD); Result := s; end; // end of helpers function AddLoggingCallBack(ALoggingFunction: TPFLog): Boolean; begin try LOG := ALoggingFunction; Result := true; except Result := false; end; end; function SetInStream(const APointerToTheInStream: Pointer): Boolean; export; begin try INSTREAM := IStream(APointerToTheInStream); Result := true; except Result := false; end; end; procedure UpdateStreamStats(); begin DLIBMOVE := 0; [login to view URL](STREAMSTAT, STATFLAG_NONAME); end; function Read(var Buffer; Count: Longint): Longint; export; var len: Int64; instring2, sizestring, posstring, logstring: AnsiString; pc: PAnsiChar; begin UpdateStreamStats; len := [login to view URL] - BYTESTRANSFORMED; if len > 0 then begin sizestring := IntToStr([login to view URL]); posstring := IntToStr(BYTESTRANSFORMED); logstring := 'Starting to read and transform instring ' + posstring + '/' + sizestring + '.';; LOG(PAnsiChar(logstring), 5); instring2 := StreamToString(INSTREAM); BYTESTRANSFORMED := Length(instring2); instring2 := AnsiReplaceStr(instring2, AnsiString('XXX' + #13 + #10), AnsiString('')); instring2 := AnsiReplaceStr(AnsiString(instring2), AnsiString('{'), AnsiString('[')); instring2 := AnsiReplaceStr(AnsiString(instring2), AnsiString('}'), AnsiString(']')); pc := PAnsiChar(instring2); Move(pc^, Buffer, Length(instring2)); Result := Length(instring2); BYTESRETURNED := BYTESRETURNED + Result; posstring := AnsiString(IntToStr(BYTESTRANSFORMED)); logstring := 'Finished to read and transform instring ' + sizestring + '/' + posstring + '.'; LOG(PAnsiChar(logstring), 5); end else Result := 0; end; // end of export functions exports AddLoggingCallBack, SetInStream, Read; begin BYTESRETURNED := 0; BYTESTRANSFORMED := 0; byteslastread := nil; DLIBMOVE := 0; end.