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

Question

Delphi在RichEdit中能否插入一些图片
.bmp .jpg .gif
就像OFFICE中的Word那样呀

Answer 1

比方说，我现在有一个Word文档，这个文件除了文字就会是图片，
如何也将这个控件RichEdit也支持图片功能

Answer 2

http://www.delphifans.com/infoview/Article_235.html看下试试，偶没试过

Answer 3

也可以理解为将WORD中的所有信息都保存到DBRichEdi中，
这个DBRichEdi的所有信息再次保存到数据库中

Answer 4

支持图片，但不要期望RichEdit达到Word一样功能

Answer 5

就是像“邮件”中的附件一下，直接将WORD的内容导入到这个DBRichEdit中

Answer 6

导入功能如何实现,并且这个DBRichEdit,不能有继续编辑的功能

Answer 7

声明一下：
写错了，原意
导入功能如何实现,并且这个DBRichEdit,能有继续编辑的功能，
并能看到相关信息，与你WORD中一模一样

Answer 8

我现在问题是将一个WORD文件的内容（包含文字和图片）
保存到数据库中的指定字段

Answer 9

用BLOB类型可以存储WORD文件。

Answer 10

那用那个控件能再显示出来原WORD的内容呀

Answer 11

我用的是MSSQL2008数据库，好像没有这个BLOB类型，
DBRichEdit控件关联数据库的数据类型为：image

Answer 12

网络上有很多用 OLE　CONTAINER嵌入WORD文档
这个OLE在什么地方呀

Answer 13

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);
}interfaceuses 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}';

Answer 14

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

Answer 15

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;

Answer 16

xebaobei
感谢赐教
我想再问一个这个方式，能不能将OFFICE中的word的文档能不能直接“导入”
到数据库中，并在DELPHI中通过一个控件来“显示”内容，并还能像
WORD那样能“进行编辑功能”

Answer 17

xebaobei能否提供一个完整的实例程序

Answer 18

DELPHI问题如何将WORD中的所有信息都保存到DBRichEdit中，DBRichEdit中的信息还能进行编辑操作，最后DBRichEditt的所有信息再次保存到数据库中

Answer 19

用olecontainer控件，文件的内容会显示在olecontainer上。

Answer 20

这个olecontainer 是第三方控件吗？？？？？？？
Delphi能实现嵌入word进行编辑吗

Answer 21

OleContainer
怎么在DELPHI中找不到呀

Answer 22

DELPHI基本的控件，就在控制面板上。

Answer 23

找到在system中，但不知如何使用呀

Answer 24

谁有dsoframer.ocx 2.3.0.0控件的下载地下分享一下，
不要带分的下载,直接贴个“下载地址”即可

Answer 25

olecontainer ??
它的作用就是把外部的程序'镶嵌'到你的界面上而已吧;如果没安装word的话不是over了?

Answer 26

我将SYSTEM中的控件OleContainer1加入窗体中
编译后，打开WORD文档为什么能编辑而不能
保存呀？？？？？？？？？？

Answer 27

就是那个WORD软件的“保存功能”变成“灰的”