在Delphi如何打开word文挡(这个文挡保存在数据库中），急急！！！！！！！！！！！！！！！

[程序猿3000]

在数据库中保存了一个word 文挡（test.doc)(假设保存在Wordfile字段里， 数据类型是：image类型)
在界面上（dbgrid)单击Wordfile字段如何打开这个word文挡(test.doc)

[程序猿3000]

[e-mail]

[程序猿3000]

jixinfa(DELHPI程序员) 这位仁兄,按照你的方法，还是不能打开

[aiunong]

to luckboy97(幸运男孩)
偶也想要一份
谢谢
[e-mail]

[程序猿3000]

望大侠们帮帮忙

[luckyboy97]

都给你们发了，给分吧

[程序猿3000]

to luckboy97(幸运男孩)
你发的是什？
也不能运行
能不能详细的描述以下用法

[程序猿3000]

我的要求：
我已经在SQL SERVER 2000 中的一个表中保存了一个WORD 文挡(假设是Test.doc)
现在要求：单击查出来的（当然只显示ftblob字样）单击他，打开Test.doc
就象是用 microsoft word 打开一样,

[highroad]

先将BLOB字段保存到本地临时文件中，再打开这个文件不就行了。

[程序猿3000]

给一个例子

[程序猿3000]

望大侠们帮帮忙,难道无人能做吗？

[txlicenhe]

转贴：

//写入
var
　MS: TFileStream;
begin
　if OpenDialog1.Execute then
　begin
　　MS:=TFileStream.Create(OpenDialog1.FileName, fmOpenRead);
　MS.Position:=0;
　 Table1.Append;
　 //在数据库中添加一条记录
　 TBlobField(Table1.FieldbyName(’FieldDoc’)).LoadFromStream(MS);
　 Table1.Post;
　　MS.Free;
　end;
end;
// 读取
var
FileSource ,FileDest : Tfilestream;
fileStrd,FileStrs:string;
F:File;
begin
　with Table1 do
　　FileSource:=CreateBlobStream(FieldbyName(’ fieldDoc’),bmRead);
try
if savedialog1.Execute then
begin
filestrd := savedialog1.FileName;
end;
if not FileExists(Filestrd) then//如不存在新建
begin
assignFile(F,Filestrd);
Rewrite(f);
CloseFile(F);
end;

fileDest := TFileStream.Create(FileStrD,fmOpenWrite or fmShareDenyRead);
try
FileDest.CopyFrom(FileSource,FileSource.Size);
finally
FreeAndNil(FileDest);
end;
finally
FreeAndNil(FileSource); //释放文件流
end;

end;

[程序猿3000]

打开这个WORD文挡一定要显示的纯word格式

[jixinfa]

保存WORD文件:
if OpenDialog1.Execute then
begin
if not ADOQuery1.Active then ADOQuery1.Open;
ADOQuery1.Append;
ADOQuery1fdname.Value:=ExtractFileName(OpenDialog1.FileName);
(ADOQuery1.FieldByName('fdtext') as TBlobField).LoadFromFile(OpenDialog1.filename);
ADOQuery1.Post;
end;
找开WORD文件:

if not ADOQuery1.Active then exit;
(ADOQuery1.FieldByName('fdtext') as TBlobField).savetoFile(ExtractFileDir(Application.ExeName)+ADOQuery1fdname.value);
shellexecute(handle,nil,pchar(ADOQuery1fdname.value),nil,nil,sw_shownormal);

uses shellapi

给分吧

[luckyboy97]

我给我邮箱给你个例子