,, hvordan der kan skabes en tjenesteydelse efter den særlige havn. //det vil skabe en lytter til den havn, 113 (svar d) //og bifalder enhver kunde med en tekst, //, hvis tekst er blevet onserverdata er trigged.,,,,,,,,, wsocket anvendelsesformål; //private erklærede, onserversessionavailable (afsender: tobject; fejl:,, onserverdataavailable (afsender: tobject; fejl: ord;,,,, procedure tform1. onserversessionavailable (afsender: tobject; fejl: ord), var, newclient: twsocket;,,, begynder med twsocket (afsender), begynder, //uncomment dette, og du vil få en meget enkel identd server.,, {,, newclient: = twsocket. skabe (selvstændige), newclient.hsocket: = acceptere,,,med newclient, begynder, sendstr (getpeerport +, 113: brugeridentifikation: unix: joepezt + ), lukkes, gratis;,,, udpassage,,,,,,,, //sende en velkommen note til kunden, sendstr. (glæder sig over + );,,,,,,,,, procedure tform1. onserverdataavailable (afsender: tobject; fejl: ord;,, var, modtaget: string;, begynder, //vi trimme modtaget snor til at fjerne whitespaces og crlf, modtaget: = beklædning (twsocket (afsender). receivestr);,,,,,,,,,, procedure tform1. cmdlistenclick (afsender: tobject);,, var, - twsocket;, begynder, serveren: = twsocket. skabe (selvstændige), med serveren, begynder. onsessionavailable: = onserversessionavailable;,, ondataavailable: = onserverdataavailable;,, linemode: = sandt,,, lineend: = , adresse: = 0.0.0.0;,, havn: = 113; //hvilken havn, vi bruger, dobbelt: = tcp «, hør,,,,,,,,,