MFC richedit控件插入gif图片问题

Question

网上源代码很多，但是我比较菜，弄很久都不行
我最后选的是用QQ里的imageole.dll的那种方法
先注册了dll文件，然后import
实现
函数如下：（源码抄袭，没有任何修改，用QQ的dll的一般都是这段代码，不知道怎么用到自己程序，修改哪里呢）
void   CBizmeetDlg::InsertGraphics(CString   strPicPath)   
  {   
  LPLOCKBYTES   lpLockBytes   =   NULL;   
  SCODE   sc;   
  HRESULT   hr;           
  //print   to   RichEdit'   s   IClientSite   
  LPOLECLIENTSITE   m_lpClientSite;   
  //A   smart   point   to   IAnimator   
  ImageOleLib::IGifAnimatorPtr   m_lpAnimator;   
  //ptr   2   storage           
  LPSTORAGE   m_lpStorage;   
  //the   object   2   b   insert   2   
  LPOLEOBJECT m_lpObject;   
  //Create   lockbytes   
          sc   =   ::CreateILockBytesOnHGlobal(NULL,   TRUE,   &lpLockBytes);   
  if   (sc   !=   S_OK)   
  AfxThrowOleException(sc);   
  ASSERT(lpLockBytes   !=   NULL);   
  //use   lockbytes   to   create   storage   
  sc   =   ::StgCreateDocfileOnILockBytes(lpLockBytes,   
  STGM_SHARE_EXCLUSIVE|STGM_CREATE|STGM_READWRITE,   0,   &m_lpStorage);   
  if   (sc   !=   S_OK)   
  {   
  VERIFY(lpLockBytes->Release()   ==   0);   
  lpLockBytes   =   NULL;   
  AfxThrowOleException(sc);   
  }   
  ASSERT(m_lpStorage   !=   NULL);   
  //get   the   ClientSite   of   the   very   RichEditCtrl   
  GetIRichEditOle()->GetClientSite(&m_lpClientSite);   
  ASSERT(m_lpClientSite   !=   NULL);   
  try   
          {   
  //Initlize   COM   interface   
    
  hr   =   ::CoInitialize(NULL)   ;//(   NULL,   COINIT_APARTMENTTHREADED   );   
  if(   FAILED(hr)   )   
  _com_issue_error(hr);   
    
  //Get   GifAnimator   object   
  //here,   I   used   a   smart   point,   so   I   do   not   need   to   free   it   
  hr   =   m_lpAnimator.CreateInstance(ImageOleLib::CLSID_GifAnimator);   
  if(   FAILED(hr)   )   
  _com_issue_error(hr);   
  //COM   operation   need   BSTR,   so   get   a   BSTR   
  BSTR   path   =   strPicPath.AllocSysString();   
    
  //Load   the   gif   
  hr   =   m_lpAnimator->LoadFromFile(path);   
  if(   FAILED(hr)   )   
  _com_issue_error(hr);   
    
  TRACE0(m_lpAnimator->GetFilePath());   
    
  //get   the   IOleObject   
  hr   =   m_lpAnimator.QueryInterface(IID_IOleObject,   (void**)&m_lpObject);   
  if(   FAILED(hr)   )   
  _com_issue_error(hr);   
    
  //Set   it   2   b   inserted   
  OleSetContainedObject(m_lpObject,   TRUE);   
    
  //2   insert   in   2   richedit,   you   need   a   struct   of   REOBJECT   
  REOBJECT   reobject;   
  ZeroMemory(&reobject,sizeof(REOBJECT));   
    
  reobject.cbStruct   =   sizeof(REOBJECT);   
  CLSID   clsid;   
  sc   =   m_lpObject->GetUserClassID(&clsid);   
  if   (sc   !=   S_OK)   
  AfxThrowOleException(sc);   
  //set   clsid   
  reobject.clsid   =   clsid;   
  //can   be   selected   
  reobject.cp   =   REO_CP_SELECTION;   
  //content,   but   not   static   
  reobject.dvaspect   =   DVASPECT_CONTENT;   
  //goes   in   the   same   line   of   text   line   
  reobject.dwFlags   =   REO_BELOWBASELINE;   //REO_RESIZABLE   |   
  reobject.dwUser   =   0;   
  //the   very   object   
  reobject.poleobj   =   m_lpObject;   
  //client   site   contain   the   object   
  reobject.polesite   =   m_lpClientSite;   
  //the   storage     
  reobject.pstg   =   m_lpStorage;   
    
  SIZEL   sizel;   
  sizel.cx   =   sizel.cy   =   0;   
  reobject.sizel   =   sizel;   
  HWND   hWndRT   =   this->m_hWnd;   
  //Sel   all   text   
  // ::SendMessage(hWndRT,   EM_SETSEL,   0,   -1);   
  // DWORD   dwStart,   dwEnd;   
  // ::SendMessage(hWndRT,   EM_GETSEL,   (WPARAM)&dwStart,   (LPARAM)&dwEnd);   
  // ::SendMessage(hWndRT,   EM_SETSEL,   dwEnd+1,   dwEnd+1);   
  //Insert   after   the   line   of   text   
  GetIRichEditOle()->InsertObject(&reobject);   
  ::SendMessage(hWndRT,   EM_SCROLLCARET,   (WPARAM)0,   (LPARAM)0);   
  VARIANT_BOOL   ret;   
  //do   frame   changing   
  ret   =   m_lpAnimator->TriggerFrameChange();   
  //show   it   
  m_lpObject->DoVerb(OLEIVERB_UIACTIVATE,   NULL,   m_lpClientSite,   0,   m_hWnd,   NULL);   
  m_lpObject->DoVerb(OLEIVERB_SHOW,   NULL,   m_lpClientSite,   0,   m_hWnd,   NULL);   
    
  //redraw   the   window   to   show   animation   
  RedrawWindow();   
    
  if   (m_lpClientSite)   
  {   
  m_lpClientSite->Release();   
  m_lpClientSite   =   NULL;   
  }   
  if   (m_lpObject)   
  {   
  m_lpObject->Release();   
  m_lpObject   =   NULL;   
  }   
  if   (m_lpStorage)   
  {   
  m_lpStorage->Release();   
  m_lpStorage   =   NULL;   
  }   
    
  SysFreeString(path);   
  }   
  catch(   _com_error   e   )   
  {   
  AfxMessageBox(e.ErrorMessage());   
  ::CoUninitialize();   
  }   
  }
编译错误提示：
“GetIRichEditOle”: 找不到标识符
“Lm_lpAnimator”: 未声明的标识符
共20多个错误，GetIRichEditOle这个不知道是谁的成员，谁能帮我修改上面的源码，让可以在我的程序中运行，因为那段源码网上都是一样的，应该有人做过吧
谢谢了

Answer 1

经过分析问题出在2个地方1：错误提示->GetClientSite”的左边必须指向类/结构/联合/泛型类型     GetIRichEditOle()不知道是谁的成员2：错误提示“Lm_lpAnimator”: 未声明的标识符  这个比较奇怪TRACE0( m_lpAnimator->GetFilePath());这句中没有上面那个标识符啊

Answer 2

已经解决，写个类继承自cricheditctrl