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

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

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