vb6 - 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

コピーメモリ

エア コード (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