在任意的开发语言的RichEdit控件中，插入GIF动画

最新推荐文章于 2023-03-16 10:55:15 发布

kql01

最新推荐文章于 2023-03-16 10:55:15 发布

阅读量6k

点赞数

分类专栏： MFC/ATL/WTL 文章标签：语言 vb delphi mfc null 工具

本文链接：https://blog.youkuaiyun.com/kql01/article/details/260148

版权

MFC/ATL/WTL 专栏收录该内容

11 篇文章

订阅专栏

前一段时间写了DynamicGif控件，优化代码的时候，顺便把Enabled属性给删除掉了，没想到在VB中却出了问题，只好再把属性加上。另外在VB中调用的时候，发现背景不能够自动更新，导致后一帧图像和前一帧重叠。本想进一步研究一下VB的ActiveX的工作原理，可惜我是个VB盲，没办法了。

      在RichEdit2.0版本中，对ActiveX控件接口的调用，改动比较大，因此增加Enabled属性后，在插入到2.0版的Richedit控件中，需要在InsertObject调用成功后，调用下面方法：
       lpDynamicGif->put_Enabled( VARIANT_TRUE );
来允许在Richedit控件中显示。

     另外，在ATL对话框和MFC的对话框中，创建DynamicGif控件时，原理是完全不同的。在MFC中，创建的是无窗口控件，占用对话框的显示区域，这样有些GIF文件会导致对话框不停的刷屏，给人一种闪烁的感觉。在ATL的对话框中，创建了一个对应的窗口，GIF图片显示在新建的窗口中，这样就没有闪烁的感觉，显示也比较正常。因此，可以根据不同的需要，选择不同的创建方式。
    下面是如何在ATL/WTL对话框中使用控件的源代码：
     CAxWindow dynAxWindow;
     dynAxWindow.m_hWnd = NULL;
    dynAxWindow.Attach( GetDlgItem(IDC_DYNAMICGIF1) );

     HRESULT hr = dynAxWindow.QueryControl( &m_spDynGif );
     if( hr == S_OK )
    {
        m_spDynGif->LoadFromFile( CComBSTR(L"E://8.gif") );
    }
    dynAxWindow.Detach();
    注：上述代码应该在VC7之后的编译环境编译，VC6中有资源泄漏的问题(ATL3.0的BUG)。
    获取IDynamicGif接口后，就可以调用相关的方法了。
    另外，为了方便VB6用户使用，引出了两个函数，InsertGifToRicheditW/A,来支持直接将文件插入到RichEdit控件中，两个函数的原型如下：

    STDAPI InsertGifToRicheditW( HWND hWnd, LPCWSTR lpszGifFile )；
    STDAPI InsertGifToRicheditA( HWND hWnd, LPCSTR lpszGifFile )；

     成功返回一个唯一的cookie标识控件，失败返回0。
     这里为了限制CPU的使用率，限制GIF的大小最大为150*150,一个进程中最多创建50个对象（实际上超过50以后，CPU几乎就占用100％了）。
     通过使用这两个函数，可以在任何可以使用动态连接库的语言中使用，比如Delphi、PB、C#等几乎任何开发WIN32的工具中，甚至WIN32中汇编。
     在VC中使用的代码如下：

typedef HRESULT ( STDAPICALLTYPE *pfnInsertGifToRichedit_t)( HWND hWnd, BSTR lpszGifFile );

HMODULE hDll = LoadLibrary( "dynamicgif.dll" );

pfnInsertGifToRichedit_t pfnInsertGif = NULL;

pfnInsertGif = (pfnInsertGifToRichedit_t)GetProcAddress( hDll,"InsertGifToRicheditW");

if( pfnInsertGif != NULL )

pfnInsertGif( m_richEdit1.m_hWnd, CComBSTR( dlg.GetPathName() ) );

     在VB中使用的有两种方式：
      1、采用ActiveX控件方式，在Form中显示GIF
      2、采用API方式插入到VB中插入RichEdit控件中：
            首先声明该函数，Private Declare Function InsertGifToRichedit Lib "DynamicGif.dll" Alias "InsertGifToRicheditA" (ByVal hwnd As Long, ByVal gifFile As String) As Long
             然后在适当的函数中调用该函数，插入gif动画即可，比如：
             ret = InsertGifToRichedit(RichTextBox1.hwnd, filename)
     这样，使用VB6也可以开发出有动态表情的聊天工具了。
VC中实现动态表情比较简单了，等有时间，我写详细一些，讨论如何在VB中实现动态表情。
      如何下载控件和演示代码：
       在相册2005-1文章图片中，用FlashGet下载对应的gif图片，每个有对应的提示。
       其中demo和dynamicgif对应的图片用UltraEdit二进制打开，将前面67个字节删除掉，把剩余的部分用zip扩展名保存，就是相应的压缩文件。
       运行前，首先将DynamicGif.dll拷贝到系统目录中，然后调用regsvr32 DynamicGif.dll注册到系统中，就可以使用了。控件依赖GdiPlus.dll,XP已经带了，2000中需要去微软站点上下载。
       免责声明：
        本控件中不含任何破坏性的代码，但是由于作者水平有限，对应控件可能造成的损失，不承担任何责任。
        免费使用声明：（建议大家使用这种方式）
        1、可以免费使用DynamicGif控件，用在公益事业中可以提供部分技术支持。
        2、如果在About对话框或者帮助文件中声明DynamicGif控件是kql的作品，那就多谢了。