UDP協(xié)議也稱為用戶數(shù)據(jù)報(bào)文協(xié)議,是一個(gè)無連接協(xié)議。何謂無連接協(xié)議?就是說利用此協(xié)議連接時(shí),不必象TCP協(xié)議那樣:需要服務(wù)器端偵聽,客戶機(jī)端請求連接,服務(wù)器端建立連接后雙方才能通信。另外,UDP應(yīng)用程序可以是客戶機(jī),也可以是服務(wù)器程序,而不必向TCP應(yīng)用程序那樣必須分別建立客戶機(jī)程序和服務(wù)器程序。
用UDP協(xié)議來傳輸信息較TCP協(xié)議來說簡單的多,它無須偵聽(LISTEN),也無須請求連接(CONNECT),就象我們平時(shí)發(fā)信一樣,只要寫好地址及收信人姓名并發(fā)送出去即可。我們可以借此來編寫一個(gè)局域網(wǎng)中的信息傳送程序,下面來簡單介紹以下程序中想實(shí)現(xiàn)的功能及其基本思想:
首先,我們一定想讓程序的圖標(biāo)顯示在system tray中而不顯示在任務(wù)欄中吧!這要是自己編程實(shí)現(xiàn)可不是太容易,幸好VB光盤中在common/tools/vb/unsupport/systemTray 中有一個(gè)現(xiàn)成的程序,我們只要把它編譯成systray.ocx 控件,然后在編寫自己的程序時(shí)添加此控件即可。其使用方法十分簡單,它已經(jīng)定義好了鼠標(biāo)單擊、雙擊等事件,你只需編寫相應(yīng)的鼠標(biāo)事件即可,這里不再多說。
程序的關(guān)鍵是:UDP協(xié)議在通訊時(shí)要知道對方的IP和Port,這要如何實(shí)現(xiàn)呢?最簡單的方法是建立一個(gè)配置文件,里面放置了局域網(wǎng)上每臺計(jì)算機(jī)的名字、IP和Port,在程序初始化時(shí)讀出所有信息,在程序中只要知道向誰通信,讀出其對應(yīng)的IP和Port即可。
我們知道了每臺計(jì)算機(jī)的IP和Port,但我們怎樣才能知道其它計(jì)算機(jī)是否在線呢,否則發(fā)出信息別人收不到怎么辦?我們可以把此程序放在啟動(dòng)菜單中,讓其一開機(jī)就自動(dòng)啟動(dòng),并最小化,放于窗口右下角的system tray中。在程序剛開始運(yùn)行時(shí),它會自動(dòng)向它從配置文件中所知道的所有IP發(fā)一條信息:“我來了!”,如果有計(jì)算機(jī)在線,它會自動(dòng)返回一條信息:“歡迎!”,如此則兩機(jī)通信成功,它們會分別把對方的名字加入到自己的可通信人名單中去;如果有計(jì)算機(jī)關(guān)機(jī),程序在退出之前會自動(dòng)向所有人告別:“再見!”,接收到此信息的計(jì)算機(jī)會自動(dòng)把發(fā)送信息的計(jì)算機(jī)的名稱從自己的可通信人名單中去除。這樣,如果某人不在線,你將無法發(fā)送信息給它;如果除了你以外,其他人都沒有開機(jī),那你的可發(fā)送人名單中將沒有任何人。而其它人只要一上線,會自動(dòng)去你那里“登記”,其他人只要一離線,會自動(dòng)去你那里“告別”,你可以據(jù)此知道他人是否正在使用計(jì)算機(jī),你甚至可以以此程序來統(tǒng)計(jì)他人的每天上機(jī)時(shí)間,不錯(cuò)吧!
好了,一個(gè)局域網(wǎng)通信的程序的基本模型已經(jīng)有了,并不復(fù)雜吧!大家趕快動(dòng)手吧,來享受用自己的程序來聊天的樂趣!
不過,要想編寫一個(gè)出色的程序,不光是要有良好的創(chuàng)意與功能,更重要的是程序的兼容性與容錯(cuò)性。本例中,對錯(cuò)誤處理沒有做詳細(xì)的解釋,關(guān)于這一點(diǎn),大家可以在Winsock控件的error事件及其幫助中找到滿意的答案。
另外,還可以從以下幾方面來考慮功能的擴(kuò)充:如傳送圖形、聲音等多媒體信息、局域網(wǎng)互傳文件(主動(dòng)傳送)、歷史通話記錄、系統(tǒng)日志、個(gè)人上機(jī)時(shí)間統(tǒng)計(jì)等等,而所有的這一切僅僅取決于你的想象力與你的聰明才智!下面,筆者以傳送文件為例來講一講其功能實(shí)現(xiàn)的代碼。
你可以把本地的文件(圖形、聲音等可以先存成臨時(shí)文件)以二進(jìn)制文件的方式來打開它,將其內(nèi)容全部讀入一個(gè)byte類型的數(shù)組中,本地機(jī)代碼如下:
dim myfile () as byte
dim position as long
open "filename" for binary as #1
position=0
do while not eof(1)
position=positon+1
redim preserve myfile (1 to position)
get #1,,myfile(position)
loop
close #1
再向遠(yuǎn)程機(jī)傳送這個(gè)字節(jié)數(shù)組
sckserver.SendData myfile
遠(yuǎn)程機(jī)收到這個(gè)數(shù)組之后,再以二進(jìn)制文件的方式打開一個(gè)新目標(biāo)文件,將數(shù)組內(nèi)容寫入這個(gè)新打開的文件,如果是bmp圖片就將其放入picture圖片框中,如果是wav文件,就播放。這樣,局域網(wǎng)中的兩個(gè)人就可以通過語言、圖片、文字來交流了。 遠(yuǎn)程機(jī)代碼如下:
Private sub sckconnect_DataArrival(byval bytestotal as long)
dim receivefile(1 to bytestotal)as byte
sckconnect.GetData receivefile,vbarray+vbbyte
'告訴Winsock控件收到的是字節(jié)數(shù)組類型的數(shù)據(jù)
open "c:/temp/文件名" for binary as #1
for I=1 to bytestotal
put #1,,remotearray(I)
next I
clost #1
end sub
新聞熱點(diǎn)
疑難解答
圖片精選