手機訪問更快捷
更多流量 更易傳播
隨時掌握行業(yè)動態(tài)
網(wǎng)絡課堂 行業(yè)直播
支持漢字的OPC服務器開發(fā)包 |
WTOPCSvr.dll 目前國內(nèi)使用WTOPCsvr.dll的大有人在,使用WTOPCSvr.dll開發(fā)OPC服務器是非常方便的,而且其源碼也是非常的,*遺憾的是這個開發(fā)包畢竟是老美開發(fā)的,他們zui初的時候估計也不知道在中國的使用者會有這么多,竟然不支持漢字。解決辦法就是修改代碼了,讓它支持UNICODE就可以了。 另外VB環(huán)境里開發(fā)OPC服務器的時候,StringToByte的函數(shù)修改成如下: Sub StringToByte(strString As String, ByteArray() As Byte) ‘將字符串轉(zhuǎn)換成字節(jié)數(shù)組,漢字占2字節(jié) 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 |
相關產(chǎn)品
免責聲明
客服熱線: 15024464426
加盟熱線: 15024464426
媒體合作: 0571-87759945
投訴熱線: 0571-87759942
下載儀表站APP
Ybzhan手機版
Ybzhan公眾號
Ybzhan小程序