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