TClientSocket - Exemples

// Exemple de récupération de la page d'accueil du site web de Creative IT :

uses Sockets;

var cnx := new TClientSocket;

// Connexion
cnx.Connect('www.creative-it.net', 80);
// Boucle (max=500ms) pour attendre la connexion

var i := 0;
while (Inc(i) <= 50) and not cnx.Connected do
   Sleep(10);
if i > 50 then Exit;

// On envoie une demande (dans notre cas : protocole HTTP)
cnx.SendString('GET / HTTP/1.1'#13#10'Host: www.creative-it.net'#13#10#13#10);

// Boucle (max=1000ms) pour attendre le moment où on commence à recevoir du contenu
var j := 0;
while (Inc(j) <= 100) and (cnx.ReceivedCount = 0) do
   Sleep(10);
if j > 100 then Exit;
// On attend encore un peu (pour récupérer tout le contenu)
Sleep(100);
// On lit les données reçues
PrintLn(cnx.ReceiveAll);
// On se déconnecte
// (NB : inutile ici car la déconnexion est automatique à la fin du script)
cnx.Disconnect;