Мрежово програмиране на Delphi
КОМПЮТЪРНИ КУРСОВЕ "ТЪРСЕНЕ"
Лесен обмен на данни (IdTCPServer, IdTCPClient)
И така, първо за сървърния компонент IdTCPServer (отметка Indy сървъри). За да използвате възможностите на сървъра, този компонент трябва да бъде поставен във формуляра (компонентът не може да се покаже). Когато конфигурирате компонент, полезни са следните свойства:
Сега нека разгледаме как да конфигурираме клиента (IdTCPClient - раздел Инди клиенти), за да може да комуникира с нашия сървър. За да използвате TCP клиентски компонент, просто го поставете във формуляра (компонентът също не се показва).
След това поне трябва да конфигурирате следните свойства (останалите са посочени при необходимост в примерите по-долу):
Лесен обмен на данни
За да започнете с компонентите, описани в предишния раздел IdTCPServer и IdTCPClient помислете за създаване на просто приложение клиент-сървър, чийто клиент и сървърни части изпълняват следните функции.
Внедряването на сървърни и клиентски приложения в нашия случай е изключително просто. Извиква се проектът за сървърно приложение SimpleServer. Външният вид на сървърния формуляр (докато приложението работи) е показан на фиг. 2.
Фигура: 2. Външен вид на обикновен сървър
Листинг 1. Проста реализация на сървъра
Когато отговаря на клиента, сървърът само повтаря реда, получен от него, с добавяне на текст 'Взеха:' до началото на реда.
Анализирам Листинг 1, можете да видите, че дори и в най-простия разглеждан сървър е необходимо да се приложи синхронизация при актуализиране на външния вид на формуляра с помощта на критичната секция (трябва допълнително да добавите името на модула SyncObjs към раздела за употреби).
Сега нека разгледаме изпълнението на клиентската страна (проект SimpleClient). Външният вид на клиентското приложение е показан на фиг. 2.
Цялата работа на клиентското приложение се извършва при натискане на бутона Дръжка. Текстът на съответния манипулатор е даден в Листинг 2.
Листинг 2. Внедряване на прост клиент
За опростяване, изпълнението на клиентското приложение не се справя с изключения, чието генериране е възможно, например, ако компютърът, на който се изпълнява сървърното приложение, е посочен неправилно. В по-сложни примери, които ще научите по-късно, се прилага обработката на тези изключения.
Това е всичко, сега можете да стартирате сървъра и клиентите (на произволен брой компютри) и да наблюдавате резултатите от тяхната работа. Само не забравяйте да стартирате сървъра, преди да го осъществите с клиентската програма.
Изходният код е тук. Delphi XE.
Проследяване на компютър през мрежата (IdTCPServer, IdTCPClient)
Сега нека разгледаме по-интересен пример за използване на мрежови компоненти IdTCPServer и IdTCPCLient, което може да бъде полезно за хора, свързани с администрирането на мрежови компютри.