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端如何才能把该数据接收放入一个字符串中呢?
期待高手们教导
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端如何才能把该数据接收放入一个字符串中呢?
期待高手们教导
如果说你的VB代码里表示的是创建一个服务器端的话··那JAVA的Socket就需要链接上你VB服务器端的ip和端口吧?连上之后使用流来接收数据··然后在通过转换·将流得到的东西转换成字符串··
实现一个Socket server 接受数据, 收到数据了,你自己就可以new 字符串了。
具体使用请google 一下。