如何在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
Delphi本身附带的Richedit是1.0版，不支持插入图片。如果你要插入图片，就必须使用Richedit 2.0版，例如RxRichedit或Richedit98。 查看更多答案>>
在调用InsertBmpToRich(TRichEdit *re, WideString wstrBmpFile)函数的时候,试做用图片全路径的形式调用(最好用BMP格式的),如String filename="d:\\picture\\pic1.bmp";
InsertBmpToRich(RichEdit1,WideString(filename));
其他的需要你自己调试.
友芬基瑞： procedure TMainForm.InsertPicture(const FileName: string);var Picture: TPicture; JpegImage: TJpegImage; sExt, sClip: string;begin sExt := LowerCase(ExtractFileExt(FileName)); if Clipboard.AsText <> '' then sClip := Clipboard.AsText; if (sExt = '....
巴林右旗15244465736： 怎样将图片等自动化对象插入到TRichEdit组件中？
友芬基瑞： 写字板和国产的“电子日记本”中的RichEdit中都可以插入Ole对象,请问这是怎么实现的,给出源代码就给分.
巴林右旗15244465736： 如何实现richedit打印? - ？
友芬基瑞： richedit传回字符串,在view类加个控件变量接受,不就可以了?或者还有 GetDlgItemText(控件ID,接受字符串)函数 也同样可以接受richedit里面的字符串,然后送到打印机就可以了 下面是MSDN的回答 可以通知 Rich Edit 控件 (...
巴林右旗15244465736： delphi如何实现动态插入表格功能? - ？
友芬基瑞： 你可以在程序里调用Word,通过word来达到动态插入表格的效果.如果是自己写的编辑控件里插入表格,那就需要控件本身的支持,比较复杂.
巴林右旗15244465736： RXRICHEDIT插入图片后,怎样判断图片的路径和文件名以及所在的位置? - ？
友芬基瑞： RXRICHEDIT插入图片可直接用 RXRICHEDIT.pasteFromClip 但想知道图片的路径和文件名以及所在的位置,就不知道了.WORD里插入图片后也没有能找到 这样的信息.
巴林右旗15244465736： 在html里面怎么为一个按钮添加图片 - ？
友芬基瑞： 需要准备的材料分别有:电脑、浏览器、html编辑器. 1、首先,打开html编辑器,新建html文件,例如:index.html,编写问题基础代码. 2、在index.html中的<button>标签中,加入样式代码:style=＂background: url(small2.png);width:150px;height:60px＂. 3、浏览器运行index.html页面,此时按钮被成功添加了图片.
巴林右旗15244465736： 如何在Excel单元格内添加照片? - ？
友芬基瑞： 方法有很多,前面二位说的都是插入图片的方法,我建议你使用插入→图片→找到你要插入图片的目标位置→插入.此时图片是插入了,但图片可能会很大,也不符合你说的在某一“单元格里”这才是关键所在,因为你说的要在单元格中,所以...
巴林右旗15244465736： 在word中,如何在自选图形中插入图片? - ？
友芬基瑞： 新建一个自选图形,再插入图片,图片就到了自选图形中了,再设置文字环绕,图形就一样了.
巴林右旗15244465736： 如何在excel表格中添加照片 - ？
友芬基瑞： 方法很简单,按以下步骤操作 第一、选择你要添加图片的单元格位置.第二、选择【插入】>> 【图片】>> 然后弹出选择图片存放位置的对话框.第三、找到你要添加的图片后,选中你要添加的图片,然后右下角点插入,就插入完成了.其他说明,如果要添加多张图片,可以按住Ctrl键 连续选择你要添加的图片,然后右下角点插入 就完成批量插入了. 如果要调整图片大小,自己用鼠标拖动图片边框微调就可以了.
巴林右旗15244465736： 、在Word文档中插入图片的方法有哪几种? - ？
友芬基瑞： 三种方法: 1、菜单功能项:“插入”菜单中的“图片” 2、工具栏:工具栏上“插入图片”按钮.(通常绘图工具栏和图片工具栏中都有此工具按钮) 3、拖拽法:找到图片文件,把它拖拽进WORD文档.
