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();
         }
}
}

JAVA与VB通过SOCKET通讯的更多相关文章

  1. Socket网络通讯开发总结之:Java 与 C进行Socket通讯 + [备忘] Java和C之间的通讯

    Socket网络通讯开发总结之:Java 与 C进行Socket通讯 http://blog.sina.com.cn/s/blog_55934df80100i55l.html (2010-04-08 ...

  2. Socket网络通讯开发总结之:Java 与 C进行Socket通讯(转)

    先交待一下业务应用背景:服务端:移动交费系统:基于C语言的Unix系统客户端:增值服务系统:基于Java的软件系统通迅协议:采用TCP/IP协议,使用TCP以异步方式接入数据传输:基于Socket流的 ...

  3. java与C++之间进行SOCKET通讯要点简要解析

    原文链接: http://blog.csdn.net/hslinux/article/details/6214594 java与C++之间进行SOCKET通讯要点简要解析 hslinux 0.篇外语 ...

  4. java socket通讯(二)处理多个客户端连接

    通过java socket通讯(一) 入门示例,就可以实现服务端和客户端的socket通讯,但是上一个例子只能实现一个服务端和一个客户端之间的通讯,如果有多个客户端连接服务端,则需要通过多线程技术来实 ...

  5. java socket通讯(一) 入门示例

    一.入门 要想学习socket通讯,首先得知道tcp/ip和udp连接,具体可参考浅谈TCP/IP 和 UDP的区别 二.示例 首先新建了一个java工程,包括两个部分,客户端SocketClient ...

  6. Socket通讯-Netty框架实现Java通讯

    Netty简介 Netty是由JBOSS提供的一个java开源框架.Netty提供异步的.事件驱动的网络应用程序框架和工具,用以快速开发高性能.高可靠性的网络服务器和客户端程序. 也就是说,Netty ...

  7. ProtocolBuffers (二) android与PC,C#与Java 利用protobuf 进行无障碍通讯【Socket】

    protobuf 是什么?   Protocol buffers是一种编码方法构造的一种有效而可扩展的格式的数据. 谷歌使用其内部几乎RPC协议和文件格式的所有协议缓冲区. 参考文档 http://c ...

  8. Java Socket通讯---网络基础

    java socket 通讯 参考慕课网:http://www.imooc.com/learn/161 一.网络基础知识 1.1 通讯示意图 1.2 TCP/IP协议 TCP/IP是世界上应用最为广泛 ...

  9. java socket通讯

    本来是打算验证java socket是不是单线程操作,也就是一次只能处理一个请求,处理完之后才能继续处理下一个请求.但是在其中又发现了许多问题,在编程的时候需要十分注意,今天就拿出来跟大家分享一下. ...

随机推荐

  1. 查看数据库表存储引擎MyISAM/InnoDB

    Mysql: show table status *MyISAM不支持PDO的事务

  2. python_76_json与pickle反序列化2

    import pickle def say(name):#序列化时用完会释放,要想反序列化,要重新写上该函数,否则会出错 print('我的高中:', name)#可以和之前的序列化函数不同 f=op ...

  3. require.js模块化开发

    模块化开发的原因: 1.引入的js过多然后在加载的过程中容易出现假死的状态,导致页面会发生白屏 2.变量名的问题 在多人协作开发的时候容易出现变量名的冲突 面向对象 3.引入优先级的问题 模块化开发分 ...

  4. 学习笔记(六): Regularization for Simplicity

    目录 Overcrossing? L₂ Regularization Lambda Examining L2 regularization Check Understanding Glossay Ov ...

  5. 1412: [ZJOI2009]狼和羊的故事

    Time Limit: 10 Sec  Memory Limit: 162 MBSubmit: 4017  Solved: 2037[Submit][Status][Discuss] Descript ...

  6. 认识/etc/passwd和/etc/shadow

    认识/etc/passwd和/etc/shadow============================== /etc/passwd [root@aminglinux ~]# head -n1 /e ...

  7. .NET 执行命令行乱码

    Process可以运行命令行内容儿不用担心会弹出命令行窗口 需要读取命令行结果时,如果不注意内容编码,就会出现读取的结果出现乱码 读取StandardOutput结果时需要指定StandardOutp ...

  8. vue.js 三(数据交互)isomorphic-fetch

    至于fetch的介绍,在这里就不多说了,官方和网络上的说明不少 之前使用jquery的Ajax朋友,可以尝试一下使用一下这个新的api 推荐使用isomorphic-fetch,兼容Node.js和浏 ...

  9. React学习记录一

    半路出家直接上手React,其实有点吃力,所以开始研究create-react-app,从这里下手吧. create-react-app 官方网站:https://github.com/faceboo ...

  10. Thinkphp5中的Validate验证器的使用

    更多笔记: http://note.youdao.com/noteshare?id=e97a5df64888f27d912b3e966b9ec297&sub=web1520841813815 ...