国产精品成人网站,日韩视频二区,亚洲成人手机电影,怡红院国产

產(chǎn)品推薦:水表|流量計(jì)|壓力變送器|熱電偶|液位計(jì)|冷熱沖擊試驗(yàn)箱|水質(zhì)分析|光譜儀|試驗(yàn)機(jī)|試驗(yàn)箱


儀表網(wǎng)>技術(shù)中心>使用指南>正文

歡迎聯(lián)系我

有什么可以幫您? 在線咨詢

支持漢字的OPC服務(wù)器開(kāi)發(fā)包

來(lái)源:上海迅饒自動(dòng)化科技有限公司   2013年08月06日 13:41  

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

免責(zé)聲明

  • 凡本網(wǎng)注明“來(lái)源:儀表網(wǎng)”的所有作品,均為浙江興旺寶明通網(wǎng)絡(luò)有限公司-儀表網(wǎng)合法擁有版權(quán)或有權(quán)使用的作品,未經(jīng)本網(wǎng)授權(quán)不得轉(zhuǎn)載、摘編或利用其它方式使用上述作品。已經(jīng)本網(wǎng)授權(quán)使用作品的,應(yīng)在授權(quán)范圍內(nèi)使用,并注明“來(lái)源:儀表網(wǎng)”。違反上述聲明者,本網(wǎng)將追究其相關(guān)法律責(zé)任。
  • 本網(wǎng)轉(zhuǎn)載并注明自其它來(lái)源(非儀表網(wǎng))的作品,目的在于傳遞更多信息,并不代表本網(wǎng)贊同其觀點(diǎn)或和對(duì)其真實(shí)性負(fù)責(zé),不承擔(dān)此類作品侵權(quán)行為的直接責(zé)任及連帶責(zé)任。其他媒體、網(wǎng)站或個(gè)人從本網(wǎng)轉(zhuǎn)載時(shí),必須保留本網(wǎng)注明的作品第一來(lái)源,并自負(fù)版權(quán)等法律責(zé)任。
  • 如涉及作品內(nèi)容、版權(quán)等問(wèn)題,請(qǐng)?jiān)谧髌钒l(fā)表之日起一周內(nèi)與本網(wǎng)聯(lián)系,否則視為放棄相關(guān)權(quán)利。
聯(lián)系我們

客服熱線: 15267989561

加盟熱線: 15267989561

媒體合作: 0571-87759945

投訴熱線: 0571-87759942

關(guān)注我們
  • 下載儀表站APP

  • Ybzhan手機(jī)版

  • Ybzhan公眾號(hào)

  • Ybzhan小程序

企業(yè)未開(kāi)通此功能
詳詢客服 : 0571-87759942