FTP | CCD | Buscar | Trucos | Trabajo | Foros |
|
Registrarse | FAQ | Miembros | Calendario | Guía de estilo | Temas de Hoy |
|
Herramientas | Buscar en Tema | Desplegado |
#1
|
||||
|
||||
Problemas con Ejecutar comando cmd y capturar su salida
Hola a todos
Pues buscando como ejecutar un comando con el CMD y obtener la salida para almacenarla en una variable, me encontré con este truco de seoane, pero parece que como es algo antiguo y para delphi 7 o anterior, en delphi XE7 no funciona como debe ser. En la salida en lugar de mostrar el resultado como debe ser, muestra letras chinas Por ejemplo: Esta salida Cita:
un dir C: me devuelve esto: Cita:
__________________
La hora de acción no es hora de aprender, es necesario haber aprendido antes |
#2
|
||||
|
||||
Tiene toda la pinta de ser problema con los caracteres Unicode. Recuerda que desde Delphi 2009 los antiguos WideString son los actuales String, y los antiguos String son los actuales AnsiString. Lo mismo pasa con los Char y PChar, que ahora son AnsiChar y PAnsiChar.
Prueba a cambiar las definiciones de la función, a ver si funciona No tengo a mano Delphi ahora mismo para probarlo. Un saludo |
#3
|
||||
|
||||
Hice los cambios de tipos de char y ansichar y demas como me explicas, pero en algunas funciones me da incompatibilidad de tipos
Entonces, depurando el código para ver el lugar donde se "pierde" la codificación, encontre que es en esta línea:
y no entiendo nada mas, no se como seguir para arreglar el problema
__________________
La hora de acción no es hora de aprender, es necesario haber aprendido antes |
#4
|
||||
|
||||
¿Podrías mostrarnos un poco más de código? Incluyendo el código de read_stdout (sea variable, función...) y la declaración de Buffer (sea variable, parámetro...). Gracias.
|
#5
|
||||
|
||||
Cita:
En realidad no puse el codigo completo porque puse el enlace en el primer post, pero de igual forma aqui lo tienes
Forma de uso:
__________________
La hora de acción no es hora de aprender, es necesario haber aprendido antes |
#6
|
||||
|
||||
Cita:
Revisando el código, da la impresión de que podría funcionar si cambias esta línea: por: o simplemente:
Última edición por Al González fecha: 08-09-2020 a las 07:30:00. |
#7
|
||||
|
||||
Pues con el cambio que me indicas ya sale bien, con las dos opciones
Muchas gracias
__________________
La hora de acción no es hora de aprender, es necesario haber aprendido antes |
#8
|
||||
|
||||
¡De nada!
Me alegra en verdad haberte podido ayudar. Por lo visto esta sentencia lee caracteres ANSI (de un byte) y los mete a la variable Buffer. Esta tiene la declaración , que en su momento era una matriz de 4097 bytes. Pero ahora el tipo Char es Unicode y tiene un tamaño de dos bytes, por lo que la matriz duplica su tamaño en las versiones modernas de Delphi. Este cambio no parece dar problema con el resto de las funciones donde se utiliza la variable Buffer. GetEnvironmentVariable, por ejemplo, fue en su momento actualizada para Unicode. Sin embargo la lectura con ReadFile de lo que arroja el comando ejecutado depende de cómo trabaje la consola de Windows (al parecer sigue siendo ANSI). Así, cuando se realiza la concatenación en Delphi 2009 o superior, se toman los bytes de Buffer de dos en dos, siendo cada par, es decir, cada Char moderno, interpretado como un carácter Unicode. Digamos que en un String ANSI 'Hola', donde el valor como Byte de esos cuatro caracteres es 72, 111, 108 y 97, unir por pares dichos valores nos daría (por su conformación binaria) los valores Word 28488 (111 desplazado ocho bits a la izquierda más 72) y 24940 (97 desplazado ocho bits a la izquierda más 108). Si buscamos en Google los caracteres Unicode de valor decimal 28488 y 24940, aparece que estos son 潈 y 慬, respectivamente. No tengo la más remota idea de qué significan; no vayan a decir hola de esa manera cuando viajen por oriente. El efecto del problema que se producía puede ser comprobado con un código como este:
Me gustaría hacer un reconocimiento al autor de la útil función CmdExec, Domingo Seoane. Tengo buenos recuerdos de él como miembro de este club. Durante años hizo innumerables aportaciones técnicas en materia de Delphi que hasta la fecha siguen sirviendo a programadores como JoAnCa. Mi respeto absoluto para Domingo, ojalá lo leamos por acá nuevamente. Un abrazo caracterizado. Al González. |
#9
|
||||
|
||||
Cita:
Vaya, muy buena explicación, muy instructiva para mi, ya que siempre me gusta saber el por qué las "cosas" no funcionan
__________________
La hora de acción no es hora de aprender, es necesario haber aprendido antes |
|
|
Temas Similares | ||||
Tema | Autor | Foro | Respuestas | Último mensaje |
Ejecutar comando PowerShell windows | Parsec | Windows | 2 | 03-10-2019 09:52:01 |
Ejecutar comando y capturar su salida | seoane | Trucos | 10 | 07-11-2017 13:08:28 |
Capturar la salida de un comando dos. | spab | API de Windows | 26 | 04-02-2011 14:05:08 |
Ejecutar comando remoto | papulo | Linux | 5 | 27-11-2008 19:41:46 |
Capturar salida de comando linux | pkbza | Lazarus, FreePascal, Kylix, etc. | 5 | 13-01-2006 02:45:32 |
|