Ver Mensaje Individual
  #3  
Antiguo 14-05-2012
gcaffe gcaffe is offline
Miembro
 
Registrado: oct 2004
Posts: 53
Reputación: 20
gcaffe Va por buen camino
He encontrado la solución gracias a l soporte técnico on line de FastReport, son estupendos. Lo publico por si alguien tiene un problema similar, como siempre la solución era bastante sencilla, finalmente el código queda así:

En el lado Cliente:

Código Delphi [-]
try
            frxReport.PreviewPages.SaveToStream(MStream);
            MStream.Position := 0;
            SetLength(Arr, MStream.Size);
            MStream.Read(Arr[0], MStream.Size);
            Doc := IdGlobal.BytesToString(Arr, nil);

En el lado Server:

Código Delphi [-]
 
try
         Pdf.Position := 0;
         frxReport.PreviewPages.LoadFromStream(Pdf);
         frxPDFExport.FileName:= Suc+'-'+Exp+'.pdf';
         frxPDFExport.ShowDialog := False;
         frxPDFExport.ShowProgress := False;
         frxPDFExport.OpenAfterExport := False;
      finally
         Pdf.Free;
      end;

Todo se reducía a usar el evento PreviewPages

Un saludo
Responder Con Cita