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

相關(guān)產(chǎn)品

免責(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)贊同其觀(guān)點(diǎn)或和對(duì)其真實(shí)性負(fù)責(zé)，不承擔(dān)此類(lèi)作品侵權(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)利。