Manuel §2.9.12    

Function Accept

La fonction Accept permet à un serveur Tcp d'accepter ou de refuser une connexion.

La fonction accepte un itérateur de connexion (cf. Connected) et un booléen indiquant si on accepte ou non la connexion et elle rend un identificateur de connexion qui sera utilisé ultérieurement pour envoyer ou recevoir des données.

Supposons que notre serveur ne gère qu'une dizaine de connexions ouvertes simultanément

connexions Array[10];
...
function ConnexionDeLibre()
// Rend un numéro de connexion disponible
begin
for i = 0 to 9 do
if connexions[i] == null then return i;
return -1;
end
...
On ethCouple.Connect do begin
// Pour chaque demande de connexion
for idcon in ethCouple.Connected do begin
cn = ConnexionDeLibre();
if cn >= 0 then connexions[ cn] = ethCouple.Accept(  idcon, 1)
else ethCouple.Accept( idcon, 0);
end
end