PHP gzcompress(); Delphi ZDecompressStr ( ) Data error

[Rollo62]

http://www.indyproject.org/docsite/h...TIdStream.html

Sorr^, der Link lässt sich nicht gut kopieren.
Aber muss nicht der Stream als 2. Parameter da rein ?

Rollo

[luisk]

Zitat von Rollo62:

http://www.indyproject.org/docsite/h...TIdStream.html

Sorr^, der Link lässt sich nicht gut kopieren.
Aber muss nicht der Stream als 2. Parameter da rein ?

Rollo

den Stream brauch ich nicht daher nil. (den verwende ich, wenn ich eine Datei auf den Server lade und mit php entzippe - das funktioniert)

Ich übergebe einen SQL-Befehl als HTML-Parameter.
Die Rückgabe klappt auch super, wenn ich nicht komprimiere.

Wenn ich komprimiere kommt auch eine Antwort, mit einem String der nur ca 1/10 lang ist.
Beim Dekomprimieren kommt dann das Problem.

[hstreicher]

Nur so eine Vermutung
Transliterationsprobleme
Da wir weder die Delphi Version kennen noch den Typ derLS Variable
Vermute ich das der Rückgabewerte durch die Übergabe an die Variable in einen andere Darstellung konvertiert wird. Ansi UTF8 Widestring und. Versuche es mit ein Memorystream

Möglichkeit 2 du verwendest Pascal Strings die haben vorne 1 bis 2 Byte Längen Information und dein @ls im decompress faengt mit den falschen Bytes an

https://www.delphi-treff.de/tipps-tr...ll-downloaden/


Mfg Hannes

[mjustin]

Die Indy TIdHTTP Komponente kann auch von Haus aus GZIP dekomprimieren, dazu muss einfach eiine TIdCompressorZLib Komponente erzeugt und der TIdHTTP.Compressor Property zugewiesen werden. Fundstelle: http://stackoverflow.com/a/8597492/80901

[luisk]

Zitat von mjustin:

Die Indy TIdHTTP Komponente kann auch von Haus aus GZIP dekomprimieren, dazu muss einfach eiine TIdCompressorZLib Komponente erzeugt und der TIdHTTP.Compressor Property zugewiesen werden. Fundstelle: http://stackoverflow.com/a/8597492/80901

Das hab ich probiert - Funktioniert aber nicht !

Diese Variante bleibt auch hängen :
Quelle:
https://www.experts-exchange.com/que...P-content.html

Delphi-Quellcode:

 idhttp1.Intercept:= self.IdCompressionIntercept1;
           ls :=  idhttp1.Put( l_url , nil );

hier kommt die Meldung "Dekomprimierungsfehler":

Delphi-Quellcode:

idhttp1.Intercept:= self.IdCompressionIntercept1;
       idhttp1.Get( l_url , l_in_Stream );

Vielleicht klappt es bei Dir und Du kannst mir nen Tip geben.

[Valle]

Zitat von luisk:

Das hab ich probiert - Funktioniert aber nicht !

Wenn du das machst musst du das zippen auf der Serverseite weglassen. Gzip funktioniert dann völlig transparent. Um das zu überprüfen kannst du beispielsweise Wireshark benutzen und dir den Traffic anschauen. Dieser sollte dann Gzip sein.

Zitat von luisk:

das mit dem Zippen funktioniert doch auf der Serverseite
Das Problem liegt doch bei IdHTTP1: TIdHTTP; in meiner Delphi-FMX-Anwendung

Deswegen ja mein Vorschlag. Wenn das nicht funktioniert, bau die encode-Zeile aus dem Server aus und die decode Zeile aus dem Client. Sag deinem Webserver er soll Gzip machen (wahrscheinlich tut er das schon) und gib deinem HTTP-Client wie mjustin beschrieben hat die Decompressor Property.

Anschließend ist die Kompression völlig transparent und ohne eine einzige Zeile Code. Klingt das nicht erstrebenswert?

Und um das zu überprüfen (weils ja transparent ist) kann man sich noch Wireshark oder ähnliche Tools zu Hilfe nehmen.

[luisk]

https://varvy.com/pagespeed/enable-compression.html
The code below should be added to your .htaccess file...
<ifModule mod_gzip.c>
mod_gzip_on Yes
mod_gzip_dechunk Yes
mod_gzip_item_include file .(html?|txt|css|js|php|pl)$
mod_gzip_item_include handler ^cgi-script$
mod_gzip_item_include mime ^text/.*
mod_gzip_item_include mime ^application/x-javascript.*
mod_gzip_item_exclude mime ^image/.*
mod_gzip_item_exclude rspheader ^Content-Encoding:.*gzip.*
</ifModule>
Das hab ich jetzt mal ausgeführt. Mal sehen, was passiert.

[luisk]

Zitat von hstreicher:

Da wir weder die Delphi Version kennen noch den Typ derLS Variable

Mfg Hannes

Delphi Version : 10 Seattle
ls : string;

Danke für die Tips, es haut immer noch nicht hin.
Vielleicht hat der eine oder andere das auch mal umgesetzt.

[hstreicher]

Was wird denn gesendet?

wenn ein Ansistring geliefert wird wird er wenn er in LS abgespeichert wird
in einen WIdestring (also 16 Bit/Char) umgebaut und die Binäre Codierung ist hinüber

mfg Hannes

[luisk]

ls=idhttp1.Put( l_url , nil );
liefert System.string


Vielleicht kann das mal noch jemand testen.