Winsockコントロールについて (ID:107517)

名前

ホームページ(ブログ、Twitterなど)のURL (省略可)

本文 Winsockについて勉強中なのですが、ファイルを送信すると8KBまでしか受信できません。おそらくサーバー側の問題だと思いますが...（ＴＴ） _/_/_/_/_/_/_/_/_/_/_/_/クライアント_/_/_/_/_/_/_/_/_/_/_/_/ Private Sub Command1_Click() Dim GetFileByte() As Byte CommonDialog1.Filter = "全てのファイル|*.*" On Error GoTo error CommonDialog1.ShowOpen On Error GoTo 0 FileName = CommonDialog1.FileName FileNumber = FreeFile() Open FileName For Binary As #FileNumber fileB = LOF(FileNumber) ReDim GetFileByte(1 To fileB) Get #FileNumber, , GetFileByte() Close #FileNumber If Winsock1.State = 7 Then ProgressBar1.Max = fileB For i = 1 To fileB Winsock1.SendData (GetFileByte(i)) ProgressBar1.Value = i Next i End If error: End Sub _/_/_/_/_/_/_/_/_/_/_/_/サーバー_/_/_/_/_/_/_/_/_/_/_/_/ Private Sub Winsock1_DataArrival(ByVal bytesTotal As Long) fileb = bytesTotal Dim pickdat() As Byte ReDim pickdat(1 To fileb) Winsock1.GetData pickdat(), vbArray + vbByte On Error GoTo error CommonDialog1.ShowSave On Error GoTo 0 FileName = CommonDialog1.FileName FileNumber = FreeFile() Open FileName For Binary As #FileNumber Put #FileNumber, , pickdat() Close #filenum error: End Sub 以上です。例えば8KB以下のファイルだと普通に画像なり音楽なり受信して ファイルに保存が出来るのですが。以上だと受信側で保存のダイアログが (ファイルサイズ / 8)回開きます。何が原因でしょうか？ お願いします。