5 replies to this topic

[marthamelo]

Hola como puedo hacer para que un Tsavepicturedialog cuando se abra valla a un archivo específico he probado con esto pero no funciona

delphi

savepicturedialog1.InitialDir:=Application.ExeName+'/imagenes';

[Delphius]

No dispongo de Delphi, pero de lo que recuerdo, Application.ExeName devuelve justamente el directorio MAS el nombre del ejecutable y la extensión. Es decir algo como: Ruta/NombreEjecutable.exe

Por tanto tu código contatena todo: Ruta/NombreEjecutable.exe/Imagenes

Para hacer lo que buscas debes extraer la ruta solamente. Para ello está la función ExtractFilePath. Luego concatenar.

Es decir:

delphi

ExtrafFilePath(Application.ExeName) + '/Imagenes';

Saludos,

[egostar]

Lo que tienes que hacer es lo siguiente:

delphi

  SavePictureDialog1.InitialDir := 'C:\Documentos\Imagenes';
  SavePictureDialog1.FileName := 'sat1.png';
  if not SavePictureDialog1.Execute then exit;

Saludos

Attached Files

•  4616_c4a006e2dc4a905bf696fe552315ea74bbc1c178.png   56.19KB   4 downloads

[egostar]

No dispongo de Delphi, pero de lo que recuerdo, Application.ExeName devuelve justamente el directorio MAS el nombre del ejecutable y la extensión. Es decir algo como: Ruta/NombreEjecutable.exe

Por tanto tu código contatena todo: Ruta/NombreEjecutable.exe/Imagenes

Para hacer lo que buscas debes extraer la ruta solamente. Para ello está la función ExtractFilePath. Luego concatenar.

Es decir:

delphi

ExtrafFilePath(Application.ExeName) + '/Imagenes';

Saludos,

Cierto, eso es lo que pregunta, yo me fui por mostrar el nombre del archivo a guardar, que no es lo que está preguntando. 

Saludos

[cram]

Deberías ver la propiedad FileName y DefaultExt.

En filename va el nombre y defaultext la extensión como por ejemplo: *.JPG
la propiedad Filter es para filtrar los archivos que se ven en la lista.

Saludos

PD: No vi el primer mensaje de Egostar, si el segundo, pues escribía justo en el mismo momento, por lo que cometí el mismo error que cita él.

[Wilson]

Si lo que quieres es que vaya a un archivo específico (como dice tu pregunta), entonces debes pasarle la ruta completa del archivo icluida la extensión, ahora, deduciendo algo de tu código, supongamos que tienes una carpeta de nombre "imagenes" que a su vez reside dentro de la carpeta del ejecutable y en dicha carpeta tienes el archivo del que habla tu pregunta, entonces la solución sería:

delphi

SavePictureDialog1.FileName := ExtrafFilePath(Application.ExeName) +'\imagenes\TuArchivo.TuExtension';

Ahora, si lo que quieres es que vaya a una carpeta  determinada entonces sería:

delphi

SavePictureDialog1.InitialDir := ExtrafFilePath(Application.ExeName) +'\imagenes';// En tu código tienes la barra al reves .

No dispongo de Delphi, pero de lo que recuerdo, Application.ExeName devuelve justamente el directorio MAS el nombre del ejecutable y la extensión.

No amigo Delphius,  dicha función solo devuelve la ruta de la carpeta en donde reside el ejecutable.

Saludos