支持汉字的OPC服务器开发包

欢迎联系我

有什么可以帮您？在线咨询

来源：上海迅饶自动化科技有限公司 2013年08月06日 13:41

支持汉字的OPC服务器开发包

WTOPCSvr.dll

目前国内使用WTOPCsvr.dll的大有人在，使用WTOPCSvr.dll开发OPC服务器是非常方便的，而且其源码也是非常的，*遗憾的是这个开发包毕竟是老美开发的，他们zui初的时候估计也不知道在中国的使用者会有这么多，竟然不支持汉字。解决办法就是修改代码了，让它支持UNICODE就可以了。

另外VB环境里开发OPC服务器的时候，StringToByte的函数修改成如下：
Sub StringToByte（strString As String, ByteArray（） As Byte）
‘将字符串转换成字节数组，汉字占2字节

Dim i As Integer
Dim j As Integer

Dim A As Long

On Error Resume Next

For i = 0 To Len（strString） - 1

A = Asc（Mid$（strString, i + 1, 1））

If A < 0 Then

ByteArray（i + j） = Int（（65536 + A） / 256）
j = j + 1

ByteArray（i + j） = Int（（65536 + A） Mod 256）

Else
ByteArray（i + j） = A

End If
Next

ByteArray（i + j） = 0
End Sub

凡本网注明“来源：仪表网”的所有作品，均为浙江兴旺宝明通网络有限公司-仪表网合法拥有版权或有权使用的作品，未经本网授权不得转载、摘编或利用其它方式使用上述作品。已经本网授权使用作品的，应在授权范围内使用，并注明“来源：仪表网”。违反上述声明者，本网将追究其相关法律责任。
本网转载并注明自其它来源（非仪表网）的作品，目的在于传递更多信息，并不代表本网赞同其观点或和对其真实性负责，不承担此类作品侵权行为的直接责任及连带责任。其他媒体、网站或个人从本网转载时，必须保留本网注明的作品第一来源，并自负版权等法律责任。
如涉及作品内容、版权等问题，请在作品发表之日起一周内与本网联系，否则视为放弃相关权利。