Dim n, i
Dim OFbyt As Variant '讀入檔案的緩衝
Dim data As Variant '檔案分解的緩衝
Command1.Enabled = False
Open Text2.Text For Binary As #1 ' 開啟檔案。
i = 1
OFbyt = InputB(LOF(i), i)
For n = 0 To (LOF(i) / 2000) '將檔案以...byte分成一段一段
Label4.Caption = "傳送中"
Text1.Text = n
data = MidB(OFbyt, n * 2000 + 1, 2000)
WinSock1.SendData data
Do Until Text3.Text = "Next"
DoEvents
Loop
Text3.Text = "Wait"
Next
創作者介紹

小吳 VBQA 程式設計討論

vbqa 發表在 痞客邦 PIXNET 留言(1) 人氣()


留言列表 (1)

發表留言
  • 心冷熱情熄
  • 操作 Byte 陣列時,原則上少用字串處理函數,直接切割
    Socket除傳輸資料外,宜定義交談內容,避免收資料端無法判斷目前情況。
    可參考:
    http://tlcheng.adsldns.org/TLCheng/Hermes/sendfile.htm