hiromichel2000のプロフィール

こんにちは。現在、VisualBasicでwinsockを利用して jpg画像の転送をやりたいと思っているのですが、うまくいきません。 制御用のプログラムなのでjpg画像は2分割して送ります。 ちょっと汚いソースで申し訳ないのですが、クライアント側は以下のようになってます。ソケット1で通信の制御信号を送受信して、ソケット2で実際の画像データを送信します。画像は2分割にして送ります。 Private Sub Winsock1_DataArrival(ByVal bytesTotal As Long) Dim sSend As String Dim buffer() As Byte Dim lSendSize As Long Winsock1.GetData buf, vbString, bytesTotal Select Case buf Case SIG_REQUESTIMAGE 　　　　f = FreeFile sFile = "send.jpg" Open sFile For Binary As #f lFileSize = LOF(f) sSend = CStr(lFileSize) Winsock1.SendData sSend DoEvents Case "reciv_size" '画像サイズ受信確認信号1 　　　　　　lSendSize = lFileSize - 1 l1SendSize = lSendSize / 2 l2SendSize = lSendSize - l1SendSize ReDim buffer1(l1SendSize) ReDim buffer2(l2SendSize) Get #f, , buffer1 　　　　　　sCommand = CStr(buffer1) Get #f, , buffer2 Winsock2.SendData sCommand 　Case "reciv1" '画像サイズ受信確認信号2 sCommand = CStr(buffer2) 　　　　　　Winsock2.SendData sCommand 　　　　　　Close #f