【结贴】关于上传ole附件的问题。

hero419

做有附件的功能，希望通过button点击上传附件，然后通过ole表现形式，双击blob字段预览附件。
                                                                                                                                                                  
使用Tblobfield.LoadFromFile将附件上传了blob字段，数据字典中该字段的表现形式为ole，本希望能通过ole直接双击打开的，可字段中有数据后系统报“Invalid stream format”。
                                                                                 
有没有什么好办法啊？

lixy

看这个的9楼
http://bbs.justep.com/forum.php?mod=viewthread&tid=18861

hero419

OleContainer1.CreateObjectFromFile(afilename,false)能写在信息里么？
报“[错误]Biz:\MASTERMIND\CONTRACT\INFO\HTXX.Info.pas(35, 6): Undeclared identifier "OleContainer1"
”
在type里面加了OleContainer1: TOleContainer; 报“[错误]Biz:\MASTERMIND\CONTRACT\INFO\HTXX.Info.pas(18, 20): Undeclared identifier "TOleContainer"
”
不好意思，以前没用过OleContainer

hero419

还有语句我看了下，有部分不太懂是干嘛的，能告诉我么？
          olecontainer1.CreateObjectFromFile(FileName,true);   //从FileName创建对象。
          olecontainer1.DoVerb(ovPrimary);                               //什么意思？
          sm   :=   tstringstream.create('');                                   //给sm赋值为一个流
          olecontainer1.savetostream(sm);                                 //将刚才的对象保存到sm这个流中。
          with   dm.qryTemp   do                                                //什么意思？

  TBlobFIELD(Fieldbyname('data')).LoadFromStream(sm);   //将sm这个流的内容保存到数据库data字段中。

lixy

楼主自己看看delphi的帮助。上述代码不能一一解答。
我2楼的意思是，您用ole模式载入文档，回显就不会报“Invalid stream format”。
直接上传，就不能正常载入ole了

atiger

在 use 上加上 Business.Forms

能写到信息上，

hero419

开始使用的是这种语句
var
   IOle: TOleContainer;
   SM:TStringStream;
   begin
     IOle:=TOleContainer.Create(self);
     IOle.CreateObjectFromFile(afilename,true);
     SM:=TStringStream.create('');
     IOle.SaveToStream(SM);
运行的时候说IOle没有指定父类，于是加了个IOle.Parent:=Self;变成这样
var
   IOle: TOleContainer;
   SM:TStringStream;
   begin
     IOle:=TOleContainer.Create(self);
     IOle.Parent:=Self;
     IOle.CreateObjectFromFile(afilename,true);
     SM:=TStringStream.create('');
     IOle.SaveToStream(SM);
结果现在报错“[错误]Biz:\MASTERMIND\CONTRACT\INFO\HTXX.Info.pas(37, 19): 不能隐式转换 "THTXX" 成为 "TWinControl"
”

hero419

最初由 lixy 发布
[B]楼主自己看看delphi的帮助。上述代码不能一一解答。
我2楼的意思是，您用ole模式载入文档，回显就不会报“Invalid stream format”。
直接上传，就不能正常载入ole了 [/B]

那上传的文件可以用ole方式双击打开么？

yancm

只要在操作系统中通过双击可以打开相应类型的文件，就可以在olecontainer中通过双击打开

hero419

开始使用的是这种语句
var
   IOle: TOleContainer;
   SM:TStringStream;
   begin
     IOle:=TOleContainer.Create(self);
     IOle.CreateObjectFromFile(afilename,true);
     SM:=TStringStream.create('');
     IOle.SaveToStream(SM);
运行的时候说IOle没有指定父类，于是加了个IOle.Parent:=Self;变成这样
var
   IOle: TOleContainer;
   SM:TStringStream;
   begin
     IOle:=TOleContainer.Create(self);
     IOle.Parent:=Self;
     IOle.CreateObjectFromFile(afilename,true);
     SM:=TStringStream.create('');
     IOle.SaveToStream(SM);
结果现在报错“[错误]Biz:\MASTERMIND\CONTRACT\INFO\HTXX.Info.pas(37, 19): 不能隐式转换 "THTXX" 成为 "TWinControl"
”