Einzelnen Beitrag anzeigen

Benutzerbild von himitsu
himitsu

Registriert seit: 11. Okt 2003
Ort: Elbflorenz
44.184 Beiträge
 
Delphi 12 Athens
 
#7

AW: GZip-Stringinhalt extrahieren

  Alt 31. Okt 2024, 20:26
Aber warum kommt da ein Datenfehler?

Delphi-Quellcode:
uses System.NetEncoding, System.ZLib;

procedure TForm2.FormCreate(Sender: TObject);
var
  myBytes, myText: TBytes;
begin
  const Value = 'H4sIAAAAAAAAA/NIzMnJVwhJrSgBAM5sM2wKAAAA';
  myBytes := TNetEncoding.Base64.DecodeStringToBytes(Value);
  ZDecompress(myBytes, myText); // <<<<<<<<
  //...
end;
Ob als Stream oder Bytes, sollte doch keinen Unterschied machen.


[add] Ahhh, die Bits.

Zitat:
WindowBits + 16
Wenn das Bits sind, müsste es dann nicht OR anstatt + sein?
(auch wenn es HIER zufällig passt)


OK, steht in der Hilfe ... 8 bis 15
und z.B. "add 16" für spezielles GZip-Zeugs.

Anzahl der Bits ... nicht selbst eine BitMaske.

Delphi-Quellcode:
WindowBits := $0F;
if parUseGZip then WindowBits := $1F;
//if parUseGZip then WindowBits := WindowBits or $10;

WindowBits := %0000_1111;
if parUseGZip then WindowBits := %0001_1111;
//if parUseGZip then WindowBits := WindowBits or %0001_0000;
$2B or not $2B

Geändert von himitsu (31. Okt 2024 um 20:38 Uhr)
  Mit Zitat antworten Zitat