Libnodave und Zeichenketten

[OKL]

Zuviel Werbung?
-> Hier kostenlos registrieren

Hallo Gemeinde,

hier mein Codebeispiel um Integer-Werte auszulesen. Bislang fand ich leider noch keine VB-Lösung, um statt dessen z. B. 160 Zeichen auszulesen. Hat jemand vielleicht eine Idee?

Private Sub Command1_Click()
Dim Bytes() As Byte
Dim ints() As Integer
Dim x As Long
Dim y As Long
Dim RetCode As Long
Dim Length As Long
Length = 2
ReDim Bytes(0 To Length - 1)
ReDim ints(0 To Length / 2 - 1)
RetCode = daveReadBytes(hConnection, daveDB, 60, 20, Length, VarPtr(Bytes(0)))
If RetCode = daveResOK Then
   CopyMemory ints(0), Bytes(0), Length
   txtread = CStr(ints(0))
   ' Wandlung mit SwapByteOrder16
   SwapByteOrder16 ints(0)
   txtread = txtread & ", " & CStr(ints(0))
   ' Wandlung mit VB Bordmitteln!
   ints(0) = CInt(Bytes(1))
   'ints(0) = CInt(Bytes(0)) * 2 ^ 8
   txtread = txtread & ", " & CStr(ints(0))
Else
    txtread = "daveReadBytes ... DB60 ... failed!"
End If
End Sub

Dankeschön.

MfG

Olaf

 

[OKL]

... ist gelöst ...