zLib und indy-Server - String komprimieren

[TomyN]

Hallo

Ich habe eine Anwendung, auf der ein TIdHTTPServer läuft. Der liefert u.a. javascript aus, dass vom Client aus Daten beim Server abfragt.
Die Datenabfrage geht über POST. Das ganze funktioniert auch recht gut, aber manchmal schickt der Server viel Daten, was dann bei langsamen Netzwerk natürlich dauert ..
Im Moment sende ich die Daten immer über AResponseInfo.ContentText.

Jetzt habe ich mir überlegt, ich könnte ja komprimieren.
Der Browser meldet im Header-AcceptEncoding 'gZip, deflate'.
In meiner Naivität habe ich gedacht, ich füge einfach folgendes ein:

Code:

//hs mit Daten füllen
zLib.ZSendToBrowser(hs); //hs enthält die Daten in Stringform
AresponseInfo.Contentencoding := 'deflate'
....
AresponseInfo.ContentText := String(utf8Encode(hs));  //hab hier auch schon nur hs gehabt
....
AresponseInfo.WriteContent;

Aber natürlich funktioniert das nicht. Es gibt keine Fehlermeldungen, aber der Request bleibt 'offen', d.h. im Firefox Debuger sehe ich nur den Request, aber er wird nicht abgeschlossen...

Ich vermute, dass ich die zLib irgendwie parametrieren muss, nur weiss ich nicht wie.
Ich weiss auch nicht, ob eine 'selektive' Komprimierung überhaupt sinnvoll / möglich ist (der Rest besteht auch Datenhäppchen, die meist < 1k sind).

Für jeden Hinweis wäre ich dankbar

Tomy

[TomyN]

So, nun konnte ich es selbst lösen.

Code:

if (Length(hs) > 200) And (isComp) then begin                        //hs Sendedaten als String
    i:= Pos('gzip', request.AcceptEncoding);                         //Prefer gzip
    ms:= TMemoryStream.create;
    if ( i < 0) then begin
      //Use Deflate
      zcs:= zLib.TZCompressionStream.Create(ms);
      AResponseInfo.ContentEncoding := 'deflate';
    end else begin
      //Use gZip
      i:= 15 + 16;
      zcs:= zLib.TZCompressionStream.Create(ms, zcDefault, i);
      AResponseInfo.ContentEncoding := 'gzip';
    end;
    aBl:= ToBytes(hs, IdGlobal.IndyTextEncoding_UTF8);
    zcs.WriteData(abl, Length(abl));
    zcs.free;
    AResponseInfo.ContentStream:= ms;
  end else begin
    AResponseInfo.ContentText :=  hs;
  end;
  AResponseInfo.WriteContent;

[Luckie]

Dann bitte auch vollständig, falls jemand das auch benötigt. Es fehlen die Variablendeklarationen, von welchem Typ sie sind und eventuell ein Kommentar für was sie da sind bzw. was sie beinhalten.

[TomyN]

Ein Teil des Codes würde Euch verunsichern

Also ich erkenne da eigentlich nix, was unklar wäre...

[Luckie]

Zitat von TomyN:

Ein Teil des Codes würde Euch verunsichern

Also ich erkenne da eigentlich nix, was unklar wäre...

Na ja, wenn man etwas nachdenkt. Ok. Aber der vollständigkeithalber wäre es schön schön.