Ver Mensaje Individual
  #10  
Antiguo 27-10-2005
OtroYo OtroYo is offline
Miembro
 
Registrado: ago 2004
Posts: 15
Reputación: 0
OtroYo Va por buen camino
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.
Responder Con Cita