, het creëren van een bepaalde haven diensten luisteren.,, /dit creëert een luisteren stopcontact haven 113 (identificatie, d) over de tekst van een cliënt. ///////,, /als input van de tekst ontvangen van de trekker is onserverdata,,,,,,, het gebruik van wsocket; /particuliere beweert dat onserversessionavailable (afzender: TObject; fout:,, onserverdataavailable (afzender: TObject; fout: de woorden);,,,, een gebeurtenis plaatsvindt. Onserversessionavailable (afzender: TObject; fout: de woorden);,,,,, newclient:twsocket; var, begin met de afzender, twsocket (), begin,,, ///////opmerkingen uit dit, en je krijgt een heel eenvoudige identd toegang tot de server, (,,., newclient:= twsocket. Het creëren van (zelf); newclient.hsocket:= aanvaarden;,,,,En newclient doen, beginnen sendstr (,,, getpeerport + 113: naam:&#UNIX:joepezt + 13 ),,,, gesloten; vrijheid,,,,,,,,, aan het einde van uitgang;; ///////}, welkom op sturen naar de klant.,, sendstr (+&#verwelkomt je. 13 );,,,,,,, aan het einde van het einde van de procedure;; een incident gebeurd. Onserverdataavailable (afzender: TObject; fout: de woorden);,,, touw, var, ontvangen;,,, ///////hebben ontvangen. Het schrappen van de ruimte en interlinie: = decoratie, ontvangen. (twsocket (afzender). Receivestr);,,,,,, het einde van de procedure; een incident. Cmdlistenclick (afzender: TObject);,, var, de server: twsocket;,,,, de server: = twsocket. Het creëren van (zelf);,, servers, begint te doen,,, onsessionavailable:= onserversessIonavailable;,, ondataavailable:= onserverdataavailable;,,,, LineMode:= echt lineend:=&##; 13 10, adres: = "0.0.0.0";,, haven: = 113; ///////dit gebruiken we, de oorspronkelijke: = "TCP";,,,, luister; en tot slot, een einde te maken aan de,,,