PDA

Ver la Versión Completa : SaveDialog con WinExec!!


lduron
15-06-2006, 19:10:32
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
Creo que te falto esto:

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.