FTP | CCD | Buscar | Trucos | Trabajo | Foros |
|
Registrarse | FAQ | Miembros | Calendario | Guía de estilo | Temas de Hoy |
|
Herramientas | Buscar en Tema | Desplegado |
#1
|
|||
|
|||
Conexion con reloj mediante TClientSocket
Hola a todos.
Me surgio la necesidad de hacer un programa que se conecte a un reloj de personal por tcp/ip y que traiga la marcas de los empleados. Con el reloj venia un ejemplo en Delphi que usaba el TClientSocket (tuve que agregarlo porque en el Delphi 7 no viene por def). El ejemplo tiene un TEdit, un TMemo1 y 3 botones, uno para activar el TClientSocket, otro para desactivarlo y el tercero para enviar el comando que se escriba en el TEdit. En el evento OnRead del TClientSocket se graba lo que se recibe en el memo. Este funciona bien. Ahora yo tenía la necesidad de que sea más o menos en tiempo real por lo que hice un proyecto con un TTimer para poder consultar automáticamente cada 60 segundos al reloj las nuevas marcas. El exe queda en el tray con el componente de las trivial TApp2Tray Mi sorpresa es que al poner todo dentro de un procedimiento deja de funcionar la comunicación, o al menos no funciona como debería. Este es el código que uso, haber si alguien me puede dar una mano o tiene idea de porque pasa esto.
Probe poner sleep entre cada paso del procedure pero tampoco llega el programa al evento OnRead. Ahora si pongo 5 botones y en cada boton pongo Voy apretando secuencialmente los botones y funciona ..... Me esta quemando la cabeza, alguien me puede tirar algun cable. Saludos Última edición por adfa fecha: 07-08-2007 a las 20:55:52. |
#2
|
||||
|
||||
Si entendi bien lo que tienes que generar el evento OnTimer y alli llamar el procedimiento getRegsDeMarcas
__________________
...Yo naci en esta ribera del arauca vibr@d0r Soy hermano de la espuma, de la garza, de la rosa y del sol... Viva Venezuela |
#3
|
|||
|
|||
En el evento del timer se llama al procedure getRegsDeMarcas, no lo puse, pero es así.
|
#4
|
||||
|
||||
Coloca un punto de interrupcion en el procedimiento getRegsDeMarcas y fijate si esta entrando, si es asi revisa que las constantes esten bien escritas. eso es lo que se me ocurre de momento, pero lo que me parece es que no esta entrando en el procedimiento
__________________
...Yo naci en esta ribera del arauca vibr@d0r Soy hermano de la espuma, de la garza, de la rosa y del sol... Viva Venezuela |
#5
|
|||
|
|||
eduarcol, gracias por tu tiempo.
Las constantes estan bien, porque si lo hago mediante botones fuciona bien, la prueba es en el mismo form deshabilitando el timer y usando los 5 botones (que con esos botones si anda). Al evento llega, probe con un breakpoint, pero pasan cosas raras al pasar el cs1.active := true; el valor del cs1.active me lo muestra como false a veces, a veces true pero igual no funciona, es decir no llega a ser disparado el evento OnRead del TClientSocket donde el reloj deberia devolver las marcas. |
#6
|
||||
|
||||
Probastes dandole mas tiempo en el Timer a lo mejor esta muy seguido y por eso el comportamiento que se desactiva tan rapido
__________________
...Yo naci en esta ribera del arauca vibr@d0r Soy hermano de la espuma, de la garza, de la rosa y del sol... Viva Venezuela |
#7
|
|||
|
|||
En el código lo dice, 1 minuto de tiempo, creo que es suficiente, ya que cuando lo hago mediante los botones clickear los 5 nunca demoro más de 5 o 6 segundos. Y ahi si se ejecuta el evento OnRead y en el TMemo aparece lo que devuelve el reloj.
|
#8
|
|||
|
|||
Gracias eduarcol por tu tiempo.
Lo resolvi cambiando de componente y usando el TidTCPClient de las Indy. Los métodos writeLn y readLn del componente me facilitaron mucho. El TClientSocket me parece que debe tener un tema medio raro con el manejo del thread principal o algo por el estilo(ojo lo digo sin saber mucho y pensando en que puede ser). Saludos |
#9
|
||||
|
||||
Gracias por avisar, ya estuve leyendo el otro hilo, me alegra lo hayas conseguido
__________________
...Yo naci en esta ribera del arauca vibr@d0r Soy hermano de la espuma, de la garza, de la rosa y del sol... Viva Venezuela |
|
|
Temas Similares | ||||
Tema | Autor | Foro | Respuestas | Último mensaje |
Conexion con reloj mediante TClientSocket | adfa | Internet | 8 | 09-08-2007 00:36:24 |
Conexion mediante ODBC, OLE DB, ADO? | tsomarp | Conexión con bases de datos | 1 | 25-02-2005 13:05:27 |
Conexion con Oracle mediante ADO | PTW | Oracle | 0 | 21-02-2005 14:50:25 |
Conexion a Access Mediante una DLL | Draco | Conexión con bases de datos | 0 | 29-04-2004 04:27:47 |
Conexion a DBF mediante DBE | Celta777 | Conexión con bases de datos | 2 | 18-10-2003 19:59:52 |
|