高手，求你们了，做一个数据库，如何放带图片的word文档（图片在文章中有确切位置）

Question

用二进制字段，可以保存任何文件
保存：
(query1.FieldByName('img') as TBlobField).LoadFromFile('e:\temp.bmp');
取出：
(query1.FieldByName('img') as TBlobField).Savetofile('e:\temp.bmp');

Answer 1

netlib(河外孤星)的方法可以呀。
让你开开眼界：
http://huaxiait.com/bbs/wdbread.php?forumid=1&filename=f_6815

Answer 2

嗨，Taxi，nice to meet you,向你隆重推荐一部虚拟军事小说：醒狮在铁血网站有刊登

Answer 3

给你一篇例子,这还是别人告诉我的：
unit Unit1;
interface
uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  StdCtrls, Db, DBTables, OleCtnrs, ExtCtrls;
type
  TOleF = class(TForm)
    ole: TOleContainer;
    Table1: TTable;
    Panel1: TPanel;
    Panel2: TPanel;
    Button1: TButton;
    Button2: TButton;
    Button3: TButton;
    Button4: TButton;
    Button5: TButton;
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure Button3Click(Sender: TObject);
    procedure Button4Click(Sender: TObject);
    procedure Button5Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
var
  OleF: TOleF;
implementation
{$R *.DFM}
procedure TOleF.Button1Click(Sender: TObject);
var
oletest:Tstream;
begin
//新建OLE对象为用户编辑用
table1.open;
oletest:=table1.CreateBlobStream(table1.FieldbyName('blob'),bmread);
ole.CreateObject('word.document',false);
ole.DoVerb(ovshow);
oletest.free;
end;procedure TOleF.Button2Click(Sender: TObject);
var stre:TMemoryStream;
begin
// ole对象中的内容写入到数据库中
        table1.Edit;
        table1.Append;
        stre:=TMemoryStream.Create ;
        ole.SaveToStream(stre);
        TBlobField(table1.FieldbyName('blob')).LoadFromStream(stre);
        ole.doverb(ovshow);
        table1.post;
        stre.free;
end;procedure TOleF.Button3Click(Sender: TObject);
begin
ole.close;  //关闭ole
end;procedure TOleF.Button4Click(Sender: TObject);
begin
close;    //退出本界面
end;procedure TOleF.Button5Click(Sender: TObject);
VAR
oleDY:Tstream;
begin
//调用OLE对象为用户编辑用
table1.open;
table1.RecNo:=1;
oleDY:=table1.CreateBlobStream(table1.FieldbyName('blob'),bmread);
OLE.LoadFromSTREAM(OLEDY);
ole.DoVerb(ovshow);
oleDY.free;
end;end.