其他语言

本类阅读TOP10

·基于Solaris 开发环境的整体构思
·使用AutoMake轻松生成Makefile
·BCB数据库图像保存技术
·GNU中的Makefile
·射频芯片nRF401天线设计的分析
·iframe 的自适应高度
·BCB之Socket通信
·软件企业如何实施CMM
·入门系列--OpenGL最简单的入门
·WIN95中日志钩子(JournalRecord Hook)的使用

分类导航
VC语言Delphi
VB语言ASP
PerlJava
Script数据库
其他语言游戏开发
文件格式网站制作
软件工程.NET开发
在RICHEDIT中插入图片

作者:未知 来源:月光软件站 加入时间:2005-2-28 月光软件站

怎样在RICHEDIT中插入图片
void __fastcall InsertBmpToRich(TRichEdit *re, WideString wstrBmpFile)
{
    IRichEditOle *RichOle;
    SendMessage(re->Handle, EM_GETOLEINTERFACE, 0, int(&RichOle));

    ILockBytes *FLockBytes;
    CreateILockBytesOnHGlobal(0,1,&FLockBytes);

    IStorage *FStorage;
    StgCreateDocfileOnILockBytes(FLockBytes,STGM_SHARE_EXCLUSIVE |
            STGM_CREATE | STGM_READWRITE,0,&FStorage);

    TFormatEtc FormatEtc;
    FormatEtc.cfFormat=0;
    FormatEtc.ptd=NULL;
    FormatEtc.dwAspect=DVASPECT_CONTENT;
    FormatEtc.lindex=-1;
    FormatEtc.tymed=TYMED_NULL;

    IOleObject *FOle;
    OleCreateFromFile(GUID_NULL, wstrBmpFile, ::IID_IOleObject,
          0, &FormatEtc, NULL, FStorage, (void**)&FOle);
    OleSetContainedObject(FOle, true);

    REOBJECT ReObject;
    ZeroMemory(&ReObject, sizeof(REOBJECT));
    ReObject.cbStruct=sizeof(REOBJECT);
    CLSID xt;
    FOle->GetUserClassID(&xt);
    ReObject.clsid=xt;
    ReObject.cp=REO_CP_SELECTION;
    ReObject.dvaspect=DVASPECT_CONTENT;
    ReObject.dwFlags=REO_STATIC | REO_BELOWBASELINE;
    ReObject.dwUser=0;
    ReObject.poleobj=FOle;

    IOleClientSite  *FClientSite;
    RichOle->GetClientSite(&FClientSite);
    ReObject.polesite=FClientSite;
    ReObject.pstg=FStorage;
    ReObject.sizel.cx=0;
    ReObject.sizel.cy=0;

    RichOle->InsertObject(&ReObject);
}

 

//调用方法:

InsertBmpToRich(RichEdit1, WideString("D:\\source\\Linux_Image\\header-projects.png"));

 

//或者用RichView

 




相关文章

相关软件