Visual Basic Professional a Enterprise (take MS Office Developer Edition) obsahuje ovladaci prvek Winsock. Pomoci tohoto prvku muzete vyuzivat sluzeb protokolu TCP a UDP. V nasledujicich tipu si popiseme vytvoreni jednoduche aplikace klient/server vyuzivajici protokol TCP.

Klient zasila text na server, zobrazuje informace zaslane serverem.

Server prijima texty od klienta a potvrzuje prevzeti textu.

Strucny prehled ovladaciho prvku Winsock

V zavorkach je uvedeno kde se vlastnost, metoda nebo udalost pouziva. S server, K klient

Vlastnosti (Properties)

• Protocol (S, K) pouzity protokol
• LocalPort (S) cislo portu, kde server posloucha
• RemotePort (K) cislo portu na serveru
• RemoteHost (K) jmeno server, popr. jeho IP adresa
• State (S, K) stav spojeni

Metody (Methods)

• Listen (S) server zacne poslouchat
• Connect (K) zadost o pripojeni
• Accept (S) povoli spojeni
• SendData (S, K) zaslani dat opacne strane
• GetData (S, K) prijem dat
• Close (S, K) ukonceni spojeni

Udalosti (Events)

• ConnectionRequest (S) prisla zadost o pripojeni od klienta, sem patri metoda Accept
• DataArrival (S, K) prisla data z opacne strany, sem patri metoda GetData
• Close (S, K) opacna strana zavolala metodu Close

Stazeni: vb_tcp.zip (3,7 kB) kompletni zdrojove soubory pro server i klienta. Komentovano.
Testovano a odladeno: Visual Basic 6.0 Enterprise Edition

Stepan Bechynsky, http://www.builder.cz/stepan