Alguien sabe como simular o como hacer lo mismo que el comando doevent de foxpro?
este comando espera a que se procese el comando anterior para ejecutar el siguiente.
Lo necesito para hacer un tcpwrite() despues de un tcpread().
El problema que tengo que resolver es el siguiente:
para poder leer un email tengo que hacer lo siguiente:
enviar un tcpwrite("user "+cUsuario)
esperar hasta que devuelve "user ok send password"
enviar un tcpwrite("pass "+cContrasena)
esperar hasta que devuelve "12 messages available"
la unica forma que se me ha ocurrido hasta ahora es hacer varios codeblocks para ondata() que lean las lineas de una en una, pero es un palo, porque imaginaros que tengo que stablecer un dialogo con la maquina para mandar y validar 12 lineas, tendria que hacer 12 codeblock ondata() para leer las lineas 1 a 1 y supongo que habra alguna forma mas sencilla de hacer que espere a ejecutar el evento tcpwrite() para seguir con la ejecucion de la aplicacion...
he probado con TApplication():processmessages() pero no me hace nada... En Foxpro es tan facil como hacer un doevent()
alguna idea de como solucionar este embrollo?
Bruno ,truesoft,?
_________________ (C) Josu Udaondo...el fiera de clipper 5
Bilbao 2006
|