【正文】
獲得本地計(jì)算機(jī)的名稱和 IP HostName = HostIP = = False = False 39。 表 1 套節(jié)字 API 主要接口 接口 解釋 SOCKET BIND LISTEN ACCEPT CONNET SEND RECV CLOSE 創(chuàng)建一個(gè)新的套接字 給服務(wù)器綁定一個(gè)傳輸層地址 將服務(wù)器設(shè)為被動(dòng)模式 接收客戶的一個(gè)請(qǐng)求 客戶向服務(wù)器發(fā)起連接 向一個(gè)連接的套接字發(fā)送數(shù)據(jù) 從一個(gè)連接的套接字接收數(shù)據(jù) 終止一個(gè)連接 服務(wù)器 s o cket ( ) b i n d ( ) l i s t en ( ) 阻塞,等待客戶數(shù)據(jù) 處理服務(wù)請(qǐng)求 s o cket ( ) co n n ec t ( ) wr i t e( ) 客戶機(jī) 請(qǐng)求數(shù)據(jù) 應(yīng)答數(shù)據(jù) 圖 2 面向連接套接口應(yīng)用程序時(shí)序圖 r ea d ( ) r ea d ( ) ac ce p t ( ) wr i t e( ) 建立連接 cl o s e( ) cl o s e( ) 四.程序設(shè)計(jì)及編程思路 服務(wù)器端: 窗體設(shè)計(jì): 2 文本框, txtServerPort 用來輸入打開 的端口號(hào), txtTCPChat 用來實(shí)現(xiàn)來自客戶端輸入的數(shù)據(jù); WinSock 控件,命名為 WinsockTCP。服務(wù)器程序既可以接收信息也能發(fā)送信息,還可以成為客戶。也就是說,一個(gè)從數(shù)據(jù)報(bào)套接字接收信息的進(jìn)程有可能發(fā)現(xiàn)信息重復(fù)了,或者和發(fā)出時(shí)的順序不同。如果不是,在接受新的連接之前先關(guān)閉此連接 If sckClosed Then End If 39。 vbCrLf Exit Sub err: MsgBox End Sub Private Sub TcpClient_Close()