한자를 지원하는 OPC 서버 개발 키트 WTOPCSvr.dll
현재 중국에서 WTOPCsvr.dll을 사용하는 분들이 많습니다.
WTOPCSvr.dll을 사용하여 OPC 서버를 개발하는 것이 매우 편리하고 소스 코드도 매우 훌륭합니다.
유일한 것은 이 개발 키트를 Laomei에서 개발한 것입니다.
결국 그들은 처음에 중국에 이렇게 많은 사용자가있을지 모르고
한자를 지원하지 않을 것이라고 추정했습니다.
해결책은 유니코드를 지원하도록 코드를 수정하는 것입니다.
또한 VB 환경에서 OPC 서버를 개발할 때 StringToByte 함수를 다음과 같이 수정한다
Sub StringToByte(strString As String, ByteArray() As Byte)
' 문자열을 바이트 배열로 변환, 한자는 2바이트 차지
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