General :: ¿Cómo Acceder A IOCTL_CONSOLE Desde Gambas3?

Portal

Foro

Buscar

FAQ

Registrarse

Conectarse

Fecha y hora actual: Martes, 14 May 2024, 08:28 • Todas las horas son UTC + 1 Hora

¿Cómo Acceder A IOCTL_CONSOLE Desde Gambas3?

Página 1 de 2
Ir a la página 1, 2 Siguiente

¿Cómo Acceder A IOCTL_CONSOLE Desde Gambas3?

Autor	Mensaje
Grandamakulo Analista Programador Registrado: Enero 2016 Mensajes: 311 Edad: 55 Ubicación: En un lugar de La Mancha de cuyo nombre me acuerdo perfectamente...	¿Cómo Acceder A IOCTL_CONSOLE Desde Gambas3? Hola a todos de nuevo: ¿Alguien puede ayudarme con la pregunta del asunto? Básicamente, quiero acceder a y utilizar IOCTTL_CONSOLE(2) - KDGETLED, KDGKBLED y KDGKBTYPE. Muchas gracias de antemano.
#1 Martes, 15 Octobre 2019, 08:54

vuott Analista Programador Registrado: Agosto 2013 Mensajes: 2086 Edad: 60 Ubicación:	Re: ¿Cómo Acceder A IOCTL_CONSOLE Desde Gambas3? Esta pagina para tener una idea general sobre uso de la función externa ioctl( ): https://www.gambas-it.org/wiki/index.php?title=Ioctl() última edición por vuott el Martes, 15 Octobre 2019, 09:05; editado 1 vez
#2 Martes, 15 Octobre 2019, 09:05

Grandamakulo Analista Programador Registrado: Enero 2016 Mensajes: 311 Edad: 55 Ubicación: En un lugar de La Mancha de cuyo nombre me acuerdo perfectamente...	Re: ¿Cómo Acceder A IOCTL_CONSOLE Desde Gambas3? Muchísimas gracias, vuott. Modifico el enlace, eso sí, que lleva a una página vacía: IOCTL Gambas3 Italia última edición por Grandamakulo el Martes, 15 Octobre 2019, 09:59; editado 6 veces
#3 Martes, 15 Octobre 2019, 09:56

vuott Analista Programador Registrado: Agosto 2013 Mensajes: 2086 Edad: 60 Ubicación:	Re: ¿Cómo Acceder A IOCTL_CONSOLE Desde Gambas3? Grandamakulo escribió: [Ver mensaje] Modifico el enlace, eso sí, que lleva a una página vacía: Oh, sì, pardon. Gracias.
#4 Martes, 15 Octobre 2019, 10:17

Grandamakulo Analista Programador Registrado: Enero 2016 Mensajes: 311 Edad: 55 Ubicación: En un lugar de La Mancha de cuyo nombre me acuerdo perfectamente...	Re: ¿Cómo Acceder A IOCTL_CONSOLE Desde Gambas3? Pues probando el código, tengo un problema. Cuando intento abrir "/dev/tty" me da un «manejador» nulo. Esto es: Código: [Descargar] [Ocultar] [Seleccionar] Código: [Descargar] [Mostrar] Dim b As File b = Open "/dev/tty" For Read Produce b.Handle=Null ¿Alguna sugerencia? Pues el error parece otro... Lo compruebo y consulto. última edición por Grandamakulo el Martes, 15 Octobre 2019, 19:48; editado 1 vez
#5 Martes, 15 Octobre 2019, 19:35

vuott Analista Programador Registrado: Agosto 2013 Mensajes: 2086 Edad: 60 Ubicación:	Re: ¿Cómo Acceder A IOCTL_CONSOLE Desde Gambas3? Tu file-device "/dev/tty" tiene todos los permisos de acceso ? Que pasa con este codigo ? Código: [Descargar] [Ocultar] [Seleccionar] Código: [Descargar] [Mostrar] Public Sub Main() Dim b As File b = Open "/dev/tty" For Read Print Object.IsValid(b), IsNull(b), b b.Close End última edición por vuott el Martes, 15 Octobre 2019, 19:55; editado 1 vez
#6 Martes, 15 Octobre 2019, 19:55

Grandamakulo Analista Programador Registrado: Enero 2016 Mensajes: 311 Edad: 55 Ubicación: En un lugar de La Mancha de cuyo nombre me acuerdo perfectamente...	Re: ¿Cómo Acceder A IOCTL_CONSOLE Desde Gambas3? Sí, de hecho, no es ese el error. Me he equivocado. Sí que me da un manejador. Creo que el error me lo devuelve IOCTL Código: [Descargar] [Ocultar] [Seleccionar] Código: [Descargar] [Mostrar] ' Ref: http://man7.org/linux/man-pages/man2/ioctl_console.2.html Private Const KDGETLED As Long = &H4B31 Private Const LED_CAP As Byte = 4 Private Const LED_NUM As Byte = 2 Private Const LED_SCR As Byte = 1 Private Extern ioctl(fd As Integer, request As Long, arg As Long) As Integer In "libc:6" Public Function BloqMayBloqNum() As Integer Dim lngAri As Long ' Argumentos ioctl Dim intIoc As Integer ' Resultado de ioctl: 0, funciona; -1, error Dim filTty As File ' Archivo tty para pasar a ioctl Dim intRes As Integer filTty = Open "/dev/tty" For Read If IsNull(filTty) Then Message("No se pudo abrir la consola TTY") If IsNull(filTty.Handle) Then Message("No se pudo manejar la consola TTY") intIoc = ioctl(filTty.Handle, KDGETLED, lngAri) If intIoc < 0 Then Message("Sin resultado TTY") filTty.Close ' TODO: Transformar resultado en matriz intRes = lngAri And (LED_CAP + LED_NUM + LED_SCR) Return intRes End IOCTL resulta siempre «-1», es decir, ejecutado con error. última edición por Grandamakulo el Martes, 15 Octobre 2019, 20:19; editado 1 vez
#7 Martes, 15 Octobre 2019, 20:18

Grandamakulo Analista Programador Registrado: Enero 2016 Mensajes: 311 Edad: 55 Ubicación: En un lugar de La Mancha de cuyo nombre me acuerdo perfectamente...	Re: ¿Cómo Acceder A IOCTL_CONSOLE Desde Gambas3? vuott escribió: [Ver mensaje] Tu file-device "/dev/tty" tiene todos los permisos de acceso ? Que pasa con este codigo ? Código: [Descargar] [Ocultar] [Seleccionar] Código: [Descargar] [Mostrar] Public Sub Main() Dim b As File b = Open "/dev/tty" For Read Print Object.IsValid(b), IsNull(b), b b.Close End Efectivamente, funciona bien: True False (File 0x55bc0ea71ca8)
#8 Martes, 15 Octobre 2019, 20:41

vuott Analista Programador Registrado: Agosto 2013 Mensajes: 2086 Edad: 60 Ubicación:	Re: ¿Cómo Acceder A IOCTL_CONSOLE Desde Gambas3? Grandamakulo escribió: [Ver mensaje] Creo que el error me lo devuelve IOCTL .... IOCTL resulta siempre «-1», es decir, ejecutado con error. Perdona. ¿Copiaste tú este código de un código C? Si es así, ¿dónde se puede ver el código original escrito en C ? última edición por vuott el Martes, 15 Octobre 2019, 22:12; editado 1 vez
#9 Martes, 15 Octobre 2019, 22:12

vuott Analista Programador Registrado: Agosto 2013 Mensajes: 2086 Edad: 60 Ubicación:	Re: ¿Cómo Acceder A IOCTL_CONSOLE Desde Gambas3? Bueno, encontré este codigo, escrito en C, muy parecido al tuyo: https://www.helpnetsecurity.com/dl/articles/txt/console1.txt Probé aquel codigo en C, y tambien con aquel codigo en C el resultado de IOCTL es = -1 ! Además obtengo este mensaje en console: ioctl: Inappropriate ioctl for device Puedes ver este mensaje usando la función externa perro() (usada en el codigo escrito en C): Código: [Descargar] [Ocultar] [Seleccionar] Código: [Descargar] [Mostrar] Private Extern perror(s As String) As String in "libc:6" ...... intIoc = ioctl(filTty.Handle, KDGETLED, VarPtr(lngAri)) If intIoc < 0 Then Message("Sin resultado TTY" & perror("\nioctl")) ...... última edición por vuott el Martes, 15 Octobre 2019, 22:54; editado 2 veces
#10 Martes, 15 Octobre 2019, 22:31

Mostrar mensajes anteriores:

Temas parecidos

	Autor	Foro	Respuestas	último mensaje
Acceder A Array Desde Otro Sub(Solucionado)	Dani26	Controles/Librerías/Componentes	4	Miercoles, 16 Junio 2010, 03:18 Dani26
¿Cómo Acceder A Los Elementos De Una Web?	Evadido2	Controles/Librerías/Componentes	5	Jueves, 06 Enero 2011, 22:33 estrella_de_galicia
Acceder Variables Private Desde Multiples ...	perseo3000	General	2	Domingo, 28 Agosto 2011, 04:01 codificador
Acceder A Las Propiedades De Controles Fma...	honovan	General	4	Sabado, 19 Agosto 2017, 16:24 honovan

Página 1 de 2
Ir a la página 1, 2 Siguiente

Fecha y hora actual: Martes, 14 May 2024, 08:28 • Todas las horas son UTC + 1 Hora

Usuarios navegando en este tema: 0 registrados, 0 ocultos y 1 invitado
Usuarios registrados conectados: Ninguno

Lista de permisos

No puede crear mensajes
No puede responder temas
No puede editar sus mensajes
No puede borrar sus mensajes
No puede votar en encuestas
No puede adjuntar archivos
Puede descargar archivos
No puede publicar eventos en el calendario

Versión reducida del foro - (Lo-Fi)
Página generada en:: 0.1375s (PHP: -40% SQL: 140%)
Consultas SQL: 36 - Debug off - GZIP Activado

Design by Mighty Gorgon