rave report generar PDF

[aldmoscardi]

Hola a todos, tengo un serio problema, e creado con los componentes indy un cliente de correo SMTP para el envio de informes, el problema es que no puedo crear el pdf desde codigo, transparente para el usuario, y usando un codigo que encontre en el foro, me termina destruyendo al archivo .rav que contiene el proyecto del reporte, si algien sabe la solucion les agradeseria. el codigo que uso para crear el pdf es el siguiente:

procedure generarPDF
var
pdfstream : TMemoryStream;
begin
pdfstream := TMemoryStream.create(self);
try
pdfstream.loadfromfile(NDRWriter.filename);
PDF.PrintRender(pdfStream, ´C:\myArchivoEnFormatopdf.pdf´);
except
//MostrarError
end;
pdfstream.free;
end;

//Ante cualquier respuesta que me ayude muchas gracias

[Loviedo]

Esto me funciona.
Saludos.

[aldmoscardi]

Gracias por tomarte el tiempo, saludos

[fly]

Este es el que yo uso, ya no recuerdo si lo hice o lo pille por ahí, aunque ahora que me fijo casi seguro que lo hice... a juzgar por la cantidad de "exits" que hay

Código Delphi [-]
Function TDMreport.Report2File(Tipo: String; report_name: string; file_name: String): Integer;
begin
// ****  CREAR PDF FUNCIONA OK *******
  Screen.Cursor:=crHourGlass;
  RvSystem1.DefaultDest := rdfile;
  RvSystem1.DoNativeOutput := false;
// Seleccionamos el report
  if not RvProject1.SelectReport(report_name,false)
     then
      begin
       Result:=1; // Repor No encontrado
       Screen.Cursor:=crDefault;
       exit;
      end;
// Seleccionamos el renderizador...
  if Uppercase(tipo)='PDF' then RvSystem1.RenderObject := RvRenderPDF1;
  if Uppercase(tipo)='HTM' then RvSystem1.RenderObject := RvRenderHTML1;
  if Uppercase(tipo)='RTF' then RvSystem1.RenderObject := RvRenderRTF1;
  if Uppercase(tipo)='TXT' then RvSystem1.RenderObject := RvRenderText1;

// le quitamos el permiso de mostrar el setup
  RvSystem1.SystemSetups := RvSystem1.SystemSetups - [ssAllowSetup];
// asignamos el nombre del fichero
  RvSystem1.OutputFileName:=file_name+'.'+tipo;
// ejecutamos el report
  try
   RvProject1.Execute;
  except
   on E: Exception do
         begin
          result:=1;
          showmessage(e.Message);
          Screen.Cursor:=crDefault;
          exit;
         end;
  end; // try

// ****  FIN  CREAR PDF FUNCIONA OK *******
  Screen.Cursor:=crDefault;
  result:=0;
end;

A ver si te vale, yo lo uso para enviar el PDF por correo sin hacer previo.