Guardar Archivo

[[BlueSteel]]

Hola Delphimaniaticos...

tengo una consultita....

Como puedo guardar un archivo en un Directorio X con un Nombre Y, pero sin utilizar el Cuadro de Diagolo que viene con el Dephi 7.

como dato, conozco el Directorio, El nombre del Archivo, y la Extención....

y si no se puede, existe alguna manera de utilisar el SaveDialog en modo invisible o algo parecido....

la idea es que cuando el usuario presione guardar, este se guarde en el directorio por defecto y con el nombre por defecto....

[delphi.com.ar]

No entiendo bien la duda, pero: ¿No quieres que el usuario seleccione el directorio?... entonces obvias el TSaveDialog y asignas desde el código el directorio que mas te guste!

[jachguate]

De hecho, el SaveDialog en realidad no guarda ningún archivo... simplemente permite al usaurio seleccionar la ubicación y el nombre que quiere darle... y espera que el programador use esta información para enviarlo al disco.

[[BlueSteel]]

shuata.. y como seria la sentencia ?

sera algo asi SaveAs(Unidad,Directorio,Nombre_Archivo) ?

[delphi.com.ar]

Que es lo que quieres guardar????... dónde lo tienes almacenado???

[[maeyanes]]

Depende de que tipo de archivo quieres guardar y desde donde?

Si es un archivo de texto y lo quieres guardar desde un TStringList, sería algo como:

Código Delphi [-]
MiStringList.SaveToFile('C:\RutaCompletadelArchivo\ElArchivo.txt');

Si es un bitmap o cualquier formato gráfico desde un TImage o TPicture podría ser algo como:

Código Delphi [-]
// Es un TImage
MiImagen.Picture.SaveToFile('C:\RutaCompletadelArchivo\ElArchivo.bmp');

// Es un TPicture
MiPicture.SaveToFile('C:\RutaCompletadelArchivo\ElArchivo.bmp');

Saludos...

[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....