Estoy haciendome un programa que me descarga una pagina de internet. Usando la TCPClient es bastante facil ya que solo tiene 4 comandos emparejados asi:
open con close y read con write
Me he hecho el programa "mas o menos" asi y me funciona:
MessageDlg("Abriendo host")
TCPClient1:Open()
MessageDlg("Metiendo usuario")
TCPClient1:Write("USER "+Usuario:Caption+Chr(13)+chr(10))
MessageDlg("Metiendo contraseña")
TCPClient1:Write("PASS "+Password:Caption+Chr(13)+chr(10))
Para ver como se ejecuta paso a paso está bien, pero el problema está en que he de quitar los messagedlg() y no se como generar tiempo de espera entre el TCPClient1:Open() y el TCPClient1:Write() para que le de tiempo a TCPCLient1:Open() a ejecutarse completamente y estar abierto el puerto...
hay alguna funcion interna de windows que oblige a procesar los eventos pendientes? (en mi caso la meteria despues del Open() y antes del write()???
quedaria mas o menos asi:
MessageDlg("Abriendo host")
TCPClient1:Open()
ProcesaEventos()
TCPClient1:Write("USER "+Usuario:Caption+Chr(13)+chr(10))
ProcesaEventos()
TCPClient1:Write("PASS "+Password:Caption+Chr(13)+chr(10))
ProcesaEventos()
si no, se os ocurre como reprogramarlo para que funcione?
_________________ (C) Josu Udaondo...el fiera de clipper 5
Bilbao 2006
|