Accept server

Signaler
Messages postés
10
Date d'inscription
lundi 20 décembre 2004
Statut
Membre
Dernière intervention
1 septembre 2005
-
Messages postés
85
Date d'inscription
samedi 6 novembre 2004
Statut
Membre
Dernière intervention
17 décembre 2005
-
comon empecher un socket serveur d'accepeter automatiquement les
requettes des autre client qui essay de se conecter a lui et
comon lui permaitre de r accepeter automatiquement ?

1 réponse

Messages postés
85
Date d'inscription
samedi 6 novembre 2004
Statut
Membre
Dernière intervention
17 décembre 2005
1
Je pense que l'utilisation de OnAccept serait appropriée:
var
AccepterAuto: boolean;(variable globale)

................
procedure TForm1.ServerSoket1Accept(Sender: TObject; Socket: TCustomWinSocket);
var
OnAccepteLeClient: boolean;
begin
if not AccepterAuto then
begin
(Test si on accepte le client)
if not OnAccepteLeClient then
Soket.Close;
end;
end;

Je pense que ça devait aller.
Sur ce...