怎么把DBIMAGE里面的图片写到WORD里啊?毕业设计!急!急!急!

Question

怎么把DBIMAGE里面的图片写到WORD里啊?位置怎么确定啊?  
好象有用剪贴板的,不过我也不会.请大家帮帮忙.最好有一段源码.先谢谢了.

Answer 1

var
  AData : THandle;
  APalette : HPALETTE;
  MyFormat : Word;
begin
  //灏嗗浘鍍忎繚瀛樺埌鍓创鏉?
  DBImage1.Picture.Bitmap.SaveToClipBoardFormat(MyFormat,AData,APalette);
  ClipBoard.SetAsHandle(MyFormat,AData);
  
  //浠庡壀璐存澘绮樿创鍒癢ORD
  WordApplication1.Connect;
  WordApplication1.Visible := True;
  WordApplication1.Documents.Add(EmptyParam,EmptyParam,EmptyParam,EmptyParam);
  WordApplication1.Selection.Paste;
  WordApplication1.Disconnect;end;

Answer 2

var
  nLeft,nTop,nWidth,nHeight : Olevariant;
begin
  WordApplication1.Connect;
  WordApplication1.Visible := True;
  WordApplication1.Documents.Add(EmptyParam,EmptyParam,EmptyParam,EmptyParam);  nLeft := 0;
  nTop := 0;
  nWidth := 100;
  nHeight := 100;  WordApplication1.ActiveDocument.Shapes.AddPicture('E:\aaa.bmp',EmptyParam,EmptyParam,
    nLeft,nTop,nWidth,nHeight,EmptyParam);  WordApplication1.Disconnect;end;