手機(jī)訪問(wèn)更快捷
更多流量 更易傳播
隨時(shí)掌握行業(yè)動(dòng)態(tài)
網(wǎng)絡(luò)課堂 行業(yè)直播
產(chǎn)品推薦:水表|流量計(jì)|壓力變送器|熱電偶|液位計(jì)|冷熱沖擊試驗(yàn)箱|水質(zhì)分析|光譜儀|試驗(yàn)機(jī)|試驗(yàn)箱
支持漢字的OPC服務(wù)器開(kāi)發(fā)包 |
WTOPCSvr.dll 目前國(guó)內(nèi)使用WTOPCsvr.dll的大有人在,使用WTOPCSvr.dll開(kāi)發(fā)OPC服務(wù)器是非常方便的,而且其源碼也是非常的,*遺憾的是這個(gè)開(kāi)發(fā)包畢竟是老美開(kāi)發(fā)的,他們zui初的時(shí)候估計(jì)也不知道在中國(guó)的使用者會(huì)有這么多,竟然不支持漢字。解決辦法就是修改代碼了,讓它支持UNICODE就可以了。 另外VB環(huán)境里開(kāi)發(fā)OPC服務(wù)器的時(shí)候,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é)聲明
客服熱線: 15267989561
加盟熱線: 15267989561
媒體合作: 0571-87759945
投訴熱線: 0571-87759942
下載儀表站APP
Ybzhan手機(jī)版
Ybzhan公眾號(hào)
Ybzhan小程序