Думаю вам не раз приходила ідея створити свій (корпоративний) чат. Така ж ідея прийшла і мені, і я як завжди почав шукати інформацію в мережі інтернет, але таки ні чого хорошого і не знайшов. Все якось не повно описує як це можна зробити.
Установка необхідних компонентів
Так як я робив на delphi7, там не було за замовчуванням тих компонентів, які мені потрібні. (ServerSocket1. ClientSocket1).
Для цього потрібно додати компоненти сокет.
В меню заходимо Component -> Install Packages ... -> Add -> dclsockets70.bpl
І вказуємо шлях до пакету з компонентами, він знаходитися в кореневому папці Delphi в паку Bin. У мене він перебував в:
C: # 92; Program Files # 92; Borland # 92; Delphi7 # 92; Bin # 92; dclsockets70.bpl
Після такого додавання у вас в вкладці Internet повинні з'явитися дані компоненти.
Розміщення компонентів і написання коду
Для створення Сервера пишемо на подію в кнопці ось таку річ:
Увага. Клієнт може тільки відправляти повідомлення, а Сервер в свою чергу - приймати. Для двостороннього спілкування включите Клієнта і Сервера на двох програмах різного кінця мережі.
Щоб прочитати повідомлення, у сервера є очікування прийому повідомлення ... ось вона
Для відправки повідомлення я написав в двох процедурах. Ось вони:
От і все! Примітивний Чат у вас готовий. Далі ваша фантазія і умілі руки.