帮忙运行一下代码！！！！急！急！急！急！急！急！急！急！急！（在线等候）

Question

为什么说“strData = strData + ByteArray(i)”类型不匹配.
当“strData = strData & ByteArray(i)”时程序直接读死!!

Answer 1

strDATA为字符型，ByteArray(i)为二进制数据，两个类型当然不匹配，至于读死，你可以把这个问题解决了，再看看。

Answer 2

还有你是用WinSock发送图片数据，建议你这样：注1: 最好定义一个全局字符变量 strTXT,Lenx as Long型变量
strTXT="FileSize"   接收文件大小字节(此变量先设置)
strTXT="File"       接收文件
private sub form_load()
  Winsock1.Close
  Winsock1.LocalPort = 3016
  Winsock1.Listen
end subPrivate Sub Winsock1_ConnectionRequest(ByVal requestID As Long)
  Winsock1.Close
  Winsock1.Accept requestID
  Winsock1.SendData "FileLenx"
End Sub
'以下这个事件是Winsock1收到数据时发生的
Private Sub Winsock1_DataArrival(ByVal bytesTotal As Long)
   dim lenx as long
   select case strtxt
       case "FileSize"   '接收文件大小
             Winsock1.GetData lenx
             Winsock1.SendData "File"
             strTXT="File"
          Case "File"
             On Error GoTo errx
             ReDim bytx(Lenx) As Byte
             If bytesTotal >= Lenx Then
                Winsock1.PeekData bytx, vbArray + vbByte, Lenx
                Dim l As Long
                l = FreeFile
                Open "c:\Excl.xls" For Binary Access Write As #l
                Put #1, , bytx
                Close #l
                msgbox "收到文件 C:\Excl.xls"
                ReDim bytx(0)
             End If
   end select
End Sub
'以下是发送端(全局变量同上)
Private sub command1_click()
    Winsock1.Close
    Winsock1.RemoteHost ="10.10.1.1"
    Winsock1.RemotePort = 3016
    Winsock1.Connect
end subPrivate Sub Winsock1_DataArrival(ByVal bytesTotal As Long)
  Dim i As Long
  Winsock1.GetData strTXT
  Select Case strTXT
         Case "FileLenx"
              lenx=filelen("c:\book1.xls")
              Winsock1.SendData lenx
         Case "File"
              ReDim bytt(Lenx) As Byte
              Dim l As Long
              l = FreeFile
              Open "c:\book1.xls" For Binary Access Read As #l
              Get #l, , bytt
              Close #l
              Winsock1.SendData bytt
              ReDim bytt(0)
    ens select
End Sub
这是一个发送文件的程序，你可以先把图片存成文件，把文件改成你的图片文件就行了，还可以看看这个:
http://www.csdn.net/expert/topic/826/826128.xml?temp=4.334658E-02

Answer 3

程序我不懂
不过里边有一个循环
  for i=1 to （320*3+3）*240 
 那就是231120次太多了吧

Answer 4

TO: hezhongxia(老厶) 
将图象信息先保存，再发送，会不会使程序变得太慢呢？

Answer 5

email:[email protected]
icq:25772461

Answer 6

email:[email protected]
icq:25772461