支持漢字的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 |
免責聲明
客服熱線: 15267989561
加盟熱線: 15267989561
媒體合作: 0571-87759945
投訴熱線: 0571-87759942
下載儀表站APP
Ybzhan手機版
Ybzhan公眾號
Ybzhan小程序