Créer une dynamique d'écoute du serveur ics dans l'exécution.

Creer une dynamique d'ecoute du serveur ics dans l'execution.

Creer une dynamique d'ecoute du serveur ics dans l'execution. : Plusieurs milliers de conseils pour vous faciliter la vie.

comment faire pour creer un service a l'ecoute sur le port specifique.
// cela va creer une socket en ecoute sur le port 113 (Ident D)
// et accueil du client avec un texte
// lorsque le texte entrant est reçu, le OnServerData est declenche.
utilise Wsocket
// prive declare
OnServerSessionAvailable(Sender: TObject d'Erreur:
OnServerDataAvailable(Sender: TObject Erreur: Mot)

Procedure TForm1.OnServerSessionAvailable(Sender: TObject Erreur: Mot)
var
newclient : Twsocket
begin
& nbsp & nbsp avec TWsocket(expediteur) ne
& nbsp & nbsp commencer
& ! & ! & ! & nbsp // decommentez cette ligne, et vous obtiendrez un tres simple identd serveur.
& ! & ! & ! & nbsp {
& ! & ! & ! & nbsp newclient := Twsocket.create(self)
& ! & ! & ! & nbsp newclient.HSocket := Accepter
& ! & ! & ! & ! & ! & nbsp avec newclient ne
& ! & ! & ! & ! & ! & nbsp commencer
& ! & ! & ! & ! & ! & ! & ! & nbsp SendStr(getpeerport ', 113 : USERID : UNIX : JoePezt' #13#10)
& ! & ! & ! & ! & ! & ! & ! & nbsp fermer
& ! & ! & ! & ! & ! & ! & ! & nbsp gratuit
& ! & ! & ! & ! & ! & ! & ! & nbsp sortie

& ! & ! & ! & ! & ! & nbsp fin
& ! & ! & ! & nbsp }
& ! & ! & ! & nbsp // envoyer un message de bienvenue pour le client.
& ! & ! & ! & nbsp sendstr('bienvenue' #13#10)
& nbsp & nbsp fin
fin
Procedure Tform1.OnServerDataAvailable(Sender: TObject Erreur: Mot)
var
reçu : string
begin
& nbsp & nbsp // nous couper de la chaîne reçue pour supprimer les espaces et crlf
& nbsp & nbsp reçues := trim(TWsocket(expediteur).Receivestr)
fin
procedure TForm1.cmdListenClick(Sender: TObject)
var
& nbsp & nbsp serveur : Twsocket
begin
& nbsp & nbsp Serveur := Twsocket.create(self)
& ! & ! & ! & nbsp avec le Serveur ne
& ! & ! & ! & nbsp commencer
& ! & ! & ! & ! & ! & nbsp OnSessionAvailable := OnServerSessionAvailable
& ! & ! & ! & ! & ! & nbsp OnDataAvailable := OnServerDataAvailable
& ! & ! & ! & ! & ! & nbsp Linemode := true
& ! & ! & ! & ! & ! & nbsp LineEnd := #13#10
& ! & ! & ! & ! & ! & nbsp Addr := '0.0.0.0'
& ! & ! & ! & ! & ! & nbsp port := '113' // le port, nous utilisons
& ! & ! & ! & ! & ! & nbsp proto := 'tcp'
& ! & ! & ! & ! & ! & nbsp ecouter
& ! & ! & ! & nbsp fin
fin