Delphi-PRAXiS
Seite 1 von 2  1 2      

Delphi-PRAXiS (https://www.delphipraxis.net/forum.php)
-   Netzwerke (https://www.delphipraxis.net/14-netzwerke/)
-   -   Delphi gzip-String "entpacken"??? (https://www.delphipraxis.net/124639-gzip-string-entpacken.html)

romber 22. Nov 2008 00:30


gzip-String "entpacken"???
 
Hallo!

Mit Hilfe von PCap verfolge ich den Datenstrom einer AJAX-basierten Webseite. Als Ergebnisse dieser Verfolgung erhalte ich Strings, die so aussehen (nur ein Beispiel):

HTTP/1.1 200 OK
Date: Fri, 21 Nov 2008 22:24:18 GMT
Server: Apache
Vary: Accept-Encoding
Content-Encoding: gzip
Keep-Alive: timeout=5, max=68
Connection: Keep-Alive
Transfer-Encoding: chunked
Content-Type: text/javascript;charset=ISO-8859-1

a
..........
334
..moV......X.`'...;`....I...Y........srr8x;.c.y... ..K.TP....r...$cX{........].............gE%y..._.|.a>/.7.,..!y.S..
V.....i^....`%..x..0M."..s...gE..<...a..0..{=B.... ......'.^.X.z......0.......B..?
.........!....."..`).......&.9...../Kl...U[3LR...y.)..a0.F.........%.1.@.w.M..7..fu.~@.OPoP.. ..R^.Y\V.._'..........%KS..9K%..O.-.F.n..D.P.LN..w.........Rn.]^e3,..=}Y.A...5..N.Hj8D_...@]|..X%.XX..n.r.....e.e....7..F...7.....?.e.YQ.v
.....-T.O.~.. hhz....Cz.....tew..3...y.=...b= ..Y+:..6j\..9~..e.\.*-....O.c...............8.S....p.c.3x.....h.
.3..G....1~...x. 3.=....fz...g?...c.,....M....L...*...4..2..)C.}... ..I......FG@V...^NR..VW,.t..6..*Qu......f..
..
0


wobei das erste Teil Response-Header ist und das zweite Teil die eigentlichen Daten. Aus dem Header kann man sehen, dass die Daten mit gzip gepackt sind. Wie kann ich diese Daten in lesbaren Text "entpacken"?

DGL-luke 22. Nov 2008 00:32

Re: gzip-String "entpacken"???
 
per Hier im Forum suchengzip solltest du einige Libraries finden, die gzip unterstützen.

romber 2. Feb 2009 15:43

Re: gzip-String "entpacken"???
 
Leider habe ich bis jetzt nichts gefunden, womit ich die Daten entpacken kann.
Hat jemand noch Ideen oder vielleicht fertige Funktion?

himitsu 2. Feb 2009 16:01

Re: gzip-String "entpacken"???
 
es kommt drauf an wie der String gepackt wurde ... unter umständen ist da noch ein kleiner Header davor

kann nur grad nicht nachsehn wie groß der sein könnte

notfalls einfach ausprobieren ... etwa so (wenn's sich nicht entpacken läßt, dann erstes Zeichen löschen und nochmals versuchen)
Delphi-Quellcode:
S := .....; // dein string
While not GZipDeflate(S, OutS) do Delete(S, 1, 1);

romber 2. Feb 2009 16:14

Re: gzip-String "entpacken"???
 
Danke für den Tipp!

Wo kommt dieses GZipDeflate her?

himitsu 2. Feb 2009 16:40

Re: gzip-String "entpacken"???
 
keine Ahnung ... ist 'nur 'nen Beispiel :roll:

mußt sozusagen deine dir zur Verfügung stehenden Funktionen da einbauen.

Code:
anfang:
  versuche zu entpacken
    geht > springe raus
  1. zeichen löschen
springe zu zum anfang
raus:
was ich noch weiß, daß ich damals in PHP meine Strings per "Deflate" gepackt hatte und es so verschickte

romber 2. Feb 2009 16:47

Re: gzip-String "entpacken"???
 
Zitat:

Zitat von himitsu
mußt sozusagen deine dir zur Verfügung stehenden Funktionen da einbauen.

Genau das ist das Problem! Die Routine zum Entpacken habe ich nicht! Diese brauche ich. Ich habe einige Funktionen hier gefunden, davom mehrere auf Basis von ZLib, aber irgendiwie konnte ich diese nicht zum Laufen bringen können, weil der Compiler die Funktionen "compressBuf, decompressBuf" nicht finden konnte. :(

Assertor 2. Feb 2009 18:25

Re: gzip-String "entpacken"???
 
Hi romber,

leider schreibst Du nicht, welche Delphi Version Du nutzt. D2006 hat z.B. zlib 1.1.x und D2009 hat zlib 1.2.3 mit dabei. Einfach zLib in die uses Klause nehmen und nutzen.

Für die Benutzung der zlib Unit einfach mal die Unit öffnen und gucken, welche Funktionen dort in der implementation stehen. Alternative: mal im Internet nach zLibEx suchen. Dieses bietet zlib v1.2.3 auch für ältere Delphi Versionen.

Hinweis: Willst Du die Daten aus Deinem Netzwerk Sniffer (PCab) so verwerten, wie diese oben stehen? Weil dort ja der Zeichenbereich begrenzt ist somit Informationen schon flöten sind (das also mit dem Entpacken des gz nichts wird)...

Gruß Assertor

gammatester 2. Feb 2009 18:40

Re: gzip-String "entpacken"???
 
Zitat:

Zitat von romber
Genau das ist das Problem! Die Routine zum Entpacken habe ich nicht! Diese brauche ich. Ich habe einige Funktionen hier gefunden, davom mehrere auf Basis von ZLib, aber irgendiwie konnte ich diese nicht zum Laufen bringen können, weil der Compiler die Funktionen "compressBuf, decompressBuf" nicht finden konnte. :(

Kannst Du das Teil mit gzip entpacken, wenn Du den Gzip-Teil als Datei speicherst mit Extension .gz?

In meinen zlib-Pascal-Port findest Du die Unit gzIO in zlibw114_2008-09-07.zip, die dann benutzt werden kann. Wenn nicht könnte eventuell ein kleiner Eingriff in den Quellcode weiterhelfen.

Gruß Gammatester

romber 2. Feb 2009 18:42

Re: gzip-String "entpacken"???
 
@Assertor

Danke für die Antwort!
Ich habe Delphi 2009 und ich war mir auch sicher, dass es an der Delphi-Version liegt. Aber vielmehr beschäftigt mich jetzt das hier:

Zitat:

Zitat von Assertor
Willst Du die Daten aus Deinem Netzwerk Sniffer (PCab) so verwerten, wie diese oben stehen? Weil dort ja der Zeichenbereich begrenzt ist somit Informationen schon flöten sind (das also mit dem Entpacken des gz nichts wird)...

Genau. So wie die Daten oben stehen, so habe ich diese auch. Diese Daten lese ich aus einem Record aus, Datentyp ist AnsiString. Sind diese Daten wirklich nicht vollständig?


Alle Zeitangaben in WEZ +1. Es ist jetzt 21:09 Uhr.
Seite 1 von 2  1 2      

Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024 by Thomas Breitkreuz