delphi5不能像asp那样把word文件保存入数据库吗？

Question

DELPHI有一个例子是实现数据库存为WORD文件的。
Borland\Delphi5\Demos\Activex下有好几个。

Answer 1

可以阿 delphi 理论上可以把任何文件作为 大二进制文件存入数据库 

Answer 2

打开word文档 uses ComObjvar vWord:Varient;begin
 vWord:=CreateOleObject(Word.Application);
 ....//加入操作代码 规范可参考 VB宏代码
end; 数据库 只要把字段设置为 大二进制字段
  然后调用 query 中的 savetofile,loadfromfile 方法 就能轻松实现了^^ 

Answer 3

function TForm1.saveWithQuery(password,user,database,hostname,tablename,fieldname,filename:String):boolean;
var
g1:TblobField;
begin
  ADOConnection1.ConnectionString:='Provider=SQLOLEDB.1;Password='+password+';Persist Security Info=True;User ID='+user+';Initial Catalog='+database+';Data Source='+hostname;
  result:=true;
  with query1  do begin
     close ;
     g1:=TblobField.Create(application);
     g1.FieldName:=fieldname;//这是存放文档的域。
     g1.DataSet:= query1;
     sql.Clear;
     sql.add('select * from '+tablename);//Name_table是数据库中存word文档的表。该语句用于定位需要修改的纪录，在这之前，应该先生成一条纪录。
    try
      open;
    except
      close;
      Result:=false;
      g1.Free;
      exit;
    end;
    edit;
    try
      g1.LoadFromFile(filename);//在此处填写需要存到数据库的文件名。
    except
      close;
      Result:=false;
      g1.Free;
      showmessage('找不到文件'+filename+'或此文件正被打开！');
      exit;
    end;  
    try
      post ;
    except
      close;
      Result:=false;
      g1.Free;
      exit;
    end;
    close ;
  end;
  g1.Free;
end;