word文件传入和传出数据库

最新推荐文章于 2025-08-22 17:35:53 发布

转载最新推荐文章于 2025-08-22 17:35:53 发布 · 100 阅读

0 ·

CC 4.0 BY-SA版权

原文链接：http://www.cnblogs.com/28088191/archive/2008/06/14/1221966.html

文章标签：

#数据库

本文介绍了一种使用Delphi进行文件读取并利用OLE容器集成Word文档的方法。通过TFileStream实现文件内容读取，并将读取的内容存入数据库字段中。此外，还展示了如何从数据库中提取文件内容并使用OLE容器显示Word文档。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

uses IdGlobal;

procedure TdjhyForm.SpeedButton2Click(Sender: TObject);

var

sfilename:string;

function BlobContentTostring(const Filename:string):string;

begin

with Tfilestream.Create(filename,fmopenread) do

try

setlength(result,size);

read(pointer(result)^,size);

finally

free;

end;

end;

begin

if opendialog1.Execute then

begin

sfilename:=opendialog1.FileName;

DataModule1.ADOQuery14.Edit;

DataModule1.ADOQuery14.FieldByName('word').AsString:=blobcontenttostring(sfilename);

DataModule1.ADOQuery14.Post;

end;

end;

procedure TdjhyForm.SpeedButton1Click(Sender: TObject);

var

sfilename:string;

bs:Tadoblobstream;

begin

bs:=Tadoblobstream.Create(TBLOBfield(DataModule1.ADOQuery14.FieldByName('word')),bmread);

try

sfilename:=extractfilepath(application.ExeName)+trim(DataModule1.adoquery14.fieldbyname('hybh').AsString);

sfilename:=sfilename+'.'+'doc';

bs.SaveToFile(sfilename);

try

djhyopenform:=Tdjhyopenform.Create(self);

djhyopenform.olecontainer1.CreateObjectFromFile(sfilename,false);

djhyopenform.OleContainer1.Iconic:=true;

djhyopenform.ShowModal;

finally

djhyopenform.Free;

end;

finally

bs.free;

end;

end;

转载于:https://www.cnblogs.com/28088191/archive/2008/06/14/1221966.html