JAVA与VB透过SOCKET通讯

JAVA与VB通过SOCKET通讯

?在做项目的过程中，本来是想使用JAVA的comm.jar工具实现串口通讯，不知道怎么回事，总是取不到电脑的串口。所以，改为现在的这种模式：java通过socket给vb程序发送指令，然后VB程序通过comm部件给串口发送指令。效果不错。

程序服务端使用VB实现：

? 代码：

Private lngWSKIndex As Long
Private Sub Form_Load()
?? lvRecord.ColumnHeaders.Clear
?? lvRecord.ColumnHeaders.Add , , "ID", lvRecord.Width / 15
?? lvRecord.ColumnHeaders.Add , , "客户端序列号", lvRecord.Width / 4
?? lvRecord.ColumnHeaders.Add , , "内容", lvRecord.Width
?? lvRecord.ListItems.Clear
?? wskServer(0).LocalPort = 9999
?? wskServer(0).Listen
?? lngWSKIndex = 0
?? If MSComm1.PortOpen = True Then
?? MSComm1.PortOpen = False
???? Else
???? End If
MSComm1.CommPort = 1
MSComm1.Settings = "9600,n,8,1"
MSComm1.PortOpen = True
??
End Sub

Private Sub wskServer_Close(Index As Integer)
?
? If Index = 0 Then Exit Sub
??
? '关闭客户端对应的应答Socket
?? Close #Index
??
?? '卸载自动加载控件，节省资源
?? Unload wskServer(Index)
End Sub

'服务器端接收到连接请求
Private Sub wskServer_ConnectionRequest(Index As Integer, ByVal requestID As Long)
?? lngWSKIndex = lngWSKIndex + 1???????????????????? '连接号自动加1
?? Load wskServer(lngWSKIndex)?????????????????????? '加载客户端连接请求对应的应答Socket
?? wskServer(lngWSKIndex).Accept requestID?????????? '允许连接
End Sub

Private Sub wskServer_DataArrival(Index As Integer, ByVal bytesTotal As Long)
??? Dim strGetData As String
??? Dim nCount As Integer
??? Dim i As Integer
???
??? wskServer(Index).GetData strGetData, vbString
??? nCount = lvRecord.ListItems.Count
??? nCount = nCount + 1
??? If strGetData = "1=1" Then
??? lvRecord.ListItems.Add , , nCount
??? lvRecord.ListItems(nCount).ListSubItems.Add , , "接收到第" & Index & "个警报"
??? lvRecord.ListItems(nCount).ListSubItems.Add , , "未结账通过"
??? End If????????????????????????????????????????????????????? '只对接收到的客户端发送命令
?????? ' wskServer(Index).SendData "信息：" & strGetData & "已收到！"
??????? Dim Temp(0) As Byte
??????? Dim strBuff As String
??????? strBuff = strGetData
??????? MSComm1.Output = strBuff
???
End Sub

?

需要添加Winsock部件和MSComm部件

程序的客户端JAVA代码

?

package com;

import java.io.*;
import java.net.*;

public class Socket_t {

public static void main(String args[]){?
?try {
??Socket_t.SendData("1=1");
??Thread.sleep(10000L);
??Socket_t.SendData("1=0");
?} catch (InterruptedException e) {
??// TODO Auto-generated catch block
??e.printStackTrace();
?}
?
}

public static void? SendData(String data){
? try{
???????? Socket socket=new Socket("127.0.0.1",9999);
???????? BufferedReader sin=new BufferedReader(new InputStreamReader(System.in));
???????? PrintWriter os=new PrintWriter(socket.getOutputStream());
???????? BufferedReader is=new BufferedReader(new InputStreamReader(socket.getInputStream()));
??????????? os.write(data);
??????????
??????????? os.flush();
??????????? os.close(); //关闭Socket输出流
?????????? socket.close(); //关闭Socket
???????? }catch(Exception e){
???????? ?e.printStackTrace();
???????? }
}
}