能显示GIF动画的CRichEditCtrl输入框

天云上人

前一段时间写一个类似于QQ的聊天工具，本来想从网上找一个现成的支持表情显示的输入框，可惜没找到，没办法，只能参考了一些COM方面的资料，自己封装了一个可以显示GIF动画的RichEdit，原理是在MFC的CRichEditCtrl里面插入一个OLE对象。
, p, Y: v0 X- z& U5 n. R
8 V4 K; v  ?9 q0 N这个OLE对象是IGIFShow，好象是微软的一个COM组件，可以显示bmp\jpg\gif等。
/ ]# k4 V% f9 O* G9 t
下面教你怎么在一个CRichEdit里面插入一个GIF动画：

1 . 你可以先用VC6.0自带的工具OLE View来把IGIFShow的IDL导出来，导出文件为IGIFShow.idl。
0 `! L/ I$ t5 F, b( u! g( V
) j2 P6 o- G$ c3 b$ ^+ P2. 把这个文件加入到你的工程里面。(File View->右键->Add file to folder...)
# r/ |, |! B& l, _* }; @
; h3 h  n2 g- G% X3. 在VC的IDE里加入MIDL工具。(Tools->Customize->tools->列表框拉到底->添加VC98下面的MIDL.exe)

* g# A( v8 X  X# ~9 B4. File View->右键点击IGIFShow.idl，在弹出菜单里选Compile IGIFShow.idl.
3 ]5 @4 n. x4 }
5. 编译完IDL后，生成一个.h文件一个.c文件，把这两个文件都另到工程里去。
, J% Y1 s0 a5 R$ o
) W5 @- L0 n1 P6 s* J6. 从CRichEditCtrl继承一个类，添加如下方法就OK了（不要忘了在你的App初始化时调用AfxInitRichEdit();）：

, _8 k  A2 D1 O" U' L' L  ~) R///Insert gif from file.
) v2 ^8 O+ [7 c& l% x) d% v( }+ @BOOL CEditEx::InsertGif(CString strFileName)
{
LPRICHEDITOLE lpRichEditOle=GetIRichEditOle();
LPOLECLIENTSITE lpClientSite=NULL;
IGIFShow*  lpGifShow=NULL;//Main interface.
SIZEL sizel={0,0};
CDC* pDC=GetDC();
  
6 s. X+ F) ]* n0 R7 M //Init REOBJECT.
REOBJECT reobject;
ZeroMemory(&reobject, sizeof(REOBJECT));
reobject.cbStruct = sizeof(REOBJECT);

if (S_OK!=lpRichEditOle->GetClientSite(&lpClientSite))
  goto BAD_RETURN;
% ^. C' M8 M( [1 @  
; c! S% b4 j7 f, M  s //Create the com instance.
if (S_OK!=::CoCreateInstance(CLSID_GIFShow,NULL,CLSCTX_INPROC_SERVER,IID_IGIFShow,(void**)&lpGifShow))
  goto BAD_RETURN;
if (S_OK!=lpGifShow->put_Image(strFileName.AllocSysString()))//Load from file.
  goto BAD_RETURN;

) c; t3 [7 M+ I& E2 K/ R  ^3 H. \ //
lpGifShow->put_BkColor(pDC->GetPixel(1,1));
DeleteObject(pDC->m_hDC);

8 m' B1 g' b+ h- w; { //Set REOBJECT member,insert it.
6 O7 {5 W, t3 K, ] reobject.clsid = IID_IGIFShow;
reobject.cp = REO_CP_SELECTION;
, H$ e% J7 z/ q reobject.dvaspect = DVASPECT_CONTENT;
reobject.dwFlags = REO_BELOWBASELINE;
reobject.dwUser = 0;
reobject.poleobj = (LPOLEOBJECT)lpGifShow;
reobject.polesite = lpClientSite;
reobject.sizel = sizel;
9 K6 K7 m7 o( A0 U if (S_OK!=lpRichEditOle->InsertObject(&reobject))
  goto BAD_RETURN;

$ f3 i8 X7 y0 ~" B //Free and return.
2 ~2 u7 {) j3 s, o# Q lpRichEditOle->Release();
lpClientSite->Release();
lpGifShow->Release();
return TRUE;
BAD_RETURN:
if (NULL!=lpRichEditOle) lpRichEditOle->Release();
7 ^. a# v' F) A" a if (NULL!=lpClientSite) lpClientSite->Release();
# L9 e  G5 m  p- L+ O if (NULL!=lpGifShow) lpGifShow->Release();
6 _( k) j& B8 O" \8 |+ s return FALSE;
' x6 V2 q& c! v, l* B/ P' F$ l}

" ]4 G, ]2 q1 afrom:http://publishblog.blogchina.com/blog/tb.b?diaryID=2819759