近期在開發中遇見了不會的，由于是自學，有些東西也接觸不到，現在專案有個功能，就是獲取http回傳的一個二進制流檔案，在我提交htto請求后服務器會回傳一個二進制流的檔案給我，(這個檔案流是zip格式的，服務器回傳的時候給出的是二進制流)，如何用VB將這個二進制流檔案保存到本地？保存后的檔案是.zip格式，有沒有人可以做的？聯系一下我。QQ：88600246！
uj5u.com熱心網友回復：
GetChunk 方法、StateChanged 事件示例
該示例在 StateChanged 事件中用 GetChunk 方法來檢索一塊資料。該示例使用 Select Case 陳述句來決定如何處理每種可能的狀態。該示例假定表單中有一個名為 txtData 的 TextBox 控制元件。
Private Sub Inet1_StateChanged(ByVal State As Integer)
'State = 12 時，使用 GetChunk 方法檢索服務器的回應。
'該示例假定資料為文本型別。
Select Case State
'...沒有列舉其它情況。
Case icResponseReceived '12
Dim vtData As Variant '資料變數。
Dim strData As String: strData = ""
Dim bDone As Boolean: bDone = False
'取得第一塊。
vtData = Inet1.GetChunk(1024, icString)
DoEvents
Do While Not bDone
strData = strData & vtData
DoEvents
'取得下一塊。
vtData = Inet1.GetChunk(1024, icString)
If Len(vtData) = 0 Then
bDone = True
End If
Loop
txtData.Text = strData
End Select
End Sub
uj5u.com熱心網友回復：
GetChunk 方法（Internet Transfer 控制元件）
從 StateChanged 事件中檢索資料。把 Execute 方法當作 GET 操作來呼叫之后使用該方法。
語法
object.GetChunk( size [,datatype] )
Get 屬性的語法包含下面部分：
部分 描述
Object 物件運算式，其值是“應用于”串列中的物件。
Size 必需的。長整型數值運算式，決定被檢索的塊的大小。
datatype 可選的。整數，決定被檢索塊的資料型別，如下面的“設定值”所示。
設定值
datatype 的設定值：
常數 值 描述
icString 0 預設值。把資料作為字串來檢索。
icByteArray 1 把資料作為位元組陣列來檢索。
回傳型別
Variant
說明
在 StateChanged 事件中使用 GetChunk 方法。當 State 屬性為 icResponseCompleted (12) 時，使用 GetChunk 方法檢索緩沖區的內容。
uj5u.com熱心網友回復：
現在是已經取得資料流了 該如何做？uj5u.com熱心網友回復：
VB6中有檔案操作陳述句啊。Open 磁盤檔案 for binary as #1
put #1, , arrBuff
close
檔案最好是整合成“絕對路徑”，arrBuff 指的是存盤資料流的位元組陣列。
uj5u.com熱心網友回復：
如果資料流是壓縮的，需要解壓后才寫入檔案，可以用Zlib的介面函式來解壓。轉載請註明出處，本文鏈接：https://www.uj5u.com/gongcheng/46895.html
標籤：VB基礎類
上一篇：VB程式運行問題