Guardar Reports en BD

[OtroYo]

Bueno, dicen que el que la sigue la consigue: al final he conseguido guardar el report generado en la BD. La cuestion esta en que no hay que guardar el report, sino las EMFPages.

Aqui esta el codigo:

Código Delphi [-]
 procedure TForm1.GuardarReportClick(Sender: TObject);
 var
     ms : TMemoryStream;
 begin
     ms := tmemorystream.create;
     frReport1.loadfromfile('hola.frf');
     frReport1.PrepareReport;
     frReport1.EMFPages.savetostream(ms);
     ms.seek(0,soFromBeginning);
     reporttable.insert;
     reporttablereport.loadfromstream(ms);
     reporttable.post;
 end;
 
 procedure TForm1.VerReportClick(Sender: TObject);
 var
     ms : TMemoryStream;
 begin
     ms := tmemorystream.create;
     reporttableReport.savetostream(ms);
     ms.Position := 0;
     frReport1.EMFPages.loadfromstream(ms);
     frReport1.ShowPreparedReport;
 end;

Saludos a todos y gracias de nuevo por vuestro interes.