Cred că de multe ori ați venit cu ideea de a crea propriul (corporativ) chat. Aceeași idee mi-a venit și am început să caut informații pe Internet ca de obicei, dar nici eu nu am găsit nimic bun. Tot așa nu descrie pe deplin cum se poate face.
Instalarea componentelor necesare
Din moment ce am făcut pe delphi7, nu au existat implicit componentele de care am nevoie. (ServerSocket1 .CustomSocket1).
Pentru aceasta, adăugați componentele Socket.
În meniu, accesați Componentă -> Instalare pachete ... -> Adăugați -> dclsockets70.bpl
Și specificați calea către pachetul cu componentele, acesta se află în directorul rădăcină în dosarul Delphi Bin. La mine a fost în:
C: # 92; Fișiere de programe # 92; Borland # 92; Delphi7 # 92; Bin # 92; dclsockets70.bpl
După o astfel de adăugare, ar trebui să vedeți aceste componente în fila Internet.
Plasarea de componente și scrierea de coduri
Pentru a crea un server, scriem la eveniment în butonul astfel:
Atenție, vă rog. Clientul poate trimite doar un mesaj, iar serverul la rândul său - pentru a primi. Pentru comunicații bidirecționale, activați Clientul și Serverul pe două programe la celălalt capăt al rețelei.
Pentru a citi mesajul, serverul așteaptă mesajul ... aici este
Pentru a trimite un mesaj, am scris în două proceduri. Aici sunt:
Asta e tot! Chatul Primitiv este gata pentru tine. Apoi, imaginația și mâinile tale îndemnate.