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;