【结贴】二进制出现乱码的问题。。。

jianth2005 · 发表于 2009-9-21 15:09:16

那你的意思就是叫我先把二进制存在lstream中，然后在把lstream存储成本地文件？

jianth2005 · 发表于 2009-9-21 15:23:25

TOleContainer(DataEditOLE.InplaceControl).SaveToStream(lStream);
按照这个做了，便宜的时候没错，运行的时候报错了：

shangxy · 发表于 2009-9-21 15:51:34

TOleContainer(DataEditOLE.InplaceControl).SaveToStream(lStream);
后面
lStream.Position :=0;
了么？错误停到什么地方了？

jianth2005 · 发表于 2009-9-21 16:08:37

看图

jiahaiming · 发表于 2009-9-21 16:37:13

数据集没有打开吧！

jianth2005 · 发表于 2009-9-21 16:39:42

我的数据集是自动打开的

shangxy · 发表于 2009-9-21 16:59:51

procedure TMainForm.Button1Click(Sender: TObject);
var lStream :TStream;
lolecontainer :Tolecontainer;
begin
lStream:= TStream.Create;
try
DataSetBroker1.DataSet.Edit;
Tolecontainer(ywxx20.TJLST1(DocViewYWXX20_JLST1.Doc).DataEditword.InplaceControl).CreateObjectFromFile('c:\a.doc',false);
lStream := DataSetBroker1.DataSet.CreateBlobStream(DataSetBroker1.dataSet.FieldByName('word'),TBlobStreamMode.bmReadWrite);
Tolecontainer(ywxx20.TJLST1(DocViewYWXX20_JLST1.Doc).DataEditword.InplaceControl).SaveToStream(lStream);

// TBLobField(DataSetBroker1.dataSet.FieldByName('word')).SaveToStream(lStream);

//lStream := DataSetBroker1.DataSet.CreateBlobStream(DataSetBroker1.dataSet.FieldByName('word'),TBlobStreamMode.bmRead);
lStream.Position :=0;

TBLobField(DataSetBroker1.DataSet.FieldByName('word2')).LoadFromStream(lStream);
DataSetBroker1.DataSet.ApplyUpdates;
finally
lStream.Free;
end;
end;

procedure TMainForm.Button2Click(Sender: TObject);
begin
Tolecontainer(ywxx20.TJLST1(DocViewYWXX20_JLST1.Doc).DataEditword2.InplaceControl).SaveAsDocument('c:\b.doc');
end;

这个是我的测试代码，你看看是否和你的要求一样？

jianth2005 · 发表于 2009-9-21 17:23:49

一样的

shangxy · 发表于 2009-9-21 17:47:45

那你做一个简单的例子试试把，我这里是好的。

jianth2005 · 发表于 2009-9-22 08:49:44

看看
附件传不上来，太大了

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

【结贴】二进制出现乱码的问题 。。。

【结贴】二进制出现乱码的问题。。。