hvordan du oppretter en tjeneste lytter på spesifikk port .//dette vil skape en lytte socket på port 113 (Ident D) //og velkommen enhver klient med en tekst //når innkommende tekst er mottatt OnServerData er trigged.uses Wsocket; //privat declaredOnServerSessionAvailable (Sender: TObject; Feil: OnServerDataAvailable (Sender: TObject; Feil: Word); Prosedyre TForm1.OnServerSessionAvailable (Sender: TObject; Feil: Word); varnewclient: Twsocket; begynne med TWsocket (sender) gjør begynne //uncomment dette, og du vil få en veldig enkel identd server {newclient:. = Twsocket.create (egen-); newclient.HSocket: = Godta, med newclient gjøre begynne SendStr (getpeerport + ' , 113: USERID: UNIX: JoePezt '+ # 13 # 10) nær; gratis; exit; ende;} //sende en velkomstmelding til klienten sendstr (. "Velkommen" + # 13 # 10); ende; ende; Prosedyre Tform1.OnServerDataAvailable (Sender: TObject; Feil: Word); varreceived: string; begynne //vi trimme fått streng for å fjerne mellomrom og CRLF mottatt: = trim (TWsocket (sender) .Receivestr); ende; prosedyre TForm1.cmdListenClick (Sender: TObject); Var server: Twsocket; begynne Server: = Twsocket.create (selv); med Server gjør begynne OnSessionAvailable: = OnServerSessionAvailable; OnDataAvailable: = OnServerDataAvailable; Linemode: = true; LineEnd: = # 13 # 10 Adr: = '0.0.0.0'; port: = '113'; //Hvilken port vi bruker proto: = 'tcp'; lytte; end, end; Anmeldelser