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

jianth2005 · 发表于 2009-9-21 08:35:41

我用二进制保存文件，上传代码如下：
var
  lStream: TStream;
begin
try
  lStream := Query1.CreateBlobStream(Query1.FieldByName('WJNR'),TBlobStreamMode.bmRead);
  DBroker_XMXX.DataSet.Append;
  DBroker_XMXX.DataSet.FieldByName('LX').AsString:='首页'; //类型
  DBroker_XMXX.DataSet.FieldByName('MC').AsString:=Query1.FieldByName['SYZL'].AsString;  //名称
  TBlobField(DBroker_XMXX.DataSet.FieldByName('NR')).LoadFromStream(lStream); //二进制流
  DBroker_XMXX.DataSet.ApplyUpdates;
finally
lStream.Free;
  end;
end;
----------------------------------------------------------------------------------
我保留为本地的代码如下：
strFileName :='C:\GXZJY-DY.XLS';
TOleContainer(DataEditOLE1.InplaceControl).SaveAsDocument(strFileName);  //这句保存到本地后，Excel 没有内容
TBlobField(DataSetBrokerDY.DataSet.FieldByName('NR')).SaveToFile(strFileName); //这句保存到本地后 Excel会出现乱码
该怎么解决啊？？

jianth2005 · 发表于 2009-9-21 10:04:56

??
那么久都没人顶

jiahaiming · 发表于 2009-9-21 10:47:20

lStream := Query1.CreateBlobStream(Query1.FieldByName('WJNR'),TBlobStreamMode.bmRead);

文件是怎么存到query1中的？

jianth2005 · 发表于 2009-9-21 10:56:11

TBlobField(Query1.FieldByName('NR')).LoadFromStream(lStream);

jiahaiming · 发表于 2009-9-21 11:10:21

我是说：
如何将excel文件内容存储到lstream中的？

jianth2005 · 发表于 2009-9-21 11:50:57

TOleContainer(DataEditOLE.InplaceControl).CreateObjectFromFile(tempFilename,false);
lStream :=DataSetBrokerXMXX.DataSet.CreateBlobStream(DataSetBrokerXMXX.DataSet.FieldByName('NR'),TBlobStreamMode.bmReadWrite);

shangxy · 发表于 2009-9-21 13:39:32

tempFilename就是你存的那个excel文件么？
DataEditOLE关联的就是下面DataSetBrokerXMXX.DataSet.FieldByName('NR')这个字段么？
如果是你像下面这样对lStream（TMemoryStream类型）赋值看看呢？
TOleContainer(DataEditOLE.InplaceControl).SaveToStream(lStream);

jianth2005 · 发表于 2009-9-21 14:44:36

tempFilename就是你存的那个excel文件么？
答：是
DataEditOLE关联的就是下面DataSetBrokerXMXX.DataSet.FieldByName('NR')这个字段么？
答：是
如果是你像下面这样对lStream（TMemoryStream类型）赋值看看呢？
TOleContainer(DataEditOLE.InplaceControl).SaveToStream(lStream);
有什么用？好像没什么效果吧

jianth2005 · 发表于 2009-9-21 14:45:59

我的二进制文件存在数据表中
TOleContainer(DataEditOLE.InplaceControl).SaveToStream(lStream);有什么用？？

jiahaiming · 发表于 2009-9-21 14:56:52

TOleContainer(DataEditOLE.InplaceControl).SaveToStream(lStream);有什么用？？按照olecontainer的格式存储成文件。如果lStream的格式不符合olecontainer要求，会有乱码。

您的问题主要是不能确定lstream是用什么方式存储的，所以直接存储成文件产生了乱码

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

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

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