Munka tclientsocket és tserversocket példáját mapwindow GIS blog Delphi-programozó

Néhány nappal ezelőtt, tervezetében MapWindows GIS Delphi tettem hozzá a hálózat támogatja. Azaz, hoztam létre egy szerver és egy kliens. Az elképzelés az, hogy az alkalmazást futtató szerver, a felhasználó elindítja az ügyfél és a felhasználó beír egy lekérdezést: Moszkva Tverskaya 6. Ezután a szerver feldolgozza a kérést kap a keresési eredményeket Yandex.Maps és elküldi a képet az ügyfélnek, akkor az ügyfél már TMap alkatrész kijelzése ez a kártya, amely megfelel a felhasználó kérésére. Ennek eredményeként a felhasználó átméretezéshez, kivéve, és így tovább.

Ezért ebben a cikkben szeretnék mondani, hogyan hajtják végre a kliens és a szerver. Ez tettem segítségével TClientSocket TServerSocket, és ebben a cikkben tartjuk részletesen az eljárást, azt használja otthon, a projekt.

Először is, nézzük meg, hogy ezek a komponensek lehet telepíteni magát a IDE. Ha ön használ IDE Delphi 7, ez gyárilag tartalmazza, ezeket az összetevőket, de sajnos még nem állapították meg, de ez nem jelent problémát. Elég megnyitni Delphi és telepíteni.

Ehhez hajtsa végre a parancsot Component-Csomagok telepítése ... és a megjelenő ablakban, akkor kattintson a Hozzáadás gombra. Ezt követően meg kell adni az elérési utat dclsockets70.bpl fájlt, ami általában alapértelmezésben található BIN mappába. Ezután nyomja meg az OK gombot. Minden szükséges komponenst megjelenni az Internet fülre (TClientSocket és TServerSocket).

A projekt MapWindow GIS. Elkezdtem a munkát, minimális szerver fejlesztése. Kezdeni, meg TServerSocket komponens formájában. És a Start gomb megnyomásával szerver határozza meg a kezdeti beállításokat inicializálása:

Elindítani a szervert a kocsijával, megkérdeztem, amint egy szabad port (amely nem foglalja el más alkalmazások) és aktiválja.

Elvileg minden nekem ez is elég volt, hogy a szerver volt, és tudtam kezelni az ügyfél kéri, hogy küldjön.

Számomra egy listát az ügyfelek, hogy kapcsolódni a szerverhez, és tovább dolgozni velük, találtam TCheckListBox komponens formában és esemény OnclientConnect TServerSocket alkatrész írta be az alábbi kódot: