用TQuery取回TBlobField字段,为什么不行?(50分)

  • 主题发起人 主题发起人 p_jz
  • 开始时间 开始时间
P

p_jz

Unregistered / Unconfirmed
GUEST, unregistred user!
我现在用三层结构作一系统,中间层用TQuery组件从Oracle库中取信息,但
记录中包含的TBlobField类型的字段信息,在客户端怎么也显示不出来?请
各位帮忙,先多谢了。
 
在查询关键字中输入"BLOB",选择“已答”类型,
就有你要的内容。
 
To: sundart;
我搜索了一遍,但还是未能得到满意的答案,望详细指点。多谢!!
 
TBlobField类型字段里面存放的什么东西,就用啥打开 例我存放的word文档
procedure Tfrm_sfxm.DBGrid2DblClick(Sender: TObject);
var
filename, confirmconversions, readonly, addtorecentfiles,
passworddocument, passwordtemplate, revert,
writepassworddocument, writepasswordtemplate, format: olevariant;
begin

if uppercase(tblxmxgwj.FieldByName('ext').asstring)='.DOC' then
begin
tblxmxgwjword.SaveToFile(ExtractFilePath(Application.EXEName)+'tmp.doc');
file_name:=opendlg_word.FileName;
ext:=extractfileext(file_name);
wrdapp.Connect;
filename:=ExtractFilePath(Application.EXEName)+'tmp.doc';
confirmconversions := false;
readonly := false;
addtorecentfiles := false;
passworddocument := '';
passwordtemplate := '';
revert := true;
writepassworddocument := '';
writepasswordtemplate := '';
format := wdopenformatdocument;
wrdapp.documents.open( filename, confirmconversions,readonly,
addtorecentfiles, passworddocument, passwordtemplate,
revert, writepassworddocument, writepasswordtemplate, format );
wrdapp.Visible:=true;
wrdapp.Disconnect;

end;
end;

 
To:antic_ant;
你曲解我的问题的意思了
tblxmxgwjword.SaveToFile(ExtractFilePath(Application.EXEName)+'tmp.doc');
虽然能执行,但在我那样的条件下,'tmp.doc'能打开吗?
 
query对含BLOB字段的记录数有限制,超过8条会产生保护性错误,返回recordcount = -1
 
以下为从query中取BLOB数据,显示在image控件中的代码
Image1.Picture.Bitmap.Assign(TBLOBField(sx_query.fieldbyname('zp')));
 
tadoblobfield??
 

Similar threads

D
回复
0
查看
1K
DelphiTeacher的专栏
D
S
回复
0
查看
3K
SUNSTONE的Delphi笔记
S
D
回复
0
查看
875
DelphiTeacher的专栏
D
S
回复
0
查看
2K
SUNSTONE的Delphi笔记
S
D
回复
0
查看
1K
DelphiTeacher的专栏
D
后退
顶部