Hozzon létre egy egyszerű chat
Ebben a cikkben lesz szó, hogyan kell írni egy egyszerű beszélgetés struktúrák Head-to-Head, azaz a kapcsolat kliens-szerver egyetlen kommunikációs csatorna.
Először hozzon létre egy szervert. Hozzon létre egy új projektet, Caption forma változás „kiszolgáló”. Hozzátéve, hogy alkotnak TSpinEdit (található „Minták” fülre, akkor jobb, ha valahol a tetején lesz egy portot mutat az ügyfél a kapcsolatot.), TServerSocket (az „Internet” lapot, ha ez az összetevő is látni kell - Component kiválasztásához -> Install -packages, mi nyomja meg a Hozzáadás gombra, és válassza ki a párbeszéd a bin fájlt dclsockets70.bpl könyvtárat, majd kattintson az OK gombra. Components TClientSocket TServerSocket és meg kell jelennie az „Internet” fül), TMemo (ott jelenik meg az üzenet 2 TButton'a (egy fog létrehozni szerver, és a többi -. megtörni a kötés) és tSzerkesztés üzeneteket küldeni Set ServerType a StNonBlocking a TServerSocket „Csakúgy.
A képaláírás TButton'u először az „Activate szolg.”. Írásban ezt a gombot felvezető OnClick:
Onclick kezelő a gomb, könnyezés Csatlakozás:
Most levelet kezelőt TEdit'a onkeypress
Üzeneteket küldeni készült, most kell szervezni a saját vétel. Ehhez levelet felvezető OnClientRead a TServerSocket'a.
Most hozzon létre egy választ az ügyféloldali leállás
Ezzel befejeződött a létrehozása a szerver. Mentse el a projektet, és hozzon létre egy újat.
Most levelet kezelőjét onkeypress Edit2:
Most intézkedik a recepción üzenetét. Ehhez levelet kezelőt ClientSocket-és OnRead: