目录

一、前言

1、设备组态

2、创建任务程序文件

二、创建服务端程序

1、定义变量

2、创建服务端程序

三、创建客户端程序

1、定义变量

2、创建客户端程序

四、程序测试

1、服务端启动

2、客户端连接

 3、服务端给客户端发送数据

4、客户端给服务端发送数据

五、下载连接

一、前言

1、设备组态

2、创建任务程序文件

在Application中分别添加程序server、client，并添加到MainTask周期任务中

二、创建服务端程序

1、定义变量


VARServerPORT : UINT:=2220; //创建服务器端的端口号IP_ADR2 : NBS.IP_ADDR; //服务器的ip地址ip :STRING(20):=&＃39;192.168.1.88&＃39;;TCP_Connection : NBS.TCP_Connection;TCP_Server_open : NBS.TCP_Server;server_read : NBS.TCP_Read;WRITEBUF : NBS.TCP_Write; readbuff : ARRAY[0..1000]OF BYTE := [ 1000(0)]; //存储-客户端的数据 writebuff : ARRAY[0..1000] OF BYTE:=[1000(0)]; //给客户端写数据server_en : BOOL; //打开服务器WRITE_EN : BOOL; //向客户端写数据//read功能块状态read_done : BOOL;read_error : BOOL;read_xerror : BOOL;
END_VAR;

2、创建服务端程序


//PLC作为服务器
//IP_ADR2.sAddr:=&＃39;192.168.1.88&＃39;; //PLC ip地址
IP_ADR2.sAddr:=ip;//服务器打开
TCP_Server_open(xEnable:=server_EN , //on:开启服务器xDOne=> , xBusy=> , xError=> , ipAddr:=IP_ADR2 , uiPort:= ServerPORT, //端口号eError=> , hServer=> );//检测有无客户端连接
TCP_Connection(xEnable:= TCP_Server_open.xBusy, xDOne=> , xBusy=> , xError=> , hServer:= TCP_Server_open.hServer, eError=> , xActive=> , hCOnnection=> );//read
server_read(xEnable:=TCP_Connection.xActive , xDOne=>read_done , xBusy=> , xError=>read_xerror , hConnection:=TCP_Connection.hConnection , szSize:=SIZEOF(readbuff) , pData:=ADR(readbuff) , eError=> , xReady=> , szCount=> );//WRITE
WRITEBUF(xExecute:= write_en , udiTimeOut:= 3000,xDOne=> , xBusy=> , xError=> , hConnection:= TCP_Connection.hConnection , szSize:= SIZEOF(writebuff), pData:=ADR(writebuff) , eError=> );IF WRITEBUF.xDone THENWRITE_EN:=FALSE;END_IF

三、创建客户端程序

1、定义变量

VARClientPORT: UINT:=2220;IP_ADR1 :NBS.IP_ADDR;ip :STRING(20):=&＃39;192.168.1.88&＃39;;TCP_connect :NBS.TCP_Client; client_tcp_READ :NBS.TCP_Read;client_TCP_write :NBS.TCP_Write;client_READ_BUF :ARRAY[0..1000] OF BYTE; //读取数据缓存区client_Write_BUF :ARRAY[0..1000] OF BYTE; //要写的数据缓存区START :BOOL; //连接服务器client_Write_en :BOOL;//Client相关状态connectxdone :BOOL;connectxerror :BOOL;write_xdone :BOOL;write_xerror :BOOL;read_xdone :BOOL;read_xerror :BOOL;
END_VAR

2、创建客户端程序


//IP_ADR1.sAddr:=&＃39;192.168.1.88&＃39;;// 要连接的服务器ip 地址
IP_ADR1.sAddr:=ip;//PLC作为客户端连接服务器
TCP_connect
(xEnable:=START, //start on连接服务器xDOne=>connectxdone , xBusy=> , xError=>connectxerror , udiTimeOut:=30000, ipAddr:=IP_ADR1,uiPort:=ClientPORT , eError=> , xActive=>, hCOnnection=> );//客户端往服务器写数据 client_TCP_write(xExecute:= client_Write_en, //write_en 上升沿 将pl 数组里数据发送到服务器udiTimeOut:=1000 , xDOne=>write_xdone , xBusy=> , xError=> , hConnection:=TCP_connect.hConnection , szSize:=100 , //发送数据大小pData:=ADR(client_Write_BUF) , eError=> );
IF(client_TCP_write.xDone) THEN
client_Write_en:=FALSE ;
END_IFclient_TCP_READ(xEnable:=TCP_connect.xActive , xDOne=>read_xdone , xBusy=> , //接收过程为0n 接收结束offxError=>read_xerror , hConnection:=TCP_connect.hConnection , szSize:= 2000, pData:=ADR(client_READ_BUF) , eError=> , xReady=> , szCount=> ,);//接收的数据个数);

四、程序测试

1、服务端启动

server_EN设置为TRUE，

2、客户端连接

START设置为TRUE，connectxerror为FALSE，表示连接服务器成功

 3、服务端给客户端发送数据

writebuff数组前五个变量赋值

 然后WRITE_EN设置TRUE写操作(程序中检测WRITE_EN为TRUE立即修改为FALSE)

 在客户端中可以看到成功接收到服务端发送的数据（客户端读功能块默认在连接成功的情况下就读取操作）

4、客户端给服务端发送数据

client_Write_BUF前五个变量赋值

 给client_Write_en设置TRUE

 在服务端看到成功读取到的客户端所发送的数据

五、下载连接

https://download.csdn.net/download/panjinliang066333/86750966