Delphi-PRAXiS - Dateiformat verarbeiten

Delphi-PRAXiS (https://www.delphipraxis.net/forum.php)

- Programmieren allgemein (https://www.delphipraxis.net/40-programmieren-allgemein/)

- - Dateiformat verarbeiten - Daten dekomprimieren (https://www.delphipraxis.net/165665-dateiformat-verarbeiten-daten-dekomprimieren.html)

Dateiformat verarbeiten - Daten dekomprimieren

Hallo,

Dieses Thema hat nicht unbedingt etwas mit Delphi zu tun aber in den Off-Topic Bereich passt es IMHO auch nicht.

Ich möchte das Dateiformat *.mcr (Minecraft-Region) verarbeiten. Ermal nur um zu sehen wie das da so aussieht und 2. Hab ich vllt. vor ein Programm zu schreiben wofür das dann nötig wäre. Eine Dokumentation zu dem binären Format gibt es

hier.
Mich interessieren primär die Chunk Daten. Also habe ich die ersten 8 KiB, die nur Struktur-daten und Timestamps enthalten übersprunngen. Nun folgen hintereinander Chunk-Daten die den Aufbau:

Code:

			    Byte          | Beschreibung

  0 - 3          | länge der Daten (Big-Endian)

  4              | Kompressionstyp [1..2] 1: Gzip (RFC1952), 2: Zlib (RFC1950)

  5 - (length-1) | komprimierte Daten

Nun habe ich mir einen (weil einfacher den 1.) Chunk genommen und mit einem kleinen Delphiprogramm die Daten (Byte 5 - (lenght-1)) kopiert und in einer Datei gespeichert.
Wenn ich dieser jetzt die Endung .gz oder .zip gebe und sie mit winrar öffne erhalte ich die Meldung die Datei sei beschädigt.
Vermutlich liegt da mein Fehler!

Nun wie kann ich diese Daten entschlüsseln damit ich den Chunk im NBT Format habe.
Ich glaube nicht das ich die falschen Daten auswähle denn, ich hab's mir mit nem Hex-Editor angesehen die ersten Bytes sind alle richtig. Beim Ende weiß ich es nicht genau aber das die Größe der Datei lenght-1 Bytes ist nehme ich an dass auch das stimmt. Trotzdem hier der Code

Delphi-Quellcode:

			function SwapLong(aValue: LongWord): LongWord; assembler

asm

  BSWAP EAX;

end;

procedure TForm1.Button1Click(Sender: TObject);

var

  myFile    : File;

  data : array of byte;

  length   : Cardinal;

begin

  AssignFile(myFile, edit1.Text);

  Reset(myfile,1);

  Seek(myFile,8192); //8 KiB

  BlockRead(myfile,length,4);

  length := swapLong(length);

  seek(myFile,filepos(myFile) + 1);

  length := length -1;

  setLength(data,length);

  BlockRead(myFile,data[0],length);

  CloseFile(myFile);

  AssignFile(myFile, edit2.Text);

  ReWrite(myfile,1);

  Blockwrite(myFile,data[0],length);

  CloseFile(myFile);

end;

PS: Das Komprimierungsformat ist laut 4. Byte Zlib (RFC1950)

Crosspost:

http://www.gutefrage.net/frage/mcreg...aten-entpacken

Gruß roboter202