缘
缘分的天空
Unregistered / Unconfirmed
GUEST, unregistred user!
请问一下,将报表文件保存到数据库中,以及读取预览,读取设计代码怎么写啊!
我在设计的保存过程中写了如下代码:
function TfrmReportDesigner.frxdsgnr1SaveReport(Report: TfrxReport;
SaveAs: Boolean): Boolean;
var
Stream: TMemoryStream;
begin
if not (qry1.State in [dsEdit, dsInsert]) then
Exit;
Stream := TMemoryStream.Create;
frxReport1.SaveToStream(Stream);
Stream.Position := 0;
TBlobField(qry1.FieldByName('Report')).LoadFromStream(Stream);
Stream.Free;
end;
设计的代码如下:
Stream := TMemoryStream.Create;
TBlobField(qry1.FieldByName('Report')).SaveToStream(Stream);
Stream.Position := 0;
frxReport1.LoadFromStream(Stream);
frxReport1.DataSets.Clear;
frxReport1.DataSets.Add(frxdbdtst1);
frxReport1.DesignReport;
Stream.Free;
这样对吗,数据库里面的字段,定义成image类型的了,
现在报“invalid file format”,说是无效的格式文件。
哪位大侠帮我看一下,是怎么回事,在设计前,还需要做别的准备吗。
我在设计的保存过程中写了如下代码:
function TfrmReportDesigner.frxdsgnr1SaveReport(Report: TfrxReport;
SaveAs: Boolean): Boolean;
var
Stream: TMemoryStream;
begin
if not (qry1.State in [dsEdit, dsInsert]) then
Exit;
Stream := TMemoryStream.Create;
frxReport1.SaveToStream(Stream);
Stream.Position := 0;
TBlobField(qry1.FieldByName('Report')).LoadFromStream(Stream);
Stream.Free;
end;
设计的代码如下:
Stream := TMemoryStream.Create;
TBlobField(qry1.FieldByName('Report')).SaveToStream(Stream);
Stream.Position := 0;
frxReport1.LoadFromStream(Stream);
frxReport1.DataSets.Clear;
frxReport1.DataSets.Add(frxdbdtst1);
frxReport1.DesignReport;
Stream.Free;
这样对吗,数据库里面的字段,定义成image类型的了,
现在报“invalid file format”,说是无效的格式文件。
哪位大侠帮我看一下,是怎么回事,在设计前,还需要做别的准备吗。