报错**

Jsun2007 · 发表于 2008-3-28 14:37:35

procedure TMainForm.Button3Click(Sender: TObject);
VAR
NS: TStream;
begin
  if OpenDialog1.Execute then
  begin
NS := TStream.Create;
         OpenDialog1.Files.SaveToStream(NS);//执行到此处报错
      OleContainer1.LoadFromStream(NS);
  end;
end;

jiahaiminghr · 发表于 2008-3-28 14:43:49

TStream ——》 TFileStream

gaihl · 发表于 2008-3-28 14:51:13

或者
TMemoryStream;

Jsun2007 · 发表于 2008-3-28 15:08:20

如果TFileStream 是的话OleContainer1.LoadFromStream会报流格式错误

Jsun2007 · 发表于 2008-3-28 15:20:52

procedure TMainForm.Button3Click(Sender: TObject);
VAR
NS: TMemoryStream;
begin
NS := TBlobStream.Create;
      DataSetBZSJJ1.open;
      TBlobField(DataSetBZSJJ1.FieldbyName('FILES')).SaveToStream(NS);
         OleContainer1.LoadFromStream(NS);//执行到这里报错
end;

错误：

Jsun2007 · 发表于 2008-3-28 15:24:40

NS := TBlobStream.Create;应该是 NS := TMemoryStream.Create;

Jsun2007 · 发表于 2008-3-28 15:27:49

急！

gaihl · 发表于 2008-3-28 15:41:15

请参考
http://bbs.justep.com/forum.php?mod=viewthread&tid=9161

gaihl · 发表于 2008-3-28 15:45:01

OleContainer1.CreateObjectFromFile(OpenDialog1.FileName,False);

Jsun2007 · 发表于 2008-3-28 15:56:45

OleContainer1.CreateObjectFromFile(OpenDialog1.FileName,False); ？？？
什么意思？

		自动登录	找回密码
密码			立即注册