台灣最大程式設計社群網站
線上人數
1517
 
會員總數:245398
討論主題:189185
歡迎您免費加入會員
討論區列表 >> 專欄文章 >> Winsock傳檔
[]  
[我要回覆]
回應主題 加入我的關注話題 檢舉此篇討論 將提問者加入個人黑名單
Winsock傳檔
價值 : 0 QP  點閱數:873 回應數:0

樓主

站務人員 站長
門外漢
0 1580
542 9
發送站內信

捐贈 VP 給 站務人員
小桶子轉載自大陸文章
  對於局域網用戶中的編程愛好者來說,如果能自己編一個局域網通信程式,那?這一切將是多?美妙!可是,如果要從頭開始完全由自己來編寫一段用於通信的程式,必須對相關的網路協定及其他的一些較底層的技術有較深入的瞭解,這可不是一件容易的事。而現在有了Winsock控制項,一切就不同了,它已經替你封裝了所有煩瑣的技術細節,並提供了訪問TCP和UDP網路服務的方便途徑。你只需通過設置控制項的屬性並調用其方法就可輕易連接到一台遠端電腦中,並且還可以雙向交換資料,而這一切都不需你瞭解TCP的細節或調用低級的Winsock APIs。

  Winsock控制項可以供Microsoft Acess、Visual Basic,Visual C++或Visual Foxpro的開發人員使用。本文以Visual Basic 6企業版?開發環境來向大家介紹一下Winsock控制項的初步應用。

  Winsock控制項可以使用兩種協定:TCP協定和UDP協定,下面來分別介紹。

  TCP協定即資料傳輸協定,它允許創建和維護與遠端電腦的連接,使其彼此可以進行資料傳輸。利用TCP協定通訊必須分別建立客戶應用程式和伺服器應用程式。

  在創建客戶應用程式時,必須知道伺服器電腦名或其IP位址(存於RemoteHost屬性)、及伺服器電腦進行偵聽的埠(存於RemotePort屬性),然後調用Connect方法。

  創建伺服器應用程式時,就應相應設置一個偵聽埠(LocalPort屬性)並調用listen方法。當客戶機需要連接時(connect),就會發生ConnectionRequest事件。?了完成連接,你可以在ConnectionRequest事件中調用Accept方法。建立連接後,任何一方電腦都可以發送、接收對方資料。如果你要發送資料,需調用SendData方法。當接收到資料時,會發生DataArrival事件,調用DataArrival事件中的GetData方法就可以獲得對方傳送的資料。

  說了這?多,大家可能還是不太瞭解,讓我用程式來詳細說明。

  如果只有兩台電腦,那十分容易。假設甲機?客戶機,乙機?伺服器,且其IP?192.192.192.1,接收埠?1200(任意選一個未被使用的埠即可)。首先在甲機用戶端程式中加入一個Winsock控制項,起名?sckconnect,並設置其屬性:RemoteHost=“192.192.192.1”,(即甲機IP地址), RemotePort=1200(即甲機偵聽埠);再在乙機伺服器程式中假如一個名?sckserver(0)的Winsock控制項,其LocalPort=1200,

  在乙機伺服器程式中Form_Load()加入

  sckserver(0).bind sckserver(0).LocalPort '與本地埠綁定

  sckserver(0).listern ' 偵聽

  如果要傳輸資料,兩機必須先建立連接。建立連接的程式如下:

  甲機客戶機要先請求連接

  sckconnect.connect sckconnect.RemoteHost, sckconnect.RemotePort

  此句執行時會觸發伺服器程式中的ConnectRequest事件,在此過程中決定是否建立連接,其代碼如下:

  Private sub sckserver_connectionrequest(index as Integer,Byval requestid as long)

  if sckserver.count=1 then

  load sckserver(1)

  sckserver(1).accept requestId

  end if

  end sub

  連接建立好以後,甲機或乙機都可以應用SendData方法來傳送資料。例如,如果是甲機要傳送一個叫string的字串,只需在代碼中加入:

  sckconnect.SendData string

  甲機傳送資料後,會觸發乙機的DataArrival事件,在其過程中用GetData方法可以收到傳送的資料:

  Private sub sckserver_DataArrival(Index as integer,Byval BytesTotal as long)

  dim sdata as string

  sckserver(1).GetData sdata,vbstring

  end sub

  最後別忘了在關閉程式前要先關閉Winsock控制項

  privat sub form_unload(cancel as integer)

  if sckconnect.state <>sckclosed then

  sckconnect.close

  end if

  end sub


  這只是最簡單的情況,如果有多台電腦,那就稍微複雜一些,用戶端程式可以不做改動,而伺服器端程式需要略做改動:

  Private sub sckserver_connectrequest(Index as Integer,Byval requestid as long)

  dim sip as string

  dim I as integer

  sip=sckserver(0).RemoteHostIP '獲得登錄者的IP地址

  I=1

  Do while I<=sckserver.ubound '檢查是否已經有該位址的記錄

  If sckserver(I).RemoteHostIP=sip then '如有,不必載入新的控制項

  Sckserver(I).Accept requestid

  Exit sub

  End if

  I=I+1

  Loop

  Load sckserver(I) '否則,載入新的控制項

  Scksrver(I).accept requestID

  End sub

  注意到:以上的資訊交談實際上都發生在客戶機與伺服器之間,如果要做成聊天室那樣,每個人的話都可以被別人“聽到”,那就要在伺服器端的DataArrival事件中,把接收到的客戶機傳來的資料,轉發給所有客戶機即可。

  其迴圈轉發資訊的代碼如下:

  For I=1 to sckserver.count

  if sckserver(I).state<>sckclosed then

  sckserver(I).SendData sdata

  end if

  next I


  怎?樣,這樣我們就作好了自己的通信軟體!


  不過,不知大家注意到沒有,上述程式都需要有一台電腦做?伺服器,但如果我們的局域網中沒有哪台電腦是可以常開的,也就是說,如果伺服器端程式沒有運行的話,其他用戶端程式也沒有辦法通信。而這種情況卻可能是經常出現的!至少,我所用的局域網那就是這樣的。難道這樣我們就無法享受局域網通信的樂趣了嗎?

  不要急,記得嗎,我們的Winsock控制項還有另一個主角:UDP協定。

  UDP協定也稱?用戶資料報文協定,是一個無連接協定。何謂無連接協定?就是說利用此協定連接時,不必象TCP協定那樣:需要伺服器端偵聽,客戶機端請求連接,伺服器端建立連接後雙方才能通信。另外,UDP應用程式可以是客戶機,也可以是伺服器程式,而不必向TCP應用程式那樣必須分別建立客戶機程式和伺服器程式。

  下面,來簡述一下UDP協定通信的過程:UDP協定中,?了在甲乙兩機中傳輸資料,必須先分別設置兩機的LocalPort屬性;再將甲機的RemoteHost屬性設置?乙機的IP位址,RemotePort屬性設置?乙機的LocalPort屬性值,此時甲機調用SendData方法就可以傳送資料了,乙機同樣使用DataArrival事件中的GetData方法來獲取甲機發送給乙機的資訊。如想乙機向甲機傳送資料,只需仿照上面的過程設置即可。

  用UDP協定來傳輸資訊較TCP協定來說簡單的多,它無須偵聽(LISTEN),也無須請求連接(CONNECT),就象我們平時發信一樣,只要寫好地址及收信人姓名並發送出去即可。我們可以借此來編寫一個局域網中的資訊傳送程式,下面來簡單介紹以下程式中想實現的功能及其基本思想:

  首先,我們一定想讓程式的圖示顯示在system tray中而不顯示在任務欄中吧!這要是自己編程實現可不是太容易,幸好VB光碟中在common\tools\vb\unsupport\systemTray 中有一個現成的程式,我們只要把它編譯成systray.ocx 控制項,然後在編寫自己的程式時添加此控制項即可。其使用方法十分簡單,它已經定義好了滑鼠單擊、雙擊等事件,你只需編寫相應的滑鼠事件即可,這堣ㄕA多說。

  程式的關鍵是:UDP協定在通訊時要知道對方的IP和Port,這要如何實現呢?最簡單的方法是建立一個配置文件,堶惟騆m了局域網上每台電腦的名字、IP和Port,在程式初始化時讀出所有資訊,在程式中只要知道向誰通信,讀出其對應的IP和Port即可。

  我們知道了每台電腦的IP和Port,但我們怎樣才能知道其他電腦是否在線呢,否則發出資訊別人收不到怎?辦?我們可以把此程式放在?動功能表中,讓其一開機就自動?動,並最小化,放於窗口右下角的system tray中。在程式剛開始運行時,它會自動向它從配置文件中所知道的所有IP發一條資訊:“我來了!”,如果有電腦在線,它會自動返回一條資訊:“歡迎!”,如此則兩機通信成功,它們會分別把對方的名字加入到自己的可通信人名單中去;如果有電腦關機,程式在退出之前會自動向所有人告別:“再見!”,接收到此資訊的電腦會自動把發送資訊的電腦的名稱從自己的可通信人名單中去除。這樣,如果某人不在線,你將無法發送資訊給它;如果除了你以外,其他人都沒有開機,那你的可發送人名單中將沒有任何人。而其他人只要一上線,會自動去你那堙孝n記”,其他人只要一離線,會自動去你那堙壯i別”,你可以據此知道他人是否正在使用電腦,你甚至可以以此程式來統計他人的每天上機時間,不錯吧!

  好了,一個局域網通信的程式的基本模型已經有了,並不複雜吧!大家趕快動手吧,來享受用自己的程式來聊天的樂趣!

  不過,要想編寫一個出色的程式,不光是要有良好的創意與功能,更重要的是程式的相容性與容錯性。本例中,對錯誤處理沒有做詳細的解釋,關於這一點,大家可以在Winsock控制項的error事件及其幫助中找到滿意的答案。

  另外,還可以從以下幾方面來考慮功能的擴充:如傳送圖形、聲音等多媒體資訊、局域網互傳文件(主動傳送)、歷史通話記錄、系統日誌、個人上機時間統計等等,而所有的這一切僅僅取決於你的想象力與你的聰明才智!下面,筆者以傳送文件?例來講一講其功能實現的代碼。

  你可以把本地的文件(圖形、聲音等可以先存成暫存檔案)以二進位文件的方式來打開它,將其內容全部讀入一個byte類型的陣列中,本地機代碼如下:

  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

  再向遠端機傳送這個位元組陣列

  sckserver.SendData myfile

  遠端機收到這個陣列之後,再以二進位文件的方式打開一個新目標文件,將陣列內容寫入這個新打開的文件,如果是bmp圖片就將其放入picture圖片框中,如果是wav文件,就播放。這樣,局域網中的兩個人就可以通過語言、圖片、文字來交流了。

  遠端機代碼如下:

  Private sub sckconnect_DataArrival(byval bytestotal as long)

  dim receivefile(1 to bytestotal)as byte

  sckconnect.GetData receivefile,vbarray+vbbyte

  '告訴Winsock控制項收到的是位元組陣列類型的資料

  open "c:\temp\檔案名" for binary as #1

  for I=1 to bytestotal

  put #1,,remotearray(I)

  next I

  clost #1

  end sub



本篇文章發表於2002-03-19 00:00
別忘捐VP感謝幫助你的人 新手會員瞧一瞧
目前尚無任何回覆
   

回覆
如要回應,請先登入.