Announcement

Collapse
No announcement yet.

Funtion auf C# in VB.net... komische sache

Collapse
X
  • Filter
  • Time
  • Show
Clear All
new posts

  • Funtion auf C# in VB.net... komische sache

    hallo,
    ich arbeite gerade mit der Csp2.dll. (Barcodes von einem Gerät auslesen)
    Zu jedem Barcode wird eine Zeit gespeichert, das Format ist mir auf dem Gerät unbekannt.

    Nun habe ich ein Beispiel gefunden (leider in C#) mit dem man die Uhrzeit des Barcodes (Zeit des Scannens) auslesen kann:

    Code:
    NoMangle long DLL_IMPORT_EXPORT csp2TimeStamp2Str(unsigned char *Stamp, char *value, long nMaxLength);
    
    ...
    
    char	Packet[64],aBuffer[256],TimeStamp[32];
    
    ...
    for (i=0;i<anzahl;i++) 
    		{
    			PacketLength = csp2GetPacket(Packet,i,63); /* Read packets */
    csp2TimeStamp2Str((unsigned char *) &Packet[PacketLength-4], 
    TimeStamp,30);
    }
    Nun erhalte ich in Timestamp den fertig formatierten Timestamp.

    Jetzt habe ich mal versucht das ganze nach VB.NET umzuschreiben, und das ist dabei rausgekommen:
    Code:
    Declare Function csp2TimeStamp2Str Lib "Csp2.dll" (ByRef Stamp As Long, ByRef value As Long, ByVal nMaxLength As Integer) As Integer
    
    ...
    Dim packet(64) As Byte
    Dim stamp As Long
    ...
            For i = 0 To count - 1
                PacketLength = csp2GetPacket(packet(1), i, 63)
    ...
    
    csp2TimeStamp2Str(stamp & packet(PacketLength - 4), value, 30)
    Nun bekomme ich für value folgenden Wert: 3905247809870903601
    Beim nächsten Barcode unterscheiden sich ein paar stellen, sieht also nach einem ordentlichen Timestamp aus (nur eben mit gaaanz vielen ziffern)

    Allerding macht mich da was stuzig: plötzlich tauch mittendrin eine Zahl auf, die mit einer 36 beginnt. Die Nächste zahl beginnt wieder mit 39, also so zb:
    3901547
    3901675
    3621478
    3901754

    Also muss was an dieser Prozedur falsch sein. Hat jemand vllt eine Idee woran das liegen könnte?

    ich bin für jeden Lösungsvorschlag dankbar.

    Danke, hibbert
Working...
X