LZ77 Problem

  • VB.NET

Es gibt 9 Antworten in diesem Thema. Der letzte Beitrag () ist von Quadsoft.

    LZ77 Problem

    Hey Leute,
    Ich will eine Funktion schreiben die Komprimierte LZ77 Bilder aus GBA Spielen extrahieren kann.
    Als vorlage habe ich folgendes Tutorial: LZ77-Tut

    Als denkhilfe folgendes Bild:




    Hier mein Code:

    VB.NET-Quellcode

    1. Public Shared Function DecimalToBinary(ByVal DecimalNum As String) As String
    2. Return DirectCast(Convert.ToString((Convert.ToUInt32(DecimalNum)), 2).PadLeft(8, "0"c), Object)
    3. End Function
    5. Public Shared Function BinaryToDecimal(ByVal Binary As String) As String
    6. Return DirectCast(Convert.ToUInt32(DirectCast(Binary, String), 2), Object)
    7. End Function
    9. Function SwapBytes(ByVal input As String) As String
    10. Dim temp As String = ""
    11. For i = 0 To input.Length - 1 Step 2
    12. temp = input(i) & input(i + 1) & temp
    13. Next
    14. Return (temp)
    15. End Function
    16. Function SwapBytes(ByVal input() As Byte) As String
    17. Dim temp As String = ""
    18. For Each B As Byte In input
    19. temp = insertZero(B) & temp
    20. Next
    21. Return (temp)
    22. End Function
    23. Function insertZero(ByVal input As String, Optional ByVal MinLength As Integer = 2) As String
    24. While input.Length < MinLength
    25. input = "0" & input
    26. End While
    27. Return input
    28. End Function
    29. Public Function unLZ(ByVal BinReader As IO.BinaryReader, ByVal Offset As Integer) As List(Of Byte)
    30. BinReader.BaseStream.Position = Offset
    31. If Not BinReader.ReadByte = &H10 Then Return Nothing
    33. Dim LZ_Länge As String = Val("&H" & SwapBytes(BinReader.ReadBytes(3)))
    34. Dim DekodierByte As String = DecimalToBinary(BinReader.ReadByte)
    35. Dim Puffer As New List(Of Byte)
    36. While Puffer.Count < LZ_Länge
    37. Dim X = 0
    38. While X < 7
    39. If DekodierByte(X) = "0" Then
    40. Puffer.Add(BinReader.ReadByte)
    41. ElseIf DekodierByte(X) = "1" Then
    42. On Error Resume Next
    43. Dim Byte1 As String = insertZero(Hex(BinReader.ReadByte)) & insertZero(Hex(BinReader.ReadByte))
    44. Dim Rückgriff_Länge As String = ("&H" & Byte1(1) & Byte1(2) & Byte1(3)) + 1
    45. Dim Übernahme_Länge As String = Val(Byte1(0)) + 3
    46. Puffer.AddRange(Puffer.GetRange(Puffer.Count - Rückgriff_Länge, Übernahme_Länge))
    48. End If
    49. X += 1
    50. End While
    51. End While
    52. MsgBox(Puffer.Count)
    54. Return Puffer
    55. End Function


    aber irgendwie bekomme ich nen Falschen output(Falsches Bild)
    könnt ihr vllt. den Fehler entdecken? Sitze nun schon seit über 3 tagen an dem Problem X( :D

    Danke schonmal im vorraus :)

    Gruß,
    Julian

    VB.NET-Quellcode

    1. DekodierByte(X)

    um zu bestimmen ob das nächste byte dekodiert ist oder nicht....

    weil DekodierByte ist ja das byte in binär form, also z.B. 00000010 das heißt die nächsten 6 bytes sind unkodiert, dann kommt ein kodierters und dann wieder ein unkodiertes

    Gelöschter Benutzer schrieb:

    um zu bestimmen ob das nächste byte dekodiert ist oder nicht....

    sei b ein Byte/Short/Integer/Long mit Wert x. Dann ermittelt man den Wert des Bits an Position i mit:

    VB.NET-Quellcode

    1. Gesetzt As Boolean = (b AND 1<<i) > 0


    Ich kann jetzt nicht erkennen, wieso irgendjemand was mit String, Char etc machen muss. Der einzige Grund wäre, dass derjenige nix von binärer Logik versteht, aber dann ist die Abhilfe nicht String, sondern LESEN!

    Denn so was ...

    VB.NET-Quellcode

    1. Public Shared Function DecimalToBinary(ByVal DecimalNum As String) As String
    2. Return DirectCast(Convert.ToString((Convert.ToUInt32(DecimalNum)), 2).PadLeft(8, "0"c), Object)
    3. End Function

    ... ist einfach nur grausam!

    EDIT: wozu braucht man "Swap"? Ist der GBA big endian?
    Dann gilt:
    BigEndian16 = (LittleEndian16 << 8) OR (LittleEndian >> 8)

    @ErfinderDesRades: Nein, das schaubild ist von einem User aus einem anderen Forum. Ja es ist Korrekt da er es von einem User hat der sehr viel Erfahrung in dem Bereich hat! Leider ist dieser wegen seines Studiums zurzeit nicht ereichbar :(

Facebook