VB6의 부호있는 정수에 대한 바이트 배열

Question

바이트 배열에서 VB6의 부호있는 정수로 변환하는 데 문제가 있습니다. 이것은 .NET에서 BitConverter로하는 것이 간단하지만 VB6로 무엇을해야할지 모르겠습니다. 감사합니다.

Answer 1

불행히도 내장 기능이 없으므로 작성해야합니다. 다음은 시작하기위한 간단한 샘플입니다.

Private Function BArrayToInt(ByRef bArray() As Byte) As Integer 
    Dim iReturn As Integer 
    Dim i As Integer 

    For i = 0 To UBound(bArray) - LBound(bArray) 
     iReturn = iReturn + bArray(i) * 2^i 
    Next i 

    BArrayToInt = iReturn 

End Function 

Answer 2

CopyMemory

에어 코드 (공룡의 공격을 유발 등 PC를 충돌 할 수 있습니다).

Declare Sub CopyMemory Lib "kernel32" Alias "RtlMoveMemory" (dest As Any, _ source As Any, ByVal bytes As Long) 

Dim a() As Byte 
Dim n As Integer 
'get the bytes somehow into a() 
CopyMemory n, a(0), 2