Binärdaten platzsparend in JSON speichern

[Shark99]

Ich habe als Datenformat UTF-8 JSON (kann nicht geändert werden), und stehe nur vor der Aufgabe RTF Texte möglichst platzsparend darin abzuspeichern.

Habe dazu einen Beispiel-RTF-Code genommen der 30 KB als Widestring hat.

Mit der ZLIB komprimiere ich den auf 7 KB runter.

Wenn ich den jedoch an den JSON Parser übergebe werden in der Datei 29 KB daraus. Ich verschwende also CPU Zeit ohne wirklich Platz zu sparen.

Hat jemand eine andere Idee wie ich hier vorgehen soll? Mit einer End-Kompression von 40% wäre ich schon sehr zufrieden. Es handelt sich um Delphi 2009 mit dem SuperObject JSON Parser.

Danke im Voraus!