Delphi在RichEdit中能否插入一些图片

山东蓝鸟贵薪 2011-08-02 02:39:58
Delphi在RichEdit中能否插入一些图片
.bmp .jpg .gif
就像OFFICE中的Word那样呀
...全文
1114 31 打赏 收藏 转发到动态 举报
写回复
用AI写文章
31 条回复
切换为时间正序
请发表友善的回复…
发表回复
shijies 2011-08-03
  • 打赏
  • 举报
 回复
DELPHI基本的控件，就在控制面板上。
山东蓝鸟贵薪 2011-08-03
  • 打赏
  • 举报
 回复
OleContainer
怎么在DELPHI中找不到呀
山东蓝鸟贵薪 2011-08-03
  • 打赏
  • 举报
 回复
这个olecontainer 是第三方控件吗？？？？？？？
Delphi能实现嵌入word进行编辑吗
shijies 2011-08-03
  • 打赏
  • 举报
 回复
用olecontainer控件，文件的内容会显示在olecontainer上。
山东蓝鸟贵薪 2011-08-03
  • 打赏
  • 举报
 回复
DELPHI问题如何将WORD中的所有信息都保存到DBRichEdit中，DBRichEdit中的

信息还能进行编辑操作，最后DBRichEditt的所有信息再次保存到数据库中
jjpweb 2011-08-03
  • 打赏
  • 举报
 回复
容器，olecontainer
山东蓝鸟贵薪 2011-08-03
  • 打赏
  • 举报
 回复
xebaobei

能否提供一个完整的实例程序
山东蓝鸟贵薪 2011-08-03
  • 打赏
  • 举报
 回复
xebaobei
感谢赐教
我想再问一个这个方式，能不能将OFFICE中的word的文档能不能直接“导入”
到数据库中，并在DELPHI中通过一个控件来“显示”内容，并还能像
WORD那样能“进行编辑功能”
xebaobei 2011-08-03
  • 打赏
  • 举报
 回复
function GetRichEditOle(hRichEdit: THandle): IRichEditOle;
begin
SendMessage(hRichEdit, EM_GETOLEINTERFACE, 0, Longint(@Result));
end;

function GetImage(Bitmap: TBitmap): HBITMAP;
var
Dest: HBitmap;
DC, MemDC: HDC;
OldBitmap: HBITMAP;
begin
DC := GetDC(0);
MemDC := CreateCompatibleDC(DC);
try
Dest := CreateCompatibleBitmap(DC, Bitmap.Width, Bitmap.Height);
OldBitmap := SelectObject(MemDC, Dest);
BitBlt(MemDC, 0, 0, Bitmap.Width, Bitmap.Height, Bitmap.Canvas.Handle, 0, 0,
SRCCOPY);
SelectObject(MemDC, OldBitmap);
finally
DeleteDC(MemDC);
ReleaseDC(0, DC);
end;
Result := Dest;
end;

function TBitmapOle.GetData(const formatetcIn: TFormatEtc; out medium:
TStgMedium): HResult; stdcall;
begin
medium.tymed := TYMED_GDI;
medium.hBitmap := OleDuplicateData(FStgm.hBitmap, CF_BITMAP, 0);
medium.unkForRelease := nil;
if medium.hBitmap = 0 then
Result := E_HANDLE
else
Result := S_OK;
end;

function TBitmapOle.GetDataHere(const formatetc: TFormatEtc; out medium:
TStgMedium): HResult; stdcall;
begin
Result := E_NOTIMPL;
end;

function TBitmapOle.QueryGetData(const formatetc: TFormatEtc): HResult; stdcall;
begin
Result := E_NOTIMPL;
end;

function TBitmapOle.GetCanonicalFormatEtc(const formatetc: TFormatEtc;
out formatetcOut: TFormatEtc): HResult; stdcall;
begin
Result := E_NOTIMPL;
end;

function TBitmapOle.SetData(const formatetc: TFormatEtc; var medium: TStgMedium;
fRelease: BOOL): HResult; stdcall;
begin
FStgm := medium;
FFmEtc := formatetc;
Result := S_OK;
end;

function TBitmapOle.EnumFormatEtc(dwDirection: Longint; out enumFormatEtc:
IEnumFormatEtc): HResult; stdcall;
begin
Result := E_NOTIMPL;
end;

function TBitmapOle.DAdvise(const formatetc: TFormatEtc; advf: Longint;
const advSink: IAdviseSink; out dwConnection: Longint): HResult; stdcall;
begin
Result := E_NOTIMPL;
end;

function TBitmapOle.DUnadvise(dwConnection: Longint): HResult; stdcall;
begin
Result := E_NOTIMPL;
end;

function TBitmapOle.EnumDAdvise(out enumAdvise: IEnumStatData): HResult;
stdcall;
begin
Result := E_NOTIMPL;
end;

procedure TBitmapOle.GetOleObject(OleSite: IOleClientSite;
Storage: IStorage; var OleObject: IOleObject);
begin
OleCheck(OleCreateStaticFromData(Self, IID_IOleObject,
OLERENDER_FORMAT, @FFmEtc, OleSite, Storage, OleObject));
end;

procedure TBitmapOle.SetBitmap(hBitmap: HBITMAP);
var
Stgm: TStgMedium;
FmEtc: TFormatEtc;
begin
Stgm.tymed := TYMED_GDI; // Storage medium = HBITMAP handle
Stgm.hBitmap := hBitmap;
Stgm.unkForRelease := nil;

FmEtc.cfFormat := CF_BITMAP; // Clipboard format = CF_BITMAP
FmEtc.ptd := nil; // Target Device = Screen
FmEtc.dwAspect := DVASPECT_CONTENT; // Level of detail = Full content
FmEtc.lindex := -1; // Index = Not applicaple
FmEtc.tymed := TYMED_GDI; // Storage medium = HBITMAP handle

SetData(FmEtc, Stgm, True);
end;
xebaobei 2011-08-03
  • 打赏
  • 举报
 回复
type
_ReObject = record
cbStruct: DWORD; { Size of structure }
cp: ULONG; { Character position of object }
clsid: TCLSID; { class ID of object }
poleobj: IOleObject; { OLE object interface }
pstg: IStorage; { Associated storage interface }
polesite: IOleClientSite; { Associated client site interface }
sizel: TSize; { Size of object (may be 0,0) }
dvAspect: Longint; { Display aspect to use }
dwFlags: DWORD; { object status flags }
dwUser: DWORD; { Dword for user's use }
end;
TReObject = _ReObject;

TCharRange = record
cpMin: Integer;
cpMax: Integer;
end;

TFormatRange = record
hdc: Integer;
hdcTarget: Integer;
rectRegion: TRect;
rectPage: TRect;
chrg: TCharRange;
end;

IRichEditOle = interface(IUnknown)
['{00020d00-0000-0000-c000-000000000046}']
function GetClientSite(out clientSite: IOleClientSite): HResult; stdcall;
function GetObjectCount: HResult; stdcall;
function GetLinkCount: HResult; stdcall;
function GetObject(iob: Longint; out reobject: TReObject;
dwFlags: DWORD): HResult; stdcall;
function InsertObject(var reobject: TReObject): HResult; stdcall;
function ConvertObject(iob: Longint; rclsidNew: TIID;
lpstrUserTypeNew: LPCSTR): HResult; stdcall;
function ActivateAs(rclsid: TIID; rclsidAs: TIID): 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(var chrg: TCharRange; reco: DWORD;
out dataobj: IDataObject): HResult; stdcall;
function ImportDataObject(dataobj: IDataObject; cf: TClipFormat;
hMetaPict: HGLOBAL): HResult; stdcall;
end;

// *********************************************************************//
// interface: IGifAnimator
// Flags: (4544) Dual NonExtensible OleAutomation Dispatchable
// GUID: {0C1CF2DF-05A3-4FEF-8CD4-F5CFC4355A16}
// *********************************************************************//
IGifAnimator = interface(IDispatch)
['{0C1CF2DF-05A3-4FEF-8CD4-F5CFC4355A16}']
procedure LoadFromFile(const FileName: WideString); safecall;
function TriggerFrameChange: WordBool; safecall;
function GetFilePath: WideString; safecall;
procedure ShowText(const Text: WideString); safecall;
end;

// *********************************************************************//
// DispIntf: IGifAnimatorDisp
// Flags: (4544) Dual NonExtensible OleAutomation Dispatchable
// GUID: {0C1CF2DF-05A3-4FEF-8CD4-F5CFC4355A16}
// *********************************************************************//
IGifAnimatorDisp = dispinterface
['{0C1CF2DF-05A3-4FEF-8CD4-F5CFC4355A16}']
procedure LoadFromFile(const FileName: WideString); dispid 1;
function TriggerFrameChange: WordBool; dispid 2;
function GetFilePath: WideString; dispid 3;
procedure ShowText(const Text: WideString); dispid 4;
end;

TBitmapOle = class(TInterfacedObject, IDataObject)
private
FStgm: TStgMedium;
FFmEtc: TFormatEtc;

procedure SetBitmap(hBitmap: HBITMAP);
procedure GetOleObject(OleSite: IOleClientSite; Storage: IStorage;
var OleObject: IOleObject);
public
{ ======================================================================= }
{ implementation of IDataObject interface }
function GetData(const formatetcIn: TFormatEtc; out medium: TStgMedium):
HResult; stdcall;
function GetDataHere(const formatetc: TFormatEtc; out medium: TStgMedium):
HResult; stdcall;
function QueryGetData(const formatetc: TFormatEtc): HResult; stdcall;
function GetCanonicalFormatEtc(const formatetc: TFormatEtc;
out formatetcOut: TFormatEtc): HResult; stdcall;
function SetData(const formatetc: TFormatEtc; var medium: TStgMedium;
fRelease: BOOL): HResult; stdcall;
function EnumFormatEtc(dwDirection: Longint; out enumFormatEtc:
IEnumFormatEtc): HResult; stdcall;
function DAdvise(const formatetc: TFormatEtc; advf: Longint;
const advSink: IAdviseSink; out dwConnection: Longint): HResult; stdcall;
function DUnadvise(dwConnection: Longint): HResult; stdcall;
function EnumDAdvise(out enumAdvise: IEnumStatData): HResult; stdcall;
{ ======================================================================= }
end;

function InsertBitmap(hRichEdit: THandle; const FileName: string): Boolean;
overload;
function InsertBitmap(hRichEdit: THandle; Bitmap: TBitmap): Boolean; overload;
function InsertGif(hRichEdit: THandle; const FileName: string): Boolean;

implementation
xebaobei 2011-08-03
  • 打赏
  • 举报
 回复
unit RichEx;

{
2005-03-04 LiChengbin
Added:
Insert bitmap or gif into RichEdit controls from source file.

2005-01-31 LiChengbin
Usage:
Insert bitmap into RichEdit controls by IRichEditOle interface and
implementation of IDataObject interface.

Example:
InsertBitmap(RichEdit1.Handle, Image1.Picture.Bitmap);
}

interface

uses Windows, Messages, Graphics, ActiveX, ComObj;

const

// Flags to specify which interfaces should be returned in the structure above
REO_GETOBJ_NO_INTERFACES = $00000000;
REO_GETOBJ_POLEOBJ = $00000001;
REO_GETOBJ_PSTG = $00000002;
REO_GETOBJ_POLESITE = $00000004;
REO_GETOBJ_ALL_INTERFACES = $00000007;

// Place object at selection
REO_CP_SELECTION = $FFFFFFFF;

// Use character position to specify object instead of index
REO_IOB_SELECTION = $FFFFFFFF;
REO_IOB_USE_CP = $FFFFFFFF;

// object flags
REO_NULL = $00000000; // No flags
REO_READWRITEMASK = $0000003F; // Mask out RO bits
REO_DONTNEEDPALETTE = $00000020; // object doesn't need palette
REO_BLANK = $00000010; // object is blank
REO_DYNAMICSIZE = $00000008; // object defines size always
REO_INVERTEDSELECT = $00000004; // object drawn all inverted if sel
REO_BELOWBASELINE = $00000002; // object sits below the baseline
REO_RESIZABLE = $00000001; // object may be resized
REO_LINK = $80000000; // object is a link (RO)
REO_STATIC = $40000000; // object is static (RO)
REO_SELECTED = $08000000; // object selected (RO)
REO_OPEN = $04000000; // object open in its server (RO)
REO_INPLACEACTIVE = $02000000; // object in place active (RO)
REO_HILITED = $01000000; // object is to be hilited (RO)
REO_LINKAVAILABLE = $00800000; // Link believed available (RO)
REO_GETMETAFILE = $00400000; // object requires metafile (RO)

// flags for IRichEditOle::GetClipboardData(),
// IRichEditOleCallback::GetClipboardData() and
// IRichEditOleCallback::QueryAcceptData()
RECO_PASTE = $00000000; // paste from clipboard
RECO_DROP = $00000001; // drop
RECO_COPY = $00000002; // copy to the clipboard
RECO_CUT = $00000003; // cut to the clipboard
RECO_DRAG = $00000004; // drag

EM_GETOLEINTERFACE = WM_USER + 60;

IID_IUnknown: TGUID =
(D1: $00000000; D2: $0000; D3: $0000; D4: ($C0, $00, $00, $00, $00, $00, $00,
$46));
IID_IOleObject: TGUID =
(D1: $00000112; D2: $0000; D3: $0000; D4: ($C0, $00, $00, $00, $00, $00, $00,
$46));

IID_IGifAnimator: TGUID = '{0C1CF2DF-05A3-4FEF-8CD4-F5CFC4355A16}';
CLASS_GifAnimator: TGUID = '{06ADA938-0FB0-4BC0-B19B-0A38AB17F182}';
山东蓝鸟贵薪 2011-08-03
  • 打赏
  • 举报
 回复
就是那个WORD软件的“保存功能”变成“灰的”
山东蓝鸟贵薪 2011-08-03
  • 打赏
  • 举报
 回复
我将SYSTEM中的控件OleContainer1加入窗体中
编译后，打开WORD文档为什么能编辑而不能
保存呀？？？？？？？？？？
youyidianmimang 2011-08-03
  • 打赏
  • 举报
 回复
olecontainer ??
它的作用就是把外部的程序'镶嵌'到你的界面上而已吧;如果没安装word的话不是over了?
山东蓝鸟贵薪 2011-08-03
  • 打赏
  • 举报
 回复
谁有dsoframer.ocx 2.3.0.0控件的下载地下分享一下，
不要带分的下载,直接贴个“下载地址”即可
山东蓝鸟贵薪 2011-08-03
  • 打赏
  • 举报
 回复
找到在system中，但不知如何使用呀
山东蓝鸟贵薪 2011-08-02
  • 打赏
  • 举报
 回复
网络上有很多用 OLE　CONTAINER嵌入WORD文档
这个OLE在什么地方呀
山东蓝鸟贵薪 2011-08-02
  • 打赏
  • 举报
 回复
[Quote=引用 12 楼 shijies 的回复:]
用BLOB类型可以存储WORD文件。
[/Quote]
我用的是MSSQL2008数据库，好像没有这个BLOB类型，
DBRichEdit控件关联数据库的数据类型为：image
山东蓝鸟贵薪 2011-08-02
  • 打赏
  • 举报
 回复
[Quote=引用 12 楼 shijies 的回复:]
用BLOB类型可以存储WORD文件。
[/Quote]
那用那个控件能再显示出来原WORD的内容呀
shijies 2011-08-02
  • 打赏
  • 举报
 回复
用BLOB类型可以存储WORD文件。
加载更多回复（11）
delphi控件richedit的使用笔记
个人在使用delphi控件开发时的笔记资料，包括一些从网络下载
RichEdit显示图片单元
能在RichEdit上插入图片单元！ 2005-03-04 LiChengbin Added: Insert bitmap or gif into RichEdit controls from source file. 2005-01-31 LiChengbin Usage: Insert bitmap into RichEdit controls by IRichEditOle interface and implementation of IDataObject interface. Example: InsertBitmap(RichEdit1.Handle, Image1.Picture.Bitmap);
DelphiXE10零基础实战快速入门
通过课堂上一个一个的实战例子，演示DelphiXE10的用法，最后通过一个完整的通讯录程序，让学员初步掌握软件开发的全部流程 让零基础学员快速入门Delphi编程，快速掌握Delphi的使用方法，并能够制作出自己的软件来。...
RichEdit插入GIF动画高效刷新的Demo
上一次传的资源有点问题，这个Demo演示了如何向RichEdit中插入GIF动画，并实现高效刷新，而且支持RichEdit的撤消功能，目前为止没有发现什么问题。 直接使用MFC项目中添加ATL控件的方式，包含动画控件和CRichEditCtrl的扩展类源代码，里面的详细的注释。 详细的技术介绍请看我的博客：http://blog.csdn.net/haoekin/article/details/8915207
Delphi技巧100例——源码.
Delphi技巧100例——源码. sample\1.5-Delphi界面使用技巧 sample\2.1-用Delphi写扬声器音乐 sample\2.2-我的加法器 sample\2.3-简单文本加密 sample\2.4-文件搜索 sample\3.1-布幕表单 sample\3.2-不规则的表单 sample\3.3-透明的表单 sample\3.4-托盘上的表单 sample\3.5-闪烁图标表单 sample\4.1-动态菜单 sample\4.2-超链接标签 sample\4.3-显示掩藏的密码 sample\4.4-用RichEdit查看可执行文件 sample\4.5-Memo的查找功能 sample\4.6-标题栏上的按钮 sample\4.7-状态栏上的进度条 sample\4.8-在Delphi中播放Flash sample\4.9-有背景图的ListView sample\4.10-给ListBox加上水平滚动条 sample\4.11-TreeView节点拖拉操作 sample\4.12-编辑框界面灵活控制 sample\5.1-JPEG图形全面操作 sample\5.2-渐变颜色的界面 sample\5.3-跑马灯图片 sample\5.4-流沙效果 sample\5.5-电脑艺术图形 sample\6.1-光驱控制 sample\6.2-MP3播放器 sample\7.1-Delphi数据库模糊查询功能的改进 sample\7.2-在DBGrid中插入下拉组合框 sample\8.1-获取本机IP地址 sample\8.2-Kingstone Mailer sample\9.1-后台监控程序 sample\9.2.1-控制面板调用 sample\9.2.2-控制面板程序编制 sample\10.1-操作Word文档 sample\10.2-帮助文件制作与调用 sample\11.1 金石通光盘管理系统 sample\11.2 成批文件命名器 sample\11.3 日文电子字典 sample\11.4 Kingstone Clock sample\11.5 一键启动
数据库相关

2,499

社区成员

88,444

社区内容

发帖
与我相关
我的任务
社区描述
Delphi 数据库相关
社区管理员
  • 数据库相关社区
加入社区
  • 近7日
  • 近30日
  • 至今

加载中

查看更多榜单
社区公告
暂无公告

试试用AI创作助手写篇文章吧

+ 用AI写文章