În acest articol voi descrie modul de scriere a unei structuri simple de conversație cap-la-cap, adică o conexiune client-server cu un singur canal de comunicare.
Mai întâi, creați un server. Creați un proiect nou, modificați formularul de subtitrări la "Server". Adăugarea pentru a forma TSpinEdit (localizat în fila „Probele“, este mai bine să plaseze undeva în partea de sus va fi un port îndreptat spre client al unei conexiuni.), TServerSocket (pe tab-ul „Internet“ în cazul în care această componentă acolo pentru a fi văzut - selectați Component -> Instalare -packages, vom apăsa pe butonul Add și selectați în dialogul în fișierul bin dclsockets70.bpl director, și faceți clic pe OK. Componente TClientSocket TServerSocket și ar trebui să apară în fila „Internet“), TMemo (va apărea mesajul 2 TButton'a (unul va crea server, iar celălalt -. pentru a rupe legătura) și tEditează pentru a trimite mesaje Set ServerType în StNonBlocking în TServerSocket „De asemenea.
Schimbați prima tastă TButton la "Activare serviciu". Noi scriem acest buton pe handler-ul OnClick:
Handlerul OnClick pentru butonul care întrerupe conexiunea:
Acum scriem handlerul pentru TEdit'a OnKeyPress
Trimiterea mesajelor a făcut, acum trebuie să organizați recepția lor. Pentru aceasta, scriem handle-ul OnClientRead pentru TServerSocket.
Acum creați o reacție la deconectarea clientului
Aceasta incheie crearea serverului. Salvați proiectul și creați unul nou.
Acum scriem pe Handler OnKeyPress pentru Edit2:
Acum organizăm recepția mesajelor. Pentru a face acest lucru, scriem un handler pentru ClientSocket OnRead: