BLOBs

dumitru

День добрый!

использую FastReport 2.51, FIBPlus 5.2.53, Delphi 7

Проблема со сохранение блобов у меня...
Где копать?
Описание:

1. есть переменая
aReport : TMemoryStream;

2. есть переменая
buf : TMemoryStream;

3. При загрузке формы делаю
FN('TEMPLATE').SaveToStream(buf);

4. при дизайне отчёта делаю
var
size : integer;
begin
buf.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);
begin
frRep.LoadFromStream(aReport)
end;

procedure TdataRep.frDesignerSaveReport(Report: TfrReport; var ReportName: String; SaveAs: Boolean; var Saved: Boolean);
begin
frRep.SaveToStream(aReport)
end;


и вот после всего этого в базе у меня NULL

Что делать?
Где копать?

Спасибо!