Преди няколко дни в своя проект MapWindows ГИС в Делфи аз добавена поддръжка на мрежата. Това означава, че съм създал един сървър и един клиент. Идеята е, че работи на сървъра на приложения, потребителят започва на клиента и потребителя въведе заявка: София Твер 6. Сървърът след това обработва заявката, получава резултати от търсенето от Yandex.Maps и изпраща изображението на клиента, след което клиентът вече е в ТМАР съставна част се показва тази карта, която съответства на заявка на потребителя. В резултат на това, потребителят може да я оразмерите, спаси и така нататък.

Ето защо, в тази статия искам да ви кажа как се изпълнява на клиента и сървъра. Това, което направих с помощта на TClientSocket TServerSocket и, в тази статия ние считаме подробно методите, които използвам, като у дома си, в своя проект.

Първо, нека да разгледаме как тези компоненти могат да бъдат себе си, монтирани в IDE. Ако използвате IDE Delphi 7, той съдържа по подразбиране, тези компоненти са налице, но те, за съжаление, не са установени, но това не е проблем. Достатъчно е да се отвори Delphi и инсталирате.

За да направите това, изпълнете командата Компонент-инсталиране на пакети ... и в прозореца, който се появява, трябва да кликнете върху бутона Добавяне. След това, трябва да укажете пътя до dclsockets70.bpl файл, който обикновено е по подразбиране, се намира в папката BIN. След това натиснете бутона OK. Всички компоненти, които трябва да се показват в раздела Интернет (TClientSocket и TServerSocket).

ГИС на MapWindow проект. Започнах работа, с минимално развитие сървър. За да започнете, задайте TServerSocket компонент във формуляра. И чрез натискане на бутона Start сървъра зададете първоначалните настройки, за да го инициализира:

За да нулирате сървъра с колата си, аз попитах, веднага след като свободен порт (което не е заето от други приложения) и го активирате.

По принцип, както и всички, за мен това беше достатъчно, че сървърът е и аз бях в състояние да се справи с исканията на клиентите, че те изпращат.

За мен има списък от клиенти, които се свързват към сървъра и по-нататъшната работа с тях, открих TCheckListBox компонент във форма и проява OnclientConnect TServerSocket компонент, пише следния код: