VAR mystream:TMemoryStream;
begin
SELF.Table1.Edit;
mystream:=TMemoryStream.Create;
self.frReport1.SaveToStream(mystream);
mystream.SaveToFile('d:\3.frf');
TBlobField(self.Table1.Fieldbyname('报表内容')).LoadFromStream(mystream);
SELF.Table1.Post;
TBlobField(self.Table1.Fieldbyname('报表内容')).SaveToFile('d:\1.frf');
mystream.Free;3.frf是正确的。
1.frf是错误的。为什么?我的后台数据库是SQL SERVER2000 报表内容'是 TEXT类型。
begin
SELF.Table1.Edit;
mystream:=TMemoryStream.Create;
self.frReport1.SaveToStream(mystream);
mystream.SaveToFile('d:\3.frf');
TBlobField(self.Table1.Fieldbyname('报表内容')).LoadFromStream(mystream);
SELF.Table1.Post;
TBlobField(self.Table1.Fieldbyname('报表内容')).SaveToFile('d:\1.frf');
mystream.Free;3.frf是正确的。
1.frf是错误的。为什么?我的后台数据库是SQL SERVER2000 报表内容'是 TEXT类型。
解决方案 »
- delphi 2010+ 的东西好少好少
- 用IdSMTP开发发送邮件的问题
- 窗体继承是否不匀许更改控件的所有关系? 如: frmParent上有个Panel1,Panel1上有个Label1,现有frmChild继承frmParent,想将原frmChild.Pane
- 求多米诺喷码机RS232通信实例
- 200分求visual studio6.0 enterprise下載地址
- delphi中如何写文件
- 创表时如何指定time和data的字段属性
- 如何能得到SQL SERVER中的所有数据库名
- 接收数据源的问题(100)高手请教!
- 如何在DBlistBox1.items中查找第一个字母等于A的值呢?(急)
- 批处理修改问题
- 关于媒体播放问题!
TBlobField(self.Table1.Fieldbyname('报表内容'转换为TBlobField所以保存的刘文件格式变化了所以打不开