Foros Club Delphi

Foros Club Delphi (https://www.clubdelphi.com/foros/index.php)
-   Varios (https://www.clubdelphi.com/foros/forumdisplay.php?f=11)
-   -   SaveDialog con WinExec!! (https://www.clubdelphi.com/foros/showthread.php?t=32766)

lduron 15-06-2006 19:10:32

SaveDialog con WinExec!!
 
Hola amigos del foro.

Solicito de la manera mas atenta su ayuda con el siguiente problemita:
Tengo un programa en delphi el cual contiene una base de datos en access, dentro de esta base de datos tengo una tabla que la llevo a java para crear un archivo shape, pero si pongo en el programa de delphi un SaveDialog y ejecuto el winexec no genera el archivo de salida, y si quito el SaveDialog y le pongo un nombre fijo al archivo de salida si lo hace, porque?

ejemplo si funciona:
WinExec('COMMAND.COM /C java -jar mdbToshape.jar c:\prueba.shp',SW_HIDE);

ejemplo no funciona:
If (SaveDialog_SHP.Execute) Then
WinExec(PChar('COMMAND.COM /C java -jar mdbToshape.jar '+SaveDialog_SHP.FileName),SW_HIDE);

Muchas Gracias por su amable atención.

AGAG4 16-06-2006 03:35:29

Checa Esto....
 
Creo que te falto esto:
Código Delphi [-]
  If (SaveDialog_SHP.Execute) Then
    WinExec(PChar(SaveDialog_SHP.FileName+'\COMMAND.COM /C java -jar mdbToshape.jar '+SaveDialog_SHP.FileName),SW_HIDE);
Se me vino en la mente, has pruebas.

Saludos.

lduron 16-06-2006 16:12:07

Primero que nada te agradezco la ayuda y la atención que has tenido para atender mi petición.

Hice pruebas copiando tal cual el código que me facilitaste:
If (SaveDialog_SHP.Execute) Then
WinExec(PChar(SaveDialog_SHP.FileName+' \COMMAND.COM /C java -jar mdbToshape.jar '+SaveDialog_SHP.FileName),SW_HIDE);

y sigue sin guardarme el archivo de salida. También hice lo siguiente:
If (SaveDialog_SHP.Execute) Then
WinExec(PChar('\COMMAND.COM /C java -jar mdbToshape.jar '+SaveDialog_SHP.FileName),SW_HIDE);

Pero no hace nada.
Espero seguir contando con tú ayuda y nuevamente muchas gracias por la misma.


La franja horaria es GMT +2. Ahora son las 20:45:46.

Powered by vBulletin® Version 3.6.8
Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
Traducción al castellano por el equipo de moderadores del Club Delphi