关于大字段的存储问题。fastreport的问题(50分)

  • 主题发起人 主题发起人 delphi009
  • 开始时间 开始时间
D

delphi009

Unregistered / Unconfirmed
GUEST, unregistred user!
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类型。
 
没有人知道??
 
TBlobField(self.Table1.Fieldbyname('报表内容')).LoadFromStream(mystream);
SELF.Table1.Post;
添加//mystream.Seek(0,soFrombegin
ning);
TBlobField(self.Table1.Fieldbyname('报表内容')).SaveToFile('d:/1.frf');
你试试吧
 
TBlobField(self.Table1.Fieldbyname('报表内容')).LoadFromStream(mystream);
SELF.Table1.Post;
Stream.Seek(0,soFrombegin
ning);//添加这句试试
TBlobField(self.Table1.Fieldbyname('报表内容')).SaveToFile('d:/1.frf');
mystream.Free;

 
TBlobField(self.Table1.Fieldbyname('报表内容')).LoadFromStream(mystream);
SELF.Table1.Post;
Stream.Seek(0,soFrombegin
ning);//添加这句试试
TBlobField(self.Table1.Fieldbyname('报表内容')).SaveToFile('d:/1.frf');

 
sorry,我在提交的时候,提示出错所以多写了几遍,真的很抱歉
 
后退
顶部