建站
咨詢
售后
建站咨詢
新聞中心
郵遞員就是傳遞人員，那在網(wǎng)絡(luò)上怎么傳遞文件的呢？這里和大家介紹一下吧。VB.NET文件傳送對于網(wǎng)絡(luò)編程來說是基本的功能，比如遠(yuǎn)程控制軟件。在編制一個(gè)軟件時(shí)，我從網(wǎng)上下了很多傳文件的程序，這些程序提供的傳文件功能根本就不能用。傳文本還可以，傳二進(jìn)制文件根本就不行。因此，作為一個(gè)基本的功能模塊，有必要單獨(dú)介紹一下。首先，VB.NET文件傳送字符串，你可以這樣寫：
蘆溪網(wǎng)站建設(shè)公司創(chuàng)新互聯(lián)公司,蘆溪網(wǎng)站設(shè)計(jì)制作，有大型網(wǎng)站制作公司豐富經(jīng)驗(yàn)。已為蘆溪近千家提供企業(yè)網(wǎng)站建設(shè)服務(wù)。企業(yè)網(wǎng)站搭建\外貿(mào)網(wǎng)站建設(shè)要多少錢，請找那個(gè)售后服務(wù)好的蘆溪做網(wǎng)站的公司定做！
- Dim strData As String
- strData = \"Test\"
- Winsock1.SendData strData
但是如果你傳送的二進(jìn)制文件，你還能用String變量來存放嗎？從理論上分析是不行的，我也做了實(shí)驗(yàn)，確實(shí)是不行的。文件雖然可以傳，但是接受的文件和發(fā)送的不一樣，原因可能是二進(jìn)制文件里可以有任何\"字符\"，但是不是所有的字符都可以放在String變量里。
除了String類型的變量，VB中其他類型的變量都只有幾個(gè)字節(jié)長，難道一次只能發(fā)幾個(gè)字節(jié)嗎？那樣豈不是要累死機(jī)器了！其實(shí)，情況沒有那么悲觀，我們完全可以使用數(shù)組來解決這個(gè)問題，就是使用byte數(shù)組。把要VB.NET文件傳送都讀到數(shù)組里，然后發(fā)送出去。程序如下：
FileName 為要傳送的文件名，WinS為發(fā)送文件的WinSock控件。這是一個(gè)發(fā)送端的程序。
- Public Sub SendFile(FileName As String, WinS As Winsock)
- Dim FreeF As Integer \'空閑的文件號
- Dim LenFile As Long \'文件的長度
- Dim bytData() As Byte \'存放數(shù)據(jù)的數(shù)組
- FreeF = FreeFile \'獲得空閑的文件號
- Open FileName For Binary As #FreeFile \'打開文件
- DoEvents
- LenFile = LOF(FreeFile) \'獲得文件長度
- ReDim bytData(1 To LenFile) \'根據(jù)文件長度重新定義數(shù)組大小
- Get #FreeFile, , bytData \'把文件讀入到數(shù)組里
- Close #FreeFile \'關(guān)閉文件
- WinS.SendData bytData \'發(fā)送數(shù)據(jù)
- End Sub
接受端的程序如下：
- Private Sub Winsock1_DataArrival(ByVal bytesTotal As Long)
- Dim bytData() As Byte
- Dim f
- f = FreeFile
- Open strFileName For Binary As #f
- ReDim bytData(1 To bytesTotal)
- Winsock1.GetData bytData
- Put #f, i, bytData
- ii = i + bytesTotal \'保證每次寫都是在文件的末尾, i是個(gè)全局變量
- Close #f
- End Sub
這里有兩個(gè)需要注意的地方，ReDim Preserve bytData(1 To LenFile)，下標(biāo)是從1開始的，如果你寫成ReDim bytData( LenFile)，下標(biāo)就是從0開始了，數(shù)組就有LenFile+1長了。LenFile = LOF(FreeFile)中的LOF是獲得文件長度的函數(shù)，是VB里帶的，我見過很多例子用API，或者循環(huán)的讀直到末尾來獲取文件長度，這樣都是很麻煩的，使用LOF函數(shù)就可以了。這樣的程序，即可以傳送文本文件，也可以傳送二進(jìn)制文件。但是你有沒有發(fā)現(xiàn)這個(gè)程序的問題呢？如果我要傳送一個(gè)50M的文件呢？系統(tǒng)可以為bytData分配50M的內(nèi)存空間嗎？于是筆者拿一個(gè)50M的文件做實(shí)驗(yàn)吧，接收到的文件和原來的文件不一樣，比原來的大。問題出在那呢？
首先，根據(jù)文件大小重新定義bytData數(shù)組的大小本身就有問題，系統(tǒng)是不可能無限制的給數(shù)組分配空間的，即使可以，也會(huì)造成系統(tǒng)響應(yīng)變慢。在傳50M文件的時(shí)候，系統(tǒng)就跟死機(jī)了一樣。那么怎么解決這個(gè)問題呢，一個(gè)自然的想法就是把數(shù)據(jù)分段傳送。程序如下：發(fā)送程序, iPos是個(gè)全局變量,初始值為0。這個(gè)變量保存著當(dāng)前數(shù)據(jù)的位置。Const iMax = 65535是每個(gè)數(shù)據(jù)塊的大小。
- Dim FreeF As Integer \'空閑的文件號
- Dim LenFile As Long \'文件的長度
- Dim bytData() As Byte \'存放數(shù)據(jù)的數(shù)組
- FreeF = FreeFile \'獲得空閑的文件號
- Open FileName For Binary As #FreeF \'打開文件
- DoEvents
- LenFile = LOF(FreeF) \'獲得文件長度
- If LenFile <= iMax Then \'如果要發(fā)送的文件小于數(shù)據(jù)塊大小，直接發(fā)送
- ReDim bytData(1 To LenFile) \'根據(jù)文件長度重新定義數(shù)組大小
- Get #FreeF, , bytData \'把文件讀入到數(shù)組里
- Close #FreeF \'關(guān)閉文件
- WinS.SendData bytData \'發(fā)送數(shù)據(jù)
- Exit Sub
- End If
- \'文件大于數(shù)據(jù)塊大小，進(jìn)行分塊發(fā)送
- Do Until (iPos >= (LenFile - iMax)) \'發(fā)送整塊數(shù)據(jù)的循環(huán)
- ReDim bytData(1 To iMax)
- Get #FreeF, iPos + 1, bytData
- WinS.SendData bytData
- iPosiPos = iPos + iMax \'移動(dòng)iPos，使它指向下來要讀的數(shù)據(jù)
- Loop
- \'這里要注意的是，必須檢查文件有沒有剩下的數(shù)據(jù)，如果文件大小正好等于數(shù)據(jù)塊大小的
- \' 整數(shù)倍，那么就沒有剩下的數(shù)據(jù)了
- ReDim bytData(1 To LenFile - iPos) \'發(fā)送剩下的不夠一個(gè)數(shù)據(jù)塊的數(shù)據(jù)
- Get #FreeF, iPos + 1, bytData
- WinS.SendData bytData
- Close #FreeF
下面是接收端的程序：
- Private Sub Winsock1_DataArrival(ByVal bytesTotal As Long)
- Dim bytData() As Byte[Page]
- Dim lLenFile As Long
- Dim f
- f = FreeFile
- Open strFileName For Binary As #f \'strFileName是文件名
- lLenFile = LOF(f)
- ReDim bytData(1 To bytesTotal)
- Winsock1.GetData bytData
- If lLenFile = 0 Then \'lLenFile=0表示是第一次打開文件，這里有個(gè)問題，就是\'如果如果該文件存在的話，就會(huì)出錯(cuò)，應(yīng)該在打開前檢查文件是否存在。（這里我省略了）
- Put #f, 1, bytData
- Else
- Put #f, lLenFile + 1, bytData
- End If
- Close #f
- End Sub
分享名稱：全面分析VB.NET文件傳送
文章位置：http://m.5511xx.com/article/ccepgio.html
