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:
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
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:
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
- Public Shared Function UnZip(compressedText As String) As String
- Dim gzBuffer As Byte() = Convert.FromBase64String(compressedText)
- Using ms As New MemoryStream()
- Dim msgLength As Integer = BitConverter.ToInt32(gzBuffer, 0)
- ms.Write(gzBuffer, 4, gzBuffer.Length - 4)
- Dim buffer As Byte() = New Byte(msgLength - 1) {}
- ms.Position = 0
- Using zipStream As New System.IO.Compression.GZipStream(ms, System.IO.Compression.CompressionMode.Decompress)
- zipStream.Read(buffer, 0, buffer.Length)
- End Using
- Return System.Text.Encoding.Unicode.GetString(buffer, 0, buffer.Length)
- End Using
- End Function