儀表網(wǎng)手機(jī)版
手機(jī)訪問更快捷
儀表網(wǎng)小程序
更多流量 更易傳播
公眾號:ybzhan
隨時掌握行業(yè)動態(tài)
掃碼關(guān)注視頻號
網(wǎng)絡(luò)課堂 行業(yè)直播
| 支持漢字的OPC服務(wù)器開發(fā)包 |
| WTOPCSvr.dll 目前國內(nèi)使用WTOPCsvr.dll的大有人在,使用WTOPCSvr.dll開發(fā)OPC服務(wù)器是非常方便的,而且其源碼也是非常的,*遺憾的是這個開發(fā)包畢竟是老美開發(fā)的,他們zui初的時候估計也不知道在中國的使用者會有這么多,竟然不支持漢字。解決辦法就是修改代碼了,讓它支持UNICODE就可以了。 另外VB環(huán)境里開發(fā)OPC服務(wù)器的時候,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 |
相關(guān)產(chǎn)品
免責(zé)聲明
客服熱線: 18758282240(同微信)
加盟熱線: 18758282240(同微信)
媒體合作: 0571-87759945
投訴熱線: 0571-87759942

下載儀表站APP

Ybzhan手機(jī)版

Ybzhan公眾號

Ybzhan小程序