互聯(lián)網(wǎng)傳輸控件（ITC）是一個很不錯的控件，我們可以利用它非常方便地檢索Web資源，但不幸的是，該控件并沒有提供跟蹤數(shù)據(jù)傳輸過程的方法。如果ITC控件具有諸如DownloadProgress或者DataArrival這樣的事件，而且該事件還具有相應(yīng)的參數(shù)就好了，但可惜也沒有。那么有沒有方法來獲取網(wǎng)頁下載過程的信息呢？答案是肯定的，下面就來討論一下如何獲取HTTP數(shù)據(jù)傳輸?shù)倪^程信息。 通常，我們使用ITC控件提供的兩種方法來下載Web頁面，即OpenURL和Execute，其中，OpenURL方法最簡單，但其功能有限，用這種方法并不能得到任何過程信息。為了用OpenURL方法獲取Web頁面內(nèi)容，我們可以使用下面的代碼： strPageContent = Inet1.OpenURL(strURL, icString) 可見，用OpenURL方法下載頁面確實(shí)很簡單，但我們不能對到達(dá)的數(shù)據(jù)進(jìn)行控制，所以，我們需要訪問Winsock緩沖區(qū)，該緩沖區(qū)的功能是存儲到達(dá)的數(shù)據(jù)。如果我們能夠訪問緩沖區(qū)內(nèi)的數(shù)據(jù)，那么我們就能在傳輸過程中的任何時刻計(jì)算出已到達(dá)數(shù)據(jù)的大小。而利用ITC控件的Execute方法，情況就完全不同了，下面我們來看一下該方法是如何工作的： 'Execute方法只是向Web服務(wù)器發(fā)送HTTP請求，而本身并不接收任何數(shù)據(jù) Inet1.Execute strURL, "GET" 為了檢索已達(dá)到數(shù)據(jù)，我們需要使用GetChunk方法將緩沖區(qū)數(shù)據(jù)讀到VB變量中。 strBuffer = Inet1.GetChunk(512) strArrivedData = strArrivedData & strBuffer 可見，GetChnuk方法具有Size參數(shù)，允許我們自定義從緩沖區(qū)內(nèi)讀出數(shù)據(jù)塊的大小。因此，我們找到了控制到達(dá)數(shù)據(jù)的方法，而且我們可以在下載過程中實(shí)現(xiàn)對已到達(dá)數(shù)據(jù)的控制。在StateChanged事件中加入如下代碼： Private Sub Inet1_StateChanged(ByVal State As Integer) Select Case State Case icResponseCompleted Do DoEvents strBuffer = Inet1.GetChunk(512) strArrivedData = strArrivedData & strBuffer lngArrivedDataSize = Len(strArrivedData) Loop Until Len(strBuffer) = 0 End Select End Sub OK！現(xiàn)在我們就能夠顯示已到達(dá)數(shù)據(jù)的大小了。但是如何獲得下載數(shù)量的百分比值，然后通過進(jìn)度條來顯示下載過程呢？首先，我們需要在任何數(shù)據(jù)到達(dá)之前知道頁面文件的大小。根據(jù)HTTP規(guī)范，Web服務(wù)器需要發(fā)送內(nèi)容長度報(bào)頭（Content-Length header field）作為HTTP請求的響應(yīng)，通過這個值我們就可以知道頁面文件的大小。我們可以在StateChanged事件中調(diào)用ITC控件的GetHeader方法來獲取這個值，如下所示： 'This module level variable stores size of the file we are downloading from the web Private m_lngDocSize As Long Private Sub Inet1_StateChanged(ByVal State As Integer) Select Case State Case icResponseReceived If m_lDocSize = 0 Then If Len(Inet1.GetHeader("Content-Length")) > 0 Then m_lDocSize = CLng(Inet1.GetHeader("Content-Length")) End If End If End Select End Sub 然而，在某些情況下，Web服務(wù)器并不發(fā)送內(nèi)容長度報(bào)頭，我們也就不能知道頁面文件大小，也就不能顯示進(jìn)度信息了。 現(xiàn)在，我們來創(chuàng)建一個簡單的應(yīng)用程序來實(shí)現(xiàn)我們的目標(biāo)。 創(chuàng)建工程 啟動VB集成開發(fā)環(huán)境，創(chuàng)建一個標(biāo)準(zhǔn)Windows應(yīng)用工程，將該工程命名為DownloadProgress，在Project菜單中打開Componets對話框（或按快捷鍵Ctrl+T激活），然后選中下列控件： • Microsoft Internet Transfer Control • Microsoft Rich Textbox Control • Microsoft Windows Common Controls 選擇保存目錄，然后保存該工程。 創(chuàng)建圖形用戶界面 在窗體上放置下列控件： • TextBox • CommandButton • 兩個Frame控件 • Label • ProgressBar • RichTextBox • Internet Transfer Control 如下圖所示，在窗體上對以上控件進(jìn)行布置。 編寫應(yīng)用程序代碼 打開窗體的代碼編輯器，在全局變量聲明部分（General-Declarations）部分進(jìn)行如下變量聲明。 Private m_lngDocSize As Long 這個變量將用來存儲我們將要下載的頁面大小。 下面，我們將對命令按鈕進(jìn)行編碼，在Command1_Click 事件中加入如下代碼： Private Sub Command1_Click() '文件大小值復(fù)位 m_lngDocSize = 0 '清空rtbDocument的文本 rtbDocument.Text = "" '復(fù)位進(jìn)度條控件 ProgressBar1.Value = 0.001 '顯示進(jìn)度的標(biāo)簽內(nèi)容設(shè)為空 lblProgressInfo.Caption = "" '定義ITC控件使用的協(xié)議為HTTP協(xié)議 Inet1.Protocol = icHTTP '調(diào)用Execute方法向Web服務(wù)器發(fā)送HTTP請求 If Len(txtURL.Text) > 0 Then Inet1.Execute Trim$(txtURL.Text), "GET" End If End Sub 在命令按鈕中，我們對各個控件的初值進(jìn)行了復(fù)位，并向Web服務(wù)器發(fā)送了HTTP請求，該URL地址由用戶鍵入到文本框中。在服務(wù)器開始響應(yīng)時，我們需要處理ITC控件的StateChanged事件，從而獲得內(nèi)容長度報(bào)頭，并獲取隨后傳送過來的頁面過程信息。 Private Sub Inet1_StateChanged(ByVal State As Integer) Dim strText As String Dim strBuffer As String Dim sngProgerssValue As Single On Error Resume Next Select Case State Case icResponseCompleted Do '從緩沖區(qū)讀取數(shù)據(jù) DoEvents strBuffer = Inet1.GetChunk(512) strText = strText & strBuffer If m_lngDocSize > 0 Then If Len(strBuffer) > 0 Then '獲得進(jìn)度百分比值 sngProgerssValue = Int((Len(strText) / m_lngDocSize) * 100) End If '更新進(jìn)度標(biāo)簽顯示內(nèi)容 lblProgressInfo.Caption = "Downloaded " & CStr(Len(strText)) & _ " bytes (" & CStr(sngProgerssValue) & "%)" '用新值更新進(jìn)度條控件 ProgressBar1.Value = sngProgerssValue End If Loop Until Len(strBuffer) = 0 '將讀取的HTML頁面內(nèi)容置入RichTextBox控件 rtbDocument.Text = strText Case icResponseReceived If m_lngDocSize = 0 Then '讀取頁面文件大小 If Len(Inet1.GetHeader("Content-Length")) > 0 Then m_lngDocSize = CLng(Inet1.GetHeader("Content-Length")) End If End If End Select End Sub 一切OK！按F5測試這個新完成的應(yīng)用程序，在文本框內(nèi)鍵入任意存在的URL地址，然后點(diǎn)擊讀取按鈕，呵呵，成功了?。ㄈ绻?wù)器發(fā)送了內(nèi)容長度報(bào)頭，我們就能看到結(jié)果，如果不發(fā)送，這個程序可就罷工了。）