vb端代码Private Sub WinsockClient_DataArrival(ByVal bytesTotal As Long)
        Dim recevieData As String
        Dim arrayData() As String
        Dim result As Boolean
        WinsockClient.GetData recevieData
        arrayData = Split(recevieData, ",")
        If arrayData(0) = "Init" Then
               result = SfvendorAtmcApp.Init(CVar(arrayData(1)))
               MsgBox (CStr(result) + "   " + arrayData(0) + "    " + arrayData(1))
        ElseIf arrayData(0) = "SetAppInfo" Then
               result = SfvendorAtmcApp.SetAppInfo(CVar(arrayData(1)), CVar(arrayData(2)), CVar(arrayData(3)))
               MsgBox (CStr(result) + "   " + arrayData(0) + "    " + arrayData(1) + "    " + arrayData(2) + "    " + arrayData(3))
        End If
          WinsockClient.SendData CStr(result)
End Sub
发送一个boolean转换成字符串的数据在java端如何才能把该数据接收放入一个字符串中呢?
期待高手们教导

解决方案 »

  1.   

    你的题目说是解决乱码问题··但是···不管了··VB我没学过··只能给你点小的意见了··希望对你有用··
    如果说你的VB代码里表示的是创建一个服务器端的话··那JAVA的Socket就需要链接上你VB服务器端的ip和端口吧?连上之后使用流来接收数据··然后在通过转换·将流得到的东西转换成字符串··
      

  2.   

    Java和VB之间是不能直接通信的。个人感觉还是要通过JNI作为中介将VB发送过来的数据进行转化后java才能接收不会出现乱码。
      

  3.   

    socket 通信跟你的编程语言无关。 故是可以通信的。”在java端如何才能把该数据接收放入一个字符串中呢?“
    实现一个Socket server 接受数据, 收到数据了,你自己就可以new 字符串了。
      

  4.   

       import java.net.ServerSocket;   myServer = new ServerSocket(listeningPort);
    具体使用请google 一下。