gzip String von PHP Script (gzencode) in VB.NET entpacken

  • VB.NET
  • .NET (FX) 3.0–3.5

    gzip String von PHP Script (gzencode) in VB.NET entpacken

    Hallo zusammen,

    ich habe ein PHP-Skript welches Daten aus einer MySQL Datenbank liefert. Diese werden per http-request von meiner vb.net anwendung abgeholt. Klappt alles super!

    Jetzt gibt es aber auch den Fall das die Datenmenge hoch ist. Daher dachte ich mir ich komprimiere den output auf der PHP Seite und dekomprimiere ihn auf VB Seite um Zeit zu sparen. Ich schaffe es aber nicht einen mit gzencode gepackten String auf der VB Seite mit der System.IO.Compression.GZipStream Klasse zu dekomprimieren.

    Hat sowas vielleicht schomal einer gemacht und kann mir ein funktionierendes Stück Code bereitstellen? Wäre sehr dankbar.

    Das ist der Code auf der PHP Seite:

    Quellcode

    1. $output = base64_encode(gzencode('Hallo Welt',9));


    Ich habe mehrere Beispiele im Netz gefunden, ausprobiert. Immer auf das base64 encoding geachtet aber ich bekomme den Ursprung nicht herauskodiert. Oft bekomme ich die Fehlermeldung das mit dem Magic Byte etwas nicht stimmt.

    Ich hoffe mir kann jemand helfen!

    Vielen Dank im Voraus,

    Patrick


    PS: Folgenden Code habe ich probiert


    Quellcode

    1. Public Shared Function UnZip(compressedText As String) As String
    2. Dim gzBuffer As Byte() = Convert.FromBase64String(compressedText)
    3. Using ms As New MemoryStream()
    4. Dim msgLength As Integer = BitConverter.ToInt32(gzBuffer, 0)
    5. ms.Write(gzBuffer, 4, gzBuffer.Length - 4)
    6. Dim buffer As Byte() = New Byte(msgLength - 1) {}
    7. ms.Position = 0
    8. Using zipStream As New System.IO.Compression.GZipStream(ms, System.IO.Compression.CompressionMode.Decompress)
    9. zipStream.Read(buffer, 0, buffer.Length)
    10. End Using
    11. Return System.Text.Encoding.Unicode.GetString(buffer, 0, buffer.Length)
    12. End Using
    13. End Function