PHP gzcompress(); Delphi ZDecompressStr ( ) Data error

[luisk]

Hallo,
ich will über php einen String komprimieren

Delphi-Quellcode:

$compressed = gzcompress($s, 9);
echo  $compressed ;

und über delphi dekomprimieren:

Delphi-Quellcode:

ls :=  idhttp1.Put(
       'http://127.0.0.1/.....php?bef='+  in_s_SQL
                   , nil );
          ld :=   ZDecompressStr ( @ls  );

Problem: Meldung 'data error' beim Aufruf ZDecompressStr ( );
Woran kann es liegen ?

[Rollo62]

Bist du sicher das Put etwas zurückliefert ?

http://www.indyproject.org/docsite/h...ile=index.html

Rollo

[luisk]

Zitat:

Zitat von Rollo62 (Beitrag 1339066)

Bist du sicher das Put etwas zurückliefert ?

http://www.indyproject.org/docsite/h...ile=index.html

Rollo

ja , das klappt einwandfrei. Ich kann den gezipten Code auch mit dem Debugger sehen.
Ohne Komprimierung läuft auch alles optimal.
Jetzt will ich halt noch die Übertragung optimieren.
Kann es sein, dass die Algorithmen von PHP und Delphi nicht zusammen passen ?

[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:

Zitat von Rollo62 (Beitrag 1339068)

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:

Zitat von hstreicher (Beitrag 1339082)

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.