基于欧姆龙Host Link通信协议的串口动态链接库DLL 点击：2358 | 回复：15
DEMO中默认的PLC站号(单元号或称节点号)＝0;
最新欧姆龙PLC全系列Host Link通信协议串口动态链接库DLL
一、最新欧姆龙PLC全系列Host Link通信协议串口动态链接库DLL(以下简称DLL)，是为满足工业通信需要，针对工业领域要求上位机对PLC实时采集与控制的组态编程而设计。本DLL是采用Delphi语言开发的标准串口通讯库，具有以下特点：
1)、实时性、可靠性好，可根据通信数据量自行调整通信时间;
2)、适用于多PLC联网和上位机通信，满足多方面的需要;
3)、函数接口功能全，操作简单;
4)、附加实用转换与读取函数，易于快速开发(VC等非RAD开发环境的开发)；
5)、支持USB、PC扩展卡等扩展串口号;
6)、支持多种操作系统win9x/win2000/winXP;
7)、可在多种编程环境下使用，例如VB、VC、Delphi等开发环境。
二、DLL函数说明
1、打开串口
Function ComOpen(nport,BaudRate,DataBits,Parity,StopBits:longint;User:Pchar):longint;stdcall;
参数：nport: 打开串口号，取值为1～8，代表COM1～COM8;
BaudRate：波特率，取值为1200、2400、4800、9600、19200、38400 (推荐使用9600或19200)；
DataBits：数据位，取值为5、6、7、8(推荐使用7或8)；
Parity： 校验位，取值为1(E)、2(O)、3(M)、4(S)、5(N)，注括号里是校验位的英文缩写；
StopBits：停止位，取值为1(1)、2(2)、3(1.5),注括号里是实际的停止位位数
User:DLL授权用户名;
返回值：长整型，操作成功返回1，否则返回0；打开串口不成功即返回0时的原因：1)、串口不存在或被占用; 2)、DLL试用过期; 3)、DLL授权注册不正确。
使用举例：
ComOpen(1,9600,7,1,1,'wjun') , 打开COM1口,并设定波特率＝9600、数据位＝7、校验位＝E(偶校验)、停止位＝1,授权用户='wjun'。
2、关闭串口
Function ComClose(nport:longint):longint;stdcall;
参数：nport: 串口号，取值为1～8，代表COM1～COM8;
返回值：长整型，操作成功返回1，否则返回0;
使用举例：
ComClose(1) ，关闭打开的COM1口。
3、读取PLC的操作状态－－－－{这很重要因为Host Link只有在监视或编程状态才可以进行写操作与强制操作,工控应用中应使用监视状态}
. . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . .
Function ComMS(nport,node:Longint):Longint;stdcall;
参数：
nport: 串口号，取值为1～8，代表COM1～COM8;
node: PLC站号或节点号(单元号)，取值为0～31;
返回值：长整型，返回值：0:编程、1:运行、2:监视、3:读取错误;
使用举例：
ComMS(1,0),由串口1读取0号PLC的操作状态;
4、改变PLC的操作状态
Function ComSC(nport,node,State:longint):Longint;stdcall;
参数：
nport: 串口号，取值为1～8，代表COM1～COM8;
node: PLC站号或节点号(单元号)，取值为0～31;
State:PLC状态参数，取值为0:编程、1:运行、2:监视;
返回值：长整型，操作成功返回1，否则返回0;
5、读取PLC的型号代码
Function ComMM(nport,node:Longint):Pchar;stdcall;
参数：
nport: 串口号，取值为1～8，代表COM1～COM8;
node: PLC站号或节点号(单元号)，取值为0～31;
返回值：Pchar(字符串)，返回值："Error":表示读取错误
其他见下表：
型号代码 PLC型号
"01" C250
"02" C500
"03" C120
"0E" C2000
"10" C1000H
"11" C2000H/CQM1/CPM2A/CPM2C/CPM1/CPM1A/SRM1(-V2)
"12" C20H/C28H/C40H/C200H/C200HS
"20" CV500
"21" &
楼主最近还看过
writedatatoplc(int dmno,int dmvalue,UINT datatype)
{ BYTE check=0;
dmno=I_TO_O(dmno);
LPBYTE send = new BYTE[17];
send[0]=0x40;
send[1]=0x30;
send[2]=0x30;//
switch(datatype)
{
case 0:
{ send[3]='W';
send[4]='J';//写DM
}
break;
case 1:
{ send[3]='W';
send[4]='D';//写DM
}
break;
case 2:
{ send[3]='W';
send[4]='H';//写DM
}
break;
case 3:
{ send[3]='W';
send[4]='R';//写DM
}
break;
case 4:
{ send[3]='W';
send[4]='L';//写DM
}
break;
case 5:
{ send[3]='W';
send[4]='C';//写DM
}
break;
default:
{ send[3]=' ';
send[4]=' ';//写DM
}
break;
}
send[5]=GetData((BYTE)((dmno&0xF000)>>12));
send[6]=GetData((BYTE)((dmno&0x0F00)>>8));
send[7]=GetData((BYTE)((dmno&0x0F0)>>4));
send[8]=GetData((BYTE)(dmno&0x0F));//地址GetData((BYTE)((check&0x000f)));
send[9]=GetData((BYTE)((dmvalue&0xF000)>>12));
send[10]=GetData((BYTE)((dmvalue&0xF00)>>8));
send[11]=GetData((BYTE)((dmvalue&0xF0)>>4));
send[12]=GetData((BYTE)((dmvalue&0xF)));//值
for(int i=0;i<13;i++)
{
check=check^send[i];
}
send[13]=GetData((BYTE)((check&0xF0)>>4));
send[14]=GetData((BYTE)((check&0xF)));//校验
send[15]=0x2A;
send[16]=0x0D;
WriteToPort( send, 17 );
//有个删除操作
return 0;
}
{ BYTE check=0;
dmno=I_TO_O(dmno);
dmlong=I_TO_O(dmlong);
LPBYTE send = new BYTE[17];
send[0]=0x40;
send[1]=0x30;
send[2]=0x30;//
switch(datatype)
{
case 0:
{ send[3]='R';
send[4]='J';//写DM
}
break;
case 1:
{ send[3]='R';
send[4]='D';//写DM
}
break;
case 2:
{ send[3]='R';
send[4]='H';//写DM
}
break;
case 3:
{ send[3]='R';
send[4]='R';//写DM
}
break;
case 4:
{ send[3]='R';
send[4]='L';//写DM
}
break;
case 5:
{ send[3]='R';
send[4]='C';//写DM
}
break;
default:
{ send[3]=' ';
send[4]=' ';//写DM
}
break;
}
send[5]=GetData((BYTE)((dmno&0xF000)>>12));
send[6]=GetData((BYTE)((dmno&0x0F00)>>8));
send[7]=GetData((BYTE)((dmno&0x0F0)>>4));
send[8]=GetData((BYTE)(dmno&0x0F));//地址GetData((BYTE)((check&0x000f)));
send[9]=GetData((BYTE)((dmlong&0xF000)>>12));
send[10]=GetData((BYTE)((dmlong&0xF00)>>8));
send[11]=GetData((BYTE)((dmlong&0xF0)>>4));
send[12]=GetData((BYTE)((dmlong&0xF)));//长度
for(int i=0;i<13;i++)
{
check=check^send[i];
}
send[13]=GetData((BYTE)((check&0xF0)>>4));
send[14]=GetData((BYTE)((check&0xF)));//校验
send[15]=0x2A;
send[16]=0x0D;
WriteToPort( send, 17 );
delete10[] send;
return 0;
}
{ CString temp;
if(ch=='@')
{
m_receve.Insert(0,"~~~~~~~~~~~~~~~~~~~~~");
m_receve.SetAt(0,'@');
m_Idex=1;
temp="数据刚开始";
}
else
{
m_receve.SetAt(m_Idex,ch);
if( m_receve.Find("*\r",0)==-1)
{
temp="数据还没接受完";
}
else
{
temp=m_receve.Mid0(5,2);
switch((myatoi(temp)))
{
case 00:
{
if(m_receve.Mid0(3,2)=="RD")
{ //temp.Format("来自%d号站%s的数据为%d",myatoi(m_receve.Mid0(1,2)),"读取DM",
// (short)myatoi(m_receve.Mid0(7,4)));
temp=m_receve.Mid0(7,4);
}
else
{
if(m_receve.Mid0(3,2)=="RR")
temp.Format("来自%d号站%s的数据为%d",myatoi(m_receve.Mid0(1,2)),"读取RR",
(short)myatoi(m_receve.Mid0(7,4)));
else
{
temp.Format("来自%d号站%s",myatoi(m_receve.Mid0(1,2)),"其他操作应答");
}
}
}
break;
case 01:
{
temp="PLC在运行方式下不能执行";
}
break;
case 02:
{
temp="PLC在监控方式下不能执行";
}
break;
case 04:
{
temp="地址超出区域";
}
break;
case 13:
{
temp="FCS校验出错";
}
break;
case 14:
{
temp="格式出错";
}
break;
case 15:
{
temp="入口码数据错误数据超出规定范围";
}
break;
default:
{
temp="挂饿";
}
break;
}
}
m_Idex++;
}
return temp;
}
- 你最常用的PLC是什么品牌的？...
[17400] - 整理的永宏PLC资料，比较全。...[9861]
- PLC组成的间歇式转炉的自控系...[10098]
- 求助：mwp文件怎么打开？[25171]
- 0.1秒摧残任何版本威纶禁止反...[13043]
- PLC的模拟量模块怎么接电阻远...[8598]
- 工控老鬼 工程师成长之路（2）...[8623]
- 成为编程高手的八大奥秘(转载...[7745]
- 求助：4-20mA模拟量的最大传输...[27460]
- PID参数如何设定调节[12972]
官方公众号
智造工程师
-
客服
-
小程序
-
公众号
工控网智造工程师好文精选
