在RICHEDIT中插入图片

怎样在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