转换Delphi Classes.pas中TResourceStream类 到 VC CResourceStream类

/*
{ TResourceStream }
Convert by wfh,from Delphi Classes.pas
*/
class CResourceStream
{
private:
     HRSRC HResInfo;
     LPVOID HGlobal;
     INT64 m_int64Size;
     LPVOID m_Ptr;
     void Initialize(HINSTANCE Instance,LPCSTR Name,LPCSTR ResType,BOOL FromID);
     void SetPointer(LPVOID Ptr,INT64 Size);
public:
    CResourceStream(HINSTANCE Instance, LPCSTR ResName, LPSTR ResType);
    CResourceStream(HINSTANCE Instance, int ResID, LPSTR ResType);
    virtual ~CResourceStream();
    INT64 Write(LPCSTR Buffer,INT64 Count);
    void SaveToFile(LPCSTR FileName);
};

//
CResourceStream::CResourceStream(HINSTANCE Instance,LPCSTR ResName,LPSTR ResType)
{
     Initialize(Instance, ResName, ResType, FALSE);
}

CResourceStream::CResourceStream(HINSTANCE Instance,int ResID,LPSTR ResType)
{
    CString strResID;