760

TMemoryStream & BLOBs

День добрый!использую FastReport 2.51, FIBPlus 5.2.53, Delphi 7Проблема со сохранение блобов у меня...Где копать?Описание:1. есть переменая aReport : TMemoryStream;2. есть переменаяbuf : TMemoryStream;3. При загрузке формы делаюFN('TEMPLATE').SaveToStream(buf);4. при дизайне отчёта делаюvarsize : integer;beginbuf.Position := 0 ;size := buf.Size ;dataRep.aReport.Write(size, SizeOf(Integer));dataRep.aReport.CopyFrom(buf, buf.Size);dataRep.frRep.DesignReport;dataRep.aReport.Position := 0;size := dataRep.aReport.Size;buf.Write(size, SizeOf(Integer));buf.CopyFrom(dataRep.aReport, dataRep.aReport.Size);end;5. при сохранение формы делаюParamByName('TEMPLATE').LoadFromStream(buf);6. и procedure TdataRep.frDesignerLoadReport(Report: TfrReport; var ReportName: String; var Opened: Boolean);beginfrRep.LoadFromStream(aReport)end;procedure TdataRep.frDesignerSaveReport(Report: TfrReport; var ReportName: String; SaveAs: Boolean; var Saved: Boolean);beginfrRep.SaveToStream(aReport)end;и вот после всего этого в базе у меня NULLЧто делать?Где копать?
0