【導(dǎo)讀】TCP/IP的SOCKET提供的套接字的類型。套接字編程的一般方法。在此基礎(chǔ)要解決基于TCP/IP協(xié)議下的網(wǎng)絡(luò)通信問(wèn)題,并且能夠準(zhǔn)。確方便地在服務(wù)器和客戶端實(shí)時(shí)收發(fā)文件和互相通信。本文首先詳細(xì)介紹了套接字的理論。務(wù)請(qǐng)求，服務(wù)器接收到請(qǐng)求后，提供相應(yīng)的服務(wù)。然后再通過(guò)具體的應(yīng)用實(shí)例及其部分源。服務(wù)器均是用編程語(yǔ)言。

　　

【正文】 數(shù)，在該事件中，可以用 GetData 方法來(lái)接收數(shù)據(jù)。如果接受到 Close 事件，則用 Close 方法關(guān)閉連接 [2]。 圖形用戶界面如圖 5 所示。此程序有一個(gè)主窗口：測(cè)量現(xiàn)場(chǎng)窗口；兩個(gè)子窗口：數(shù)據(jù)采集與發(fā)送區(qū)窗口，數(shù)據(jù)接收區(qū)窗口。數(shù)據(jù)采集窗口的功能主要是進(jìn)行溫度數(shù)據(jù)實(shí)時(shí)采集，與遠(yuǎn)程遙校準(zhǔn)實(shí)驗(yàn)室的控制計(jì)算機(jī)進(jìn)行遠(yuǎn)程連接和溫度數(shù)據(jù)、溫度計(jì)類型和溫度計(jì)編號(hào)的實(shí)時(shí)傳輸。數(shù)據(jù)接收區(qū)窗口主要是接收來(lái)自遠(yuǎn)程遙校準(zhǔn)實(shí)驗(yàn)室的實(shí)時(shí)數(shù)據(jù)。 25 圖 客戶端程序圖形用戶界面 在主窗口中還設(shè)置了與遠(yuǎn)程遙校準(zhǔn)實(shí)驗(yàn)室控制計(jì)算機(jī) 連接狀態(tài)和網(wǎng)絡(luò)數(shù)據(jù)交換狀態(tài)的顯示功能。如果連通，則在人機(jī)交互界面的主窗口中顯示“連接成功”，否則顯示“連接失敗”。如果網(wǎng)絡(luò)數(shù)據(jù)發(fā)送成功，則在人機(jī)交互界面的主窗口中會(huì)顯示由遠(yuǎn)程遙校準(zhǔn)實(shí)驗(yàn)室傳來(lái)的信息“數(shù)據(jù)成功發(fā)送”，否則會(huì)收到“數(shù)據(jù)發(fā)送失敗”的信息，測(cè)量現(xiàn)場(chǎng)控制程序工作流程如圖 。 26 啟動(dòng)控制程序輸入溫度計(jì)類型及編號(hào)數(shù)據(jù)采集判斷數(shù)據(jù)是否采集成功輸入服務(wù)器名連接判斷是否連接成功發(fā)送數(shù)據(jù)判斷數(shù)據(jù)是否發(fā)送成功顯示：數(shù)據(jù)發(fā)送成功等待狀態(tài)接收數(shù)據(jù)判斷數(shù)據(jù)是否接收成功結(jié)束 圖 測(cè)量現(xiàn)場(chǎng)控制程序工作流程 實(shí)時(shí)數(shù)據(jù)傳輸幀格式 在實(shí)時(shí)數(shù)據(jù)傳輸過(guò)程中，控制計(jì)算機(jī)將通過(guò)網(wǎng)絡(luò)進(jìn)行實(shí)時(shí)數(shù)據(jù)信息的交換是一個(gè)非常重要的內(nèi)容，因此需 要定義數(shù)據(jù)傳輸協(xié)議，無(wú)論以何種通信協(xié)議來(lái)傳輸數(shù)據(jù)，都應(yīng)該有相應(yīng)的幀格式，因此制訂了如下數(shù)據(jù)傳輸幀格式。 遙校準(zhǔn)實(shí)驗(yàn)室溫度數(shù)據(jù)幀格式 每一數(shù)據(jù)幀由幀頭，類型、編號(hào)、數(shù)據(jù)區(qū)和驗(yàn)證碼組成，共 37 個(gè)字節(jié)。 D0D3為幀頭，用 1ACFFC1D 表示，占用 4 字節(jié)； D4， D12， D20， D28為溫度計(jì)的類型，各占 1 字節(jié)； 表 遙校準(zhǔn)實(shí)驗(yàn)室數(shù)據(jù)幀格式 D0D3 D4 D5 D6~D11 D12 D13 D14~D19 幀頭 類型 編號(hào) 數(shù)據(jù)區(qū) 類型 編號(hào) 數(shù)據(jù)區(qū) 4B 1B 1B 6B 1B 1B 6B 服務(wù)器端程序流程 客戶端程序流程 27 續(xù)表 D20 D21 D22~D27 D28 D29 D30~D35 D36 類型 編號(hào) 數(shù)據(jù)區(qū) 類型 編號(hào) 數(shù)據(jù)區(qū) 驗(yàn)證碼 1B 1B 6B 1B 1B 6B 1B D4為標(biāo)準(zhǔn)鉑電阻溫度計(jì)，用 P 表示； D12， D20， D28為被校溫度計(jì)： “ E”：表示 E 型熱電偶溫度計(jì)； “ K”：表示 K 型熱電偶溫度計(jì)； “ T”：表示 T 型熱電偶溫度計(jì)； “ A”：表示 10kΩ熱敏電阻溫度計(jì)； “ B”：表示 5kΩ熱敏電阻溫度計(jì)； “ C”：表示 ； “ D”： 表示鉑熱電阻溫度計(jì)。 D6~D11， D14~D19， D22~D27， D30~D35為溫度數(shù)據(jù)，連同正負(fù)號(hào)和小數(shù)點(diǎn)各占6 個(gè)字節(jié)。 表 遙校準(zhǔn)實(shí)驗(yàn)室溫度數(shù)據(jù)格式 正負(fù)號(hào) 數(shù) 據(jù) 小數(shù)點(diǎn) 數(shù) 據(jù) +/ 2B 1B 2B 測(cè)量現(xiàn)場(chǎng)溫度數(shù)據(jù)幀格式 每一數(shù)據(jù)幀由幀頭，編號(hào)，數(shù)據(jù)區(qū)，文字區(qū)和驗(yàn)證碼組成，共 33 個(gè)字節(jié)。 D0D3為幀頭，用 1ACFFC1D 表示，占用 4 字節(jié)。 D4， D11， D18， D25為校準(zhǔn)后溫度計(jì)的類型，各占一個(gè)字節(jié)。 表 測(cè)量現(xiàn)場(chǎng)數(shù)據(jù)幀格式 D0D3 D4 D5~ D8 D9~ D10 D11 D12~D15 D16~D17 幀頭 編號(hào) 數(shù)據(jù)區(qū) 文字區(qū) 編號(hào) 數(shù)據(jù)區(qū) 文字區(qū) 4B 1B 4B 2B 1B 4B 2B 續(xù)表 D18 D19~D22 D23~D24 D25 D26~D29 D30~D31 D32 編號(hào) 數(shù)據(jù)區(qū) 文字區(qū) 編號(hào) 數(shù)據(jù)區(qū) 文字區(qū) 驗(yàn)證碼 1B 4B 2B 1B 4B 2B 1B D5~ D8， D12~D15， D19~D22， D26~D29為校準(zhǔn)后的溫度差值，連同小數(shù)點(diǎn)各占 28 4 個(gè)字節(jié)。 表 測(cè)量現(xiàn)場(chǎng)溫度數(shù)據(jù)格式 數(shù) 據(jù) 小數(shù)點(diǎn) 數(shù) 據(jù) 1B 1B 2B D9~ D10， D16~D17， D23~D24， D30~D31 為文字區(qū)，在各個(gè)文字區(qū)內(nèi)存放一個(gè)漢字“是”或“否”，各占 2 個(gè)字節(jié)。 以下給出了該試驗(yàn)中網(wǎng)絡(luò)進(jìn)程通信的源代碼： Dim flag As Boolean Private Sub Command2_Click() = = 1001 //定義對(duì)端地址和端口號(hào) If = 斷開(kāi)連接 Then End If If = 連接 Then = False End If End Sub Private Sub Command3_Click() End = False End Sub Private Sub Command4_Click() End Sub Private Sub Command5_Click() //發(fā)送數(shù)據(jù) 29 End Sub Private Sub Command7_Click() //發(fā)送數(shù)據(jù) End Sub Private Sub Command8_Click() Text1(0).Text Text1(1).Text Text1(2).Text Text2(0).Text Text2(1).Text Text2(2).Text Text3(0).Text Text3(1).Text Text3(2).Text Text4(0).Text Text4(1).Text Text4(2).Text End Sub Private Sub Form_Load() Dim a As Integer For a = 0 To 2 Text1(a).Text = Text2(a).Text = Text3(a).Text = Text4(a).Text = Text7(a).Text = Text8(a).Text = Text9(a).Text = Text10(a).Text = 30 Next a = 39。 = 1001 39。 = yaojiaozhun //定義對(duì)方端口號(hào)和地址 End Sub Private Sub Text6_Change() = End Sub Private Sub Winsockclient_Close() //關(guān)閉 socket 客戶端 End End Sub Private Sub Winsockclient_Connect() = True = 連接 End Sub Private Sub Winsockclient_DataArrival(ByVal bytesTotal As Long) Dim i As String I //收到數(shù)據(jù)時(shí)， Winsock1 把數(shù)據(jù)寫(xiě)入緩存 I = True = i End Sub Private Sub Winsockclient_Error = True = 連接 = True = True = True End Sub Private Sub Command1_Click() 31 End Sub Private Sub Command2_Click() End Sub Private Sub Command4_Click() End End Sub Private Sub Command5_Click() = 1001 End Sub Private Sub Form_Load() Dim a As Integer For a = 0 To 2 Text1(a).Text = //首先將文本框清空 Text2(a).Text = Text3(a).Text = Text4(a).Text = Text7(a).Text = Text8(a).Text = Text9(a).Text = Text10(a).Text = Next a End Sub Private Sub Label9_Click() End Sub Private Sub Winsock1_DataArrival(ByVal bytesTotal As Long) End Sub 32 Private Sub Winsock1_Error(ByVal Number As Integer, Description As String, ByVal Scode As Long, ByVal Source As String, ByVal HelpFile As String, ByVal HelpContext As Long, CancelDisplay As Boolean) End Sub Private Sub Winsocka_ConnectionRequest(ByVal requestID As Long) = True If sckClosed Then requestID End Sub Private Sub Winsocka_DataArrival(ByVal bytesTotal As Long) Dim t As String Dim s As String t //獲取數(shù)據(jù)觸發(fā)以下事件 If s = Mid(t, 1, 1) = F Then Text1(0).Text = Mid(t, 2, 1) Text1(1).Text = Mid(t, 3, 1) Text1(2).Text = Mid(t, 4, 6) Text2(0).Text = Mid(t, 10, 1) Text2(1).Text = Mid(t, 11, 1) Text2(2).Text = Mid(t, 12, 6) Text3(0).Text = Mid(t, 18, 1) Text3(1).Text = Mid(t, 19, 1) Text3(2).Text = Mid(t, 20, 6) Text4(0).Text = Mid(t, 26, 1) Text4(1).Text = Mid(t, 27, 1) Text4(2).Text = Mid(t, 28, 6) Else = True = t End If 33 End Sub Private Sub Winsockb_DataArrival(ByVal bytesTotal As Long) Dim k As String k = True = k End Sub 34 35 結(jié) 論 論文對(duì)基于 TCP/IP 上的 SOCKET 編程接口技術(shù) 進(jìn)行了 研究與探索。綜合論文的工作，可以得出以下結(jié)論： 1. 隨著計(jì)算機(jī)網(wǎng)絡(luò)技術(shù)的發(fā)展，原來(lái)一些物理接口已經(jīng)不能滿足人們對(duì)通信的要求， TCP/IP 通信協(xié)議解決了很多難題，基于 TCP/IP 上的套接字應(yīng)用程序接口技術(shù)的引入，實(shí)現(xiàn)了計(jì)算機(jī)與計(jì)算機(jī)之間以軟件的方式來(lái)通信。 2. 通過(guò)學(xué)習(xí) TCP/IP 網(wǎng)絡(luò)模型和套接字相關(guān)知識(shí)，在正式學(xué)習(xí)套接字技術(shù)以前，建立了網(wǎng)間進(jìn)程通信、端口和端口號(hào)通信、 TCP 和 UDP 通信協(xié)議等概念。套接字技術(shù)本身就是為進(jìn)程通信服務(wù)的，不同計(jì)算機(jī) 之間的進(jìn)程通信就是網(wǎng)間進(jìn)程通信。計(jì)算機(jī)根據(jù)端口和端口號(hào)來(lái)區(qū)分多個(gè)不同進(jìn)程，使不同的進(jìn)程間協(xié)調(diào)一致。套接字在通信以前一定要選好通信協(xié)議，從而定義好數(shù)據(jù)傳輸機(jī)制。 3. 在 TCP/IP 網(wǎng)絡(luò)應(yīng)用中，通信的兩個(gè)進(jìn)程間相互作用的主要模式是客戶 /服務(wù)器模式（ Client/Server model），即客戶向服務(wù)器發(fā)出服務(wù)請(qǐng)求，服務(wù)器接收到請(qǐng)求后，提供相應(yīng)的服務(wù)。這也是 SOCKET 使用網(wǎng)絡(luò)編程中最常見(jiàn)的模式，服務(wù)程序等待客戶的連接信息，一旦連接上之后，就可以按設(shè)計(jì)的數(shù)據(jù)交換方法和格式進(jìn)行數(shù)據(jù)傳輸?？蛻舳嗽谛枰臅r(shí)刻發(fā)出向 服務(wù)端的連接請(qǐng)求。 VB 對(duì)套接字技術(shù)編程和應(yīng)用，把 TCP 和 UDP 協(xié)議、客戶 /服務(wù)器模式、套接字技術(shù)關(guān)聯(lián)起來(lái)，建立了完整的套接字通信結(jié)構(gòu)，更好的理解了套接字在網(wǎng)絡(luò)進(jìn)程通信方面的應(yīng)用。 36 37 參 考 文 獻(xiàn) [1] 冷向君 .Visual Basic 中文版入門(mén)與提高