支持漢字的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