Guardar Archivo

[delphi.com.ar]

Estas utilizando un TActionManager con un TFileAction????

[[BlueSteel]]

Quiero guardarlo en formato PDF .... lo cual hasta el momento me funciona muy bien.... (Estoy traspasando un Informe de QReport a PDF.... y todo bien...)

El código que utilizo es el siguiente

 
procedure TOrdenes.Generar_PDF;
Var
aPDFFilt : TQRPDFDocumentFilter;
Nom : String;
begin
	 Filtra_Orden;
	 Guarda_Pdf.Title := 'Orden de Compra - Club Deportivo Huachipato';
	 Guarda_Pdf.FileName := Concat(IntToStr(IBQ_Select['Ord_Numero']),'.pdf');
	 If Guarda_Pdf.Execute Then
	 Begin
		  ChDir(ExtractFilePath(Guarda_Pdf.Filename));
		  Nom := Guarda_Pdf.FileName;
		  aPDFFilt := TQRPDFDocumentFilter.Create(Nom);
		  With TOrdenes.Create(Application) Do
		  Try
			 Imprime_Orden.QuickRep1.ExportToFilter( aPDFFilt);
		  Except
			  ShowMessage('Error al crear el archivo');
			  Raise;
		  End;
		  aPDFFilt.Free;
	 End
end;

mi consulta es saber como guardo el archivo sin utilizar el SaveDialog....

Además, otra consulta, como puedo hacer para verificar si el Archivo ya Existe ?... para que no lo sobreescriba.... y se evite un paso....

[[maeyanes]]

Prueba con estas modificaciones:

Código Delphi [-]
procedure TOrdenes.Generar_PDF;
Var
  aPDFFilt : TQRPDFDocumentFilter;
  Nom : String;

begin
  Filtra_Orden;
  //Guarda_Pdf.Title := 'Orden de Compra - Club Deportivo Huachipato';
  //Guarda_Pdf.FileName := Concat(IntToStr(IBQ_Select['Ord_Numero']),'.pdf');
  //ChDir('C:\Ruta del archivo');
  //Nom := Guarda_Pdf.FileName;
  aPDFFilt := TQRPDFDocumentFilter.Create('C:\RutaCompleta\' +
    IntToStr(IBQ_Select]'Ord_Numero']) + '.pdf');
  try
    With TOrdenes.Create(Application) Do
    try
      Try
        Imprime_Orden.QuickRep1.ExportToFilter(aPDFFilt)
      Except
        ShowMessage('Error al crear el archivo');
        Raise;
      End
    finally
      Free
    end
  finally
    aPDFFilt.Free
  end
end;

Si te fijas, le agregué 2 try...finally al código, esto es para liberar los objetos creados dentro del método...


Saludos...

[roman]

Yo creo que a ti te hace falta un poco de descanso Tómate un respiro y reexamina el código y la pregunta que haces.

A ver, en ¿qué parte del código usas lo que devuelve el SaveDialog?

En estas dos líneas:

ChDir(ExtractFilePath(Guarda_Pdf.Filename));
Nom := Guarda_Pdf.FileName;

La primera es para cambiarte de directorio y la segunda para crear TQRPDFDocumentFilter quien recibe el nombre del archivo.

Pero estas dos cosas tú ya las tienes sin necesidad del SaveDialog.

Entonces úsalas directamente.

// Saludos

[jachguate]

Yo creo que el problema es que has copiado el código de otro lado y estas tratando de modificarlo sin entender lo que hace primero.

Lo primero no es un pecado, si el autor lo ha publicado para eso, pero lo segundo (para mi) si lo es.

Hasta luego.