C function til VB Function

readc er ikke en standard c funktion men jeg er helt overbevist om
at den læser 1 byte fra filen.

0x7f og 0x80 er hexadecimale konstanter. Henholdsvis alle bit undtagen
højeste sat og kun højeste bit sat. Binært 01111111 og 10000000.

Jeg kan ikke gennemskue algoritmenten.

ok.. hvordan funker denne her så

hvad gør den: | er det ( <> støre eller mindre)
den her: pos++ må så være pos = pos + 1

sum = (sum << 7*pos++) | (c & 0x7f);

| betyder bitvist or (eller)

"sum = (sum << 7*pos++) | (c & 0x7f); " betyder; tag sum og skift den 7 pladser op for hver runde, og fyld de nederste 7 bit af c på i bunden af sum.

Man kunne forestille sig at man modtog en række bytes hvor MSB (højeste bit) er sat for den sidste byte og ikke sat for de første. For hver byte der modtages puttes de nederste 7 bit fra byten ind i et resultat.

Det passer rimeligt med det koden, bortset fra at det ikke rigtigt giver mening at skifte sum op med 7 gange positionen for hver runde (men kun 7 for alle runder).

Korrektion: MSB er sat i alle bytes undtagen den sidste.

Der kan ihvertfald ikke være mange gennemløb ellers vel <<7*pos
jo mist mening.

byteBuf er det data som er i wbmp-file i array form

--------------------
Header Type:
    byteBuf(0)
    byteBuf(1)

Width
    byteBuf(2)
    byteBuf(3)

Height
    byteBuf(4)
    byteBuf(5)
--------------------

Et wbmp-billede på 120x120

Width
    byteBuf(2) = 120
    byteBuf(3) = 255

Height
    byteBuf(4) = 120
    byteBuf(5) = 255
--------------------

det passer måske meget godt, men et wbmp-billede på 130x130

Width
    byteBuf(2) = 129
    byteBuf(3) = 2

Height
    byteBuf(4) = 129
    byteBuf(5) = 2
--------------------

og et wbmp-billede på 600x600

Width
    byteBuf(2) = 132
    byteBuf(3) = 88

Height
    byteBuf(4) = 132
    byteBuf(5) = 88
--------------------

Jeg kan sq ikke se hvordan den bliver regnet ud??

Jo.

129 & 0x7f er 1
1 << 7 + 2 er 130

132 & 0x7f er 4
4 << 7 + 88 er 600

!

Og 120 er 120.

(fordi high bit ikke er sat stopper løkken)

Og den programmør der har lavet den C kode skulle have et los i røven.

ja sikker... men hvordan for jeg så lavet koden om til visual basic?

hvordan for du: 129 & 0x7f = 1
og hvad er: <<

??

Her er VB kode:

Function size(b1 As Integer, b2 As Integer) As Integer
    If b1 < 128 Then
        size = b1
    Else
        size = (b1 Mod 128) * 128 + b2
    End If
End Function

Function testsize()
    MsgBox Str(size(129, 2))
    MsgBox Str(size(132, 88))
End Function

<< er bitvis shift til venstre.

<<1 er det samme som *2
<<2 er det samme som *4
<<3 er det samme som *8
etc.

VB koden er vist rimelig klar.

ja det virker fint 1000000000000000000000000000000000000 tak for hjælpen... fedt :-)