TClientSocket.Wait
| TClientSocket = class (TObject) | Interface de TClientSocket | Exemples de TClientSocket |
Qubes 9.0 Attente du prochain événement TCP
Syntaxe
procedure Wait(timeoutMSec: Integer)
timeoutMSec: temps d'attente maximum en millisecondes
Remarques
Cette méthode attend au plus timeoutMSec millisecondes, ou rend le contrôle immédiatement si un événement TCP a lieu (réception de données, perte de connexion, etc.).
L'usage de cette méthode est préférable à une boucle d'attente (pas d'utilisation CPU et réactivité instantanée).
Voir aussi WaitForConnected.
Exemples
var sock := new TClientSocket;
sock.Connect('www.qubes.com', 80);
sock.WaitForConnected(1000);
sock.SendString('GET / HTTP/1.0'#13#10#13#10);
sock.Wait(1000);
PrintLn(sock.ReceiveAll);
sock.Connect('www.qubes.com', 80);
sock.WaitForConnected(1000);
sock.SendString('GET / HTTP/1.0'#13#10#13#10);
sock.Wait(1000);
PrintLn(sock.ReceiveAll);