- html - 出于某种原因,IE8 对我的 Sass 文件中继承的 html5 CSS 不友好?
- JMeter 在响应断言中使用 span 标签的问题
- html - 在 :hover and :active? 上具有不同效果的 CSS 动画
- html - 相对于居中的 html 内容固定的 CSS 重复背景?
我在网上搜索了如何在RichEdit
中插入图片。我只发现将 TImage
插入 Richedit 或其他第 3 部分组件来为我完成此操作。我不想使用其他组件或将 TImage
插入 RichEdit。
还有其他方法可以做到这一点吗?
我想将其插入行中,以便我可以使用段落操作,例如在其上进行对齐(插入 TImage
并没有提供这一点,正如我在示例中发现并测试的那样,我错了吗?)。我想写一些类似于 TJVRichEdit
(在 JVCL 包中)中发生的事情,在 Richedit 中重新调整图片大小可以被忽略。
最佳答案
如果您可以将图像包裹在 IOleObject
内接口(interface),例如通过 OleCreateFromData()
或OleCreateFromFile()
函数,那么你可以使用EM_GETOLEINTERFACE
检索 IRichEditOle
的消息从 TRichEdit
接口(interface),然后调用其 InsertObject()
方法来插入实际图像。棘手的部分是将图像包装在 IOleObject
中首先,但可以通过一些工作来完成。
更新:以下是 MSDN 在以下文章中提供的信息的粗略翻译:
How to insert a bitmap into an RTF document using the RichEdit control in Visual C++ 6.0
uses
..., Winapi.ActiveX, RichOle;
var
RichEditOle: IRichEditOle;
LockBytes: ILockBytes;
ClientSite: IOleClientSite;
Storage: IStorage;
Image: IOleObject;
Obj: REOBJECT;
Fmt: FORMATETC;
begin
if RichEdit_GetOleInterface(RichEdit1.Handle, RichEditOle) then
begin
ZeroMemory(@Fmt, SizeOf(Fmt));
Fmt.cfFormat := 0;
Fmt.ptd := nil;
Fmt.dwAspect := DVASPECT_CONTENT;
Fmt.lindex := -1;
Fmt.tymed := TYMED_NULL;
OleCheck(CreateILockBytesOnHGlobal(nil, True, LockBytes));
OleCheck(StgCreateDocfileOnILockBytes(LockBytes, STGM_SHARE_EXCLUSIVE or STGM_CREATE or STGM_READWRITE, 0, Storage));
OleCheck(RichEditOle.GetClientSite(ClientSite));
OleCheck(OleCreateFromFile(CLSID_NULL, PChar(FileName), IOleObject, OLERENDER_DRAW, @Fmt, ClientSite, Storage, Image));
OleSetContainedObject(Image, True);
ZeroMemory(@Obj, sizeof(Obj));
Obj.cbStruct := SizeOf(Obj);
Obj.cp := REO_CP_SELECTION;
OleCheck(Image.GetUserClassID(Obj.clsid));
Obj.poleobj := Image;
Obj.pstg := Storage;
Obj.polesite := ClientSite;
Obj.sizel.cx := 0;
Obj.sizel.cx := 0;
Obj.dvaspect := DVASPECT_CONTENT;
Obj.dwFlags := 0;
Obj.dwUser := 0;
OleCheck(RichEditOle.InsertObject(Obj));
end;
end;
这是 RichOle
单元的第三方版本(Embarcadero 不提供该版本):
{
RichOle.pas
Pascal version of richole.h (version: 2005 platform SDK).
Version 1.3d - always find the most current version at
http://flocke.vssd.de/prog/code/pascal/rtflabel/
Copyright (C) 2001-2009 Volker Siebert <flocke@vssd.de>
All rights reserved.
Permission is hereby granted, free of charge, to any person obtaining a
copy of this software and associated documentation files (the "Software"),
to deal in the Software without restriction, including without limitation
the rights to use, copy, modify, merge, publish, distribute, sublicense,
and/or sell copies of the Software, and to permit persons to whom the
Software is furnished to do so, subject to the following conditions:
The above copyright notice and this permission notice shall be included in
all copies or substantial portions of the Software.
THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR
IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY,
FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE
AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER
LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING
FROM, OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER
DEALINGS IN THE SOFTWARE.
}
{$I DelphiVersion.inc}
{$IFDEF CPPBUILDER}
{$HPPEMIT '#include <RichOle.h>'}
{$ENDIF}
unit RichOle;
{$WEAKPACKAGEUNIT}
{$MINENUMSIZE 4}
interface
uses
Windows, ActiveX, RichEdit;
(*
* RICHOLE.H
*
* Purpose:
* OLE Extensions to the Rich Text Editor
*
* Copyright (c) 1985-1999, Microsoft Corporation
*)
// Structure passed to GetObject and InsertObject
type
PReObject = ^TReObject;
{$IFDEF CPPBUILDER}{$EXTERNALSYM _REOBJECT}{$ENDIF}
_REOBJECT = packed record
cbStruct: DWORD; // [00] Size of structure
cp: LongInt; // [04] Character position of object
clsid: TCLSID; // [08] Class ID of object
oleobj: IOleObject; // [18] OLE object interface
stg: IStorage; // [1C] Associated storage interface
olesite: IOLEClientSite; // [20] Associated client site interface
sizel: TSize; // [24] Size of object (may be 0,0)
dvaspect: DWORD; // [2C] Display aspect to use
dwFlags: DWORD; // [30] Object status flags
dwUser: DWORD; // [34] Dword for user's use
end;
{$IFDEF CPPBUILDER}{$EXTERNALSYM REOBJECT}{$ENDIF}
REOBJECT = _reobject;
TReObject = _reobject;
const
// Flags to specify which interfaces should
// be returned in the structure above
{$IFDEF CPPBUILDER}{$EXTERNALSYM REO_GETOBJ_NO_INTERFACES}{$ENDIF}
REO_GETOBJ_NO_INTERFACES = $00000000;
{$IFDEF CPPBUILDER}{$EXTERNALSYM REO_GETOBJ_POLEOBJ}{$ENDIF}
REO_GETOBJ_POLEOBJ = $00000001;
{$IFDEF CPPBUILDER}{$EXTERNALSYM REO_GETOBJ_PSTG}{$ENDIF}
REO_GETOBJ_PSTG = $00000002;
{$IFDEF CPPBUILDER}{$EXTERNALSYM REO_GETOBJ_POLESITE}{$ENDIF}
REO_GETOBJ_POLESITE = $00000004;
{$IFDEF CPPBUILDER}{$EXTERNALSYM REO_GETOBJ_ALL_INTERFACES}{$ENDIF}
REO_GETOBJ_ALL_INTERFACES = $00000007;
// Place object at selection
{$IFDEF CPPBUILDER}{$EXTERNALSYM REO_CP_SELECTION}{$ENDIF}
REO_CP_SELECTION = -1; // why? cardinal(-1);
// Use character position to specify object instead of index
{$IFDEF CPPBUILDER}{$EXTERNALSYM REO_IOB_SELECTION}{$ENDIF}
REO_IOB_SELECTION = -1; // why? cardinal(-1);
{$IFDEF CPPBUILDER}{$EXTERNALSYM REO_IOB_USE_CP}{$ENDIF}
REO_IOB_USE_CP = -2; // why? cardinal(-2);
// Object flags
{$IFDEF CPPBUILDER}{$EXTERNALSYM REO_NULL}{$ENDIF}
REO_NULL = $00000000; // No flags
{$IFDEF CPPBUILDER}{$EXTERNALSYM REO_READWRITEMASK}{$ENDIF}
REO_READWRITEMASK = $0000003F; // Mask out RO bits
{$IFDEF CPPBUILDER}{$EXTERNALSYM REO_DONTNEEDPALETTE}{$ENDIF}
REO_DONTNEEDPALETTE = $00000020; // Object doesn't need palette
{$IFDEF CPPBUILDER}{$EXTERNALSYM REO_BLANK}{$ENDIF}
REO_BLANK = $00000010; // Object is blank
{$IFDEF CPPBUILDER}{$EXTERNALSYM REO_DYNAMICSIZE}{$ENDIF}
REO_DYNAMICSIZE = $00000008; // Object defines size always
{$IFDEF CPPBUILDER}{$EXTERNALSYM REO_INVERTEDSELECT}{$ENDIF}
REO_INVERTEDSELECT = $00000004; // Object drawn all inverted if sel
{$IFDEF CPPBUILDER}{$EXTERNALSYM REO_BELOWBASELINE}{$ENDIF}
REO_BELOWBASELINE = $00000002; // Object sits below the baseline
{$IFDEF CPPBUILDER}{$EXTERNALSYM REO_RESIZABLE}{$ENDIF}
REO_RESIZABLE = $00000001; // Object may be resized
{$IFDEF CPPBUILDER}{$EXTERNALSYM REO_LINK}{$ENDIF}
REO_LINK = $80000000; // Object is a link (RO)
{$IFDEF CPPBUILDER}{$EXTERNALSYM REO_STATIC}{$ENDIF}
REO_STATIC = $40000000; // Object is static (RO)
{$IFDEF CPPBUILDER}{$EXTERNALSYM REO_SELECTED}{$ENDIF}
REO_SELECTED = $08000000; // Object selected (RO)
{$IFDEF CPPBUILDER}{$EXTERNALSYM REO_OPEN}{$ENDIF}
REO_OPEN = $04000000; // Object open in its server (RO)
{$IFDEF CPPBUILDER}{$EXTERNALSYM REO_INPLACEACTIVE}{$ENDIF}
REO_INPLACEACTIVE = $02000000; // Object in place active (RO)
{$IFDEF CPPBUILDER}{$EXTERNALSYM REO_HILITED}{$ENDIF}
REO_HILITED = $01000000; // Object is to be hilited (RO)
{$IFDEF CPPBUILDER}{$EXTERNALSYM REO_LINKAVAILABLE}{$ENDIF}
REO_LINKAVAILABLE = $00800000; // Link believed available (RO)
{$IFDEF CPPBUILDER}{$EXTERNALSYM REO_GETMETAFILE}{$ENDIF}
REO_GETMETAFILE = $00400000; // Object requires metafile (RO)
// flags for IRichEditOle::GetClipboardData(),
// IRichEditOleCallback::GetClipboardData() and
// IRichEditOleCallback::QueryAcceptData()
{$IFDEF CPPBUILDER}{$EXTERNALSYM RECO_PASTE}{$ENDIF}
RECO_PASTE = $00000000; // paste from clipboard
{$IFDEF CPPBUILDER}{$EXTERNALSYM RECO_DROP}{$ENDIF}
RECO_DROP = $00000001; // drop
{$IFDEF CPPBUILDER}{$EXTERNALSYM RECO_COPY}{$ENDIF}
RECO_COPY = $00000002; // copy to the clipboard
{$IFDEF CPPBUILDER}{$EXTERNALSYM RECO_CUT}{$ENDIF}
RECO_CUT = $00000003; // cut to the clipboard
{$IFDEF CPPBUILDER}{$EXTERNALSYM RECO_DRAG}{$ENDIF}
RECO_DRAG = $00000004; // drag
type
(*
* IRichEditOle
*
* Purpose:
* Interface used by the client of RichEdit to perform OLE-related
* operations.
*
* //$ REVIEW:
* The methods herein may just want to be regular Windows messages.
*)
{$IFDEF CPPBUILDER}{$EXTERNALSYM IRichEditOle}{$ENDIF}
IRichEditOle = interface(IUnknown)
['{00020D00-0000-0000-C000-000000000046}']
// *** IRichEditOle methods ***
function GetClientSite(out clientSite: IOleClientSite): HRESULT; stdcall;
function GetObjectCount: LongInt; stdcall;
function GetLinkCount: LongInt; stdcall;
function GetObject(iob: LongInt; out ReObject: TReObject;
dwFlags: DWORD): HRESULT; stdcall;
function InsertObject(var ReObject: TReObject): HRESULT; stdcall;
function ConvertObject(iob: LongInt; const clsidNew: TCLSID;
lpStrUserTypeNew: LPCSTR): HRESULT; stdcall;
function ActivateAs(const clsid, clsidAs: TCLSID): HRESULT; stdcall;
function SetHostNames(lpstrContainerApp: LPCSTR;
lpstrContainerObj: LPCSTR): HRESULT; stdcall;
function SetLinkAvailable(iob: LongInt; fAvailable: BOOL): HRESULT; stdcall;
function SetDvaspect(iob: LongInt; dvaspect: DWORD): HRESULT; stdcall;
function HandsOffStorage(iob: LongInt): HRESULT; stdcall;
function SaveCompleted(iob: LongInt; const stg: IStorage): HRESULT; stdcall;
function InPlaceDeactivate: HRESULT; stdcall;
function ContextSensitiveHelp(fEnterMode: BOOL): HRESULT; stdcall;
function GetClipboardData(const chrg: TCharRange; reco: DWORD;
out dataobj: IDataObject): HRESULT; stdcall;
function ImportDataObject(const dataobj: IDataObject; cf: TClipFormat;
hMetaPict: HGLOBAL): HRESULT; stdcall;
end;
(*
* IRichEditOleCallback
*
* Purpose:
* Interface used by the RichEdit to get OLE-related stuff from the
* application using RichEdit.
*)
{$IFDEF CPPBUILDER}{$EXTERNALSYM IRichEditOleCallback}{$ENDIF}
IRichEditOleCallback = interface(IUnknown)
['{00020D03-0000-0000-C000-000000000046}']
// *** IRichEditOleCallback methods ***
function GetNewStorage(out stg: IStorage): HRESULT; stdcall;
function GetInPlaceContext(out Frame: IOleInPlaceFrame;
out Doc: IOleInPlaceUIWindow;
lpFrameInfo: POleInPlaceFrameInfo): HRESULT; stdcall;
function ShowContainerUI(fShow: BOOL): HRESULT; stdcall;
function QueryInsertObject(const clsid: TCLSID; const stg: IStorage;
cp: LongInt): HRESULT; stdcall;
function DeleteObject(const oleobj: IOleObject): HRESULT; stdcall;
function QueryAcceptData(const dataobj: IDataObject;
var cfFormat: TClipFormat; reco: DWORD; fReally: BOOL;
hMetaPict: HGLOBAL): HRESULT; stdcall;
function ContextSensitiveHelp(fEnterMode: BOOL): HRESULT; stdcall;
function GetClipboardData(const chrg: TCharRange; reco: DWORD;
out dataobj: IDataObject): HRESULT; stdcall;
function GetDragDropEffect(fDrag: BOOL; grfKeyState: DWORD;
var dwEffect: DWORD): HRESULT; stdcall;
function GetContextMenu(seltype: Word; oleobj: IOleObject;
const chrg: TCharRange; var menu: HMENU): HRESULT; stdcall;
end;
const
IID_IRichEditOle: TGUID = '{00020D00-0000-0000-C000-000000000046}';
IID_IRichEditOleCallback: TGUID = '{00020D03-0000-0000-C000-000000000046}';
{$IFDEF CPPBUILDER}{$EXTERNALSYM RichEdit_SetOleCallback}{$ENDIF}
function RichEdit_SetOleCallback(Wnd: HWND;
const Intf: IRichEditOleCallback): Boolean;
{$IFDEF CPPBUILDER}{$EXTERNALSYM RichEdit_GetOleInterface}{$ENDIF}
function RichEdit_GetOleInterface(Wnd: HWND; out Intf: IRichEditOle): Boolean;
implementation
function RichEdit_SetOleCallback(Wnd: HWND;
const Intf: IRichEditOleCallback): Boolean;
begin
Result := SendMessage(Wnd, EM_SETOLECALLBACK, 0, LongInt(Intf)) <> 0;
end;
function RichEdit_GetOleInterface(Wnd: HWND; out Intf: IRichEditOle): Boolean;
begin
Result := SendMessage(Wnd, EM_GETOLEINTERFACE, 0, LongInt(@Intf)) <> 0;
end;
end.
关于delphi - Delphi中如何向TRichEdit插入图片?,我们在Stack Overflow上找到一个类似的问题: https://stackoverflow.com/questions/15318636/
我有 512 行要插入到数据库中。我想知道提交多个插入内容是否比提交一个大插入内容有任何优势。例如 1x 512 行插入 -- INSERT INTO mydb.mytable (id, phonen
已经提出了类似的问题,但由于它总是取决于,我单独询问我的具体情况。 我有一个网站页面,显示来自数据库的一些数据,要从该数据库生成数据,我必须执行一些相当复杂的多连接查询。 数据每天(每晚)更新一次。
我正在使用 MongoDb 和 MySQL 的 python 连接器 pymongo 和 pymysql 测试 MongoDb 和 MySQL,特别是插入功能。 pymongo版本是3.4,pymys
从 C# 应用程序插入大型数组(10M 元素)的最快方法是什么? 到目前为止,我使用的是批量插入。 C# 应用程序生成一个大文本文件,我使用 BULK INSERT 命令加载它。出于好奇,我编写了一个
我编写了一个枚举类型,当我为它运行我创建的 JUnit 测试时会出现以下语法错误: java.lang.Error: Unresolved compilation problems: Synt
我正在尝试创建一个程序,它将单词列表作为输入,并将它们排序为二叉树,以便能够找到它们,例如像字典。这是我到目前为止所做的,但是 newEl -> el = input; 出现段错误,我知道这是因为它试
你好 我有编译这个问题 \begin{equation} J = \sum_{j=1}^{C} \end{equation} 我不断收到错误 missing $ inserted 这很奇怪,因
我需要使用 LINQ to SQL 将记录插入到没有主键的表中。 table 设计得很差;我无法控制表结构。该表由几个 varchar 字段、一个文本字段和一个时间戳组成。它用作其他实体的审计跟踪。
我正在尝试使用 itextsharp 创建 Pdf。我添加了一张包含两列的表格,其中一列包含文本和其他图像。我想要恒定的图像大小 如果另一个单元格中的文本增加并且其他单元格中的图像大小不同,我的图像会
我想把 calory 作为 fruits 的第一个值,我做不到,有人能帮忙吗? $sql = 'INSERT INTO fruits VALUES('', ?, ?, ?)'
我有一个包含季度观察结果的 data.frame。我现在想插入每月值(首选三次,线性很好)。中间目标应该是使用 DATE 创建一个 data.frame作为所有每月观察的索引和缺失值。 谷歌搜索表明我
我想知道是否有办法在值列表中使用“插入”。我正在尝试这样做: insert into tblMyTable (Col1, Col2, Col3) values('value1', value
我想让人们能够在他们的网站中插入单个 Javascript 行,这实际上允许我插入包含我网站内容的固定大小的 IFRAME。它实际上是一个小部件,允许他们搜索我的网站或接收其他信息。这可能吗? 最佳答
我有一个包含时间的表,列名为 time,数据类型为 Date。 在 asp.net 中,我想要一个查询插入日期,另一个查询则在 2 个日期之间进行选择。 我已经尝试过这个: string data =
这是我的代码: create or replace trigger th after insert on stock for each row declare sqty number;
这是一个带有具体示例的通用问题。 我有一个包含三个字段(流派 ID (PK IDENTITY)、流派和子流派)的表。该表对(流派,子流派)组合具有唯一约束。 我想知道如何修改存储过程以在表中不存在时插
因此,我正在遍历二叉树,节点包含字符串,以及读取文件时该字符串是否出现多次。我只查找读取文件时出现次数最多的前 10 个单词,因此本质上我只是比较 int 值。 我的问题是我正在尝试找出一种有效的方法
我有一张机票和行李 map , 每张门票必须是唯一的,并且必须与 map 上的位置相对应 是否可以仅更改行李(m_bagage->秒)而不更改 key ? std::unordered_map m_c
我正在使用 jdbc 驱动程序做一个示例项目。我的问题是,如果我在 2 文本字段中输入空值。 null 不应该加载到数据库中吗?有没有办法避免在数据库中插入空字段?任何帮助将不胜感激。 //Execu
我想知道 SSIS 中是否有特定的插入或更新选项。 如果我想让程序检查它是更新还是插入,我是否必须做一些编码?或者是否可以启用一个选项,以便它会自行检查 PK 是否存在,然后更新,否则插入? 亲切的问
我是一名优秀的程序员,十分优秀!