FTP | CCD | Buscar | Trucos | Trabajo | Foros |
|
Registrarse | FAQ | Miembros | Calendario | Guía de estilo | Temas de Hoy |
|
Herramientas | Buscar en Tema | Desplegado |
#1
|
|||
|
|||
enviar documento cargado a programa
amigos nuevamente y muy prontamente solicito su ayuda
tengo el siguiente codigo de un programa en ms-dos Handler.cmd Código:
@Echo Off TITLE Reg2Inf Converter Handler setlocal enableextensions :start set WORKFILE=%~1 set OUTFILE=%~dpn1.inf CD /D %~dp1 :reg2infExecute If not defined WORKFILE goto usageinfo If not exist "%WORKFILE%" goto notexist If exist "%OUTFILE%" goto overwritewarning :doit Echo. Echo ** Converting "%~nx1" ... reg2inf.exe "%WORKFILE%" "%OUTFILE%" Echo. PAUSE goto end :overwritewarning color 0a Echo. Echo ** WARNING ! Echo. Echo "%OUTFILE%": Already exists ! Echo. :userpromptoverwrite SET /P Result=- Overwrite ?: if /I "%Result%"=="yes" goto doit If /I "%Result%"=="no" goto rename If /I "%Result%"=="n" goto rename goto userpromptoverwrite :rename SET /P OUTFILE=- New filename: If "%OUTFILE%"=="" goto rename goto reg2infExecute :usageinfo color 0a Echo. Echo ** %~nx0 [NameOfRegFileToConvert.Reg] Echo. Echo - The output INF will be created in the same folder as the input REG Echo and with the same name (in this case: NameOfRegFileToConvert.Inf) Echo. Echo - Input REG file must exist, you will be prompted if a file with the Echo same name as the Output INF already exists. Echo. Echo ** Press any key to exit . . . PAUSE > NUL goto end :notexist color 4f Echo. Echo ** "%WORKFILE%": Does not exist ! Echo. Echo ** Press any key to exit . . . PAUSE > NUL goto end :end endlocal creo que seria mas facil tomar el archivo cargado y enviarlo a este programa tengo los sgtes comando para tomar un archivo y quisiera enviarlo a su ejecución he visto codigos por aqui pero no me han servido si me orientaran un poco lo agradeceria
|
#2
|
||||
|
||||
Hola jonydread.
No estoy seguro de entender lo que buscas hacer, pero si se trata de ejecutar el archivo HANDLER.CMD, sería:
Un saludo.
__________________
Daniel Didriksen Guía de estilo - Uso de las etiquetas - La otra guía de estilo .... |
#3
|
|||
|
|||
Necesito tomar un archivo .reg por medio del boton abrir cargarlo a que handler.cmd lo procese por medio de un boton convertir
gracias por su respuesta! |
#4
|
||||
|
||||
Entiendo, probá de este modo:
Un saludo.
__________________
Daniel Didriksen Guía de estilo - Uso de las etiquetas - La otra guía de estilo .... |
#5
|
|||
|
|||
funciona ese codigo si coloco las rutas que no es la idea
en cambio asi no hace nada probe con edit1.text y tampoco lo botones que tengo estan asi primer boton carga archivo segundo lo envia al programa externo gracias! |
#6
|
||||
|
||||
Hola.
Seguramente el problema lo tengas en como maneja el parámetro Handler.cmd ¿ Por que pienso eso ? Acabo de hacer la siguiente prueba: Contenido del Handler.cmd que cree en mi equipo: Código:
set WORKFILE=%~1 type %~1 PAUSE Código:
C:\>HANDLER C:\TEMP\ARCHIVO.TXT Luego desde Delphi, ejecuto este código: Y sin ningún problema, visualizo en la ventana de símbolo de sistema el contenido del archivo .TXT enviado mediante ShellExecute. No hay error en el envío del parámetro mediante ShellExecute ni en la recepción del mismo por Handler.cmd, por lo tanto el problema debe suceder luego en el manejo que hace Handler.cmd con el parámetro que recibió. Un saludo.
__________________
Daniel Didriksen Guía de estilo - Uso de las etiquetas - La otra guía de estilo .... |
#7
|
|||
|
|||
muchas gracias probare y comento!!
|
#8
|
|||
|
|||
opendialog1.filename
toma la ruta con espacios y no funciona probe un directorio sin espacios y funciona bien que se puede hacer |
#9
|
||||
|
||||
Hola.
Creo que el problema se produce por que Handler.CMD no puede manejar los nombres largos de archivo, probá de este modo:
Un saludo.
__________________
Daniel Didriksen Guía de estilo - Uso de las etiquetas - La otra guía de estilo .... |
#10
|
|||
|
|||
no me funciona muchas gracias por la ayuda creo que tratare de trabajar el cmd haber si lo compilo dentro del mismo form sin necesitar el cmd a las finales creo que la parte mas importante es esta
Código:
:doit Echo. Echo ** Converting "%~nx1" ... reg2inf.exe "%WORKFILE%" "%OUTFILE%" Echo. PAUSE goto end Gracias!! |
#11
|
|||
|
|||
reduci el ejecutable cmd
existe alguna forma de realizar lo mismo en un shellexecute de delphi, no se un boton que envie estos mismos parametros? Código:
@Echo Off TITLE Reg2Inf Converter Handler setlocal enableextensions :start set WORKFILE=%~1 set OUTFILE=%~dpn1.inf CD /D %~dp1 Echo. Echo ** Converting "%~nx1" ... reg2inf.exe "%WORKFILE%" "%OUTFILE%" Echo. PAUSE goto end :end endlocal Última edición por jonydread fecha: 07-11-2011 a las 20:34:21. |
#12
|
|||
|
|||
Cita:
|
#13
|
|||
|
|||
disculpa por seguir el hilo pero me salio un problema
el shortname toma bien los archivos pero rutas largas al parecer tengo : D:\re2\delphi\run.reg , dice no existe tengo : D:\re2\delphi\copiaderun.reg , lo convierte sin problemas a que se debe |
|
|
Temas Similares | ||||
Tema | Autor | Foro | Respuestas | Último mensaje |
Enviar documento usando el fax de Windows | epuigdef | Varios | 5 | 17-10-2008 08:55:27 |
Enviar documento por fax desde delphi, desesperado:( | manolop | Varios | 4 | 30-03-2007 15:20:56 |
enviar documento por mail | walace_soy | Servers | 4 | 22-10-2004 13:12:54 |
Enviar documento *.doc por fax | SLAKE | Varios | 0 | 29-01-2004 19:54:57 |
|