Komprimierung mal anders?

[Kiffi]

Hallo,

ich hatte grade ne Idee, wie man Dateien unkonventionell komprimieren
könnte. Man nehme eine beliebige Datei und wandele sie in ein Bild um.
Vier Bytes werden zu einem Pixel, wobei die Farbe des Pixels aus dem
Wert der Bytes resultiert (32Bit Farbtiefe). Hiernach speichert man das
so entstandene Bild als PNG ab, welches eine verlustfreie Komprimierung
(deflate) unterstützt.

Was denkt Ihr? Eine Scheißhaus-Idee (gemäß des Ortes, wo sie entstand)?

Grüße ... Kiffi

[DarkDragon]

Also es bringt keinen Vorteil und einen Nachteil: der PNG Header ist dabei und die Dateigröße muss exakt durch 32bit teilbar sein.

[rolaf]

Was denkt Ihr? Eine Scheißhaus-Idee (gemäß des Ortes, wo sie entstand)?

Also ich denke gerade das ich auf den Scheisshaus auch immer die besten Ideen habe. Da ist man so entspannt und erleichert, vielleichts liegts aber auch am "Gas" in der Luft. Aber egal ich finde deine Idee nicht schlecht, jedoch dürfte die Komprimierung als PNG wenig bringen, da ja hundertausende verschiedene Farben Pixel für Pixel nebeneinander entstehen. Zu komprimieren gibts da wenig.

Wäre aber interessant seine Daten als Bild zu sehen. Vielleicht schlummern da "Meisterwerke" in der Datensammlung.

[STARGÅTE]

Ich bezweifel das das Resultat sich dann stark von anderen Verfahren unterscheidet.

Schließlich ist PNG auch nur n Komprimierungsverfahren.
Und auch dieses Verfahren arbeitet ja nicht nach Pixel (bildlich gesprochen) sonden auch nur mit Bytes.

Es ist natürlich richtig das PNG nach anderen "Ähnlichkeiten" in einer Datei sucht als RAR oder ZIP.
Daher ist es auch klar, dass ein BMP-Bild welches RAR kompribiert ist größer ist als wenn es mit PNG komprimiert ist.
Ich bezweifel allerdings das bei einer Textdaei ähnlich ist, würde sogar behaupten es ist genau andersrum.

[DarkDragon]

Ich fände es interessanter, wenn du Texte per DCT (JPEG) komprimierst, dann beim dekomprimieren die Rechtschreibfehler beseitigst und eine semantische Heuristik o.ä. einfügst.

Komprimierung wird nicht nur zum komprimieren verwendet, sondern auch zur Ähnlichkeitssuche (angenommen wir haben 3 gleich große Multimedia-Datensätze A, B, C, und man will wissen ob B zu A ähnlicher ist als C zu A, dann schaut man ob Komprimieren(Aneinanderhängen(A, B)) < Komprimieren(Aneinanderhängen(A, C))).

[RSBasic]

@Kiffi
Hehe, so eine "Scheißhaus"-Idee hatte ich auch vor zwei Jahren und wollte versuchen, ebenfalls ein "gutes" Komprimierungsverfahren zu erstellen, aber war leider doch nicht so gut wie ich dachte.

[STARGÅTE]

Ich habe mal die Idee aufgegriffen und dieses Beispiel geschrieben:

Code: Alles auswählen

Enumeration
	#File
	#Image
	#NewFile
EndEnumeration

Define X.i, Y.i, FileName.s
UsePNGImageEncoder()
UsePNGImageDecoder()

FileName = OpenFileRequester("Dateiauswahl", "", "*.*", 0)
If FileName And ReadFile(#File, FileName)
	Length = Lof(#File)
	Debug "Länge : "+Str(Length)
	Size = Round(Sqr(Round(Length/4,#PB_Round_Up)),#PB_Round_Up)
	Debug "Größe : "+Str(Size)+"×"+Str(Size)+"×32"
	CreateImage(#Image, Size, Size, 32|#PB_Image_Transparent)
	StartDrawing(ImageOutput(#Image))
		DrawingMode(#PB_2DDrawing_AllChannels)
		For Y = 0 To Size-1
			For X = 0 To Size-1
				If X = 0 And Y = 0
					Plot(X, Y, Length)
				Else
					Plot(X, Y, ReadLong(#File))
				EndIf
			Next
		Next
	StopDrawing()
	CloseFile(#File)
	SaveImage(#Image, GetTemporaryDirectory()+GetFilePart(FileName)+".png", #PB_ImagePlugin_PNG)
	Debug "Gespeichert als PNG : "+GetTemporaryDirectory()+GetFilePart(FileName)+".png"
	Debug "Dateigröße : "+Str(FileSize(GetTemporaryDirectory()+GetFilePart(FileName)+".png"))
	LoadImage(#Image, GetTemporaryDirectory()+GetFilePart(FileName)+".png")
	CreateFile(#NewFile, GetTemporaryDirectory()+GetFilePart(FileName)+".png.txt")
	StartDrawing(ImageOutput(#Image))
		DrawingMode(#PB_2DDrawing_AllChannels)
		For Y = 0 To Size-1
			For X = 0 To Size-1
				If X = 0 And Y = 0
					Length = Point(X, Y)
				Else
					WriteLong(#NewFile, Point(X, Y))
				EndIf
			Next
		Next
	StopDrawing()
	FileSeek(#NewFile, Length)
	TruncateFile(#NewFile)
	CloseFile(#NewFile)
	RunProgram(GetTemporaryDirectory()+GetFilePart(FileName)+".png.txt")
	Debug "Dekomprimiert als TXT : "+GetTemporaryDirectory()+FileName+".png.txt"
	Debug "Länge : "+Str(Length)
EndIf

Funktioert erstaunlich gut (auch in Bezug) auch das Resultat.

[Kevin]

@Kiffi
Das ist ein alter Hut so etwas hat Jilocasin schon vor ein paar Jahren gemacht.
Ich finde es gerade nur nicht...

[rolaf]

Funktioert erstaunlich gut (auch in Bezug) auch das Resultat.

Hier ne 60 kb Adressliste mit 800 Adressen auf 27 kb PNG-Bildchen gepackt.
Sind nach Adam Riese 45%.
Zip schafft auch nur 26 kb für die gleiche Datei.

Das Bildchen könnte man nun auf Papier archivieren, aber ich schätze mal die mangelnde Farbechtheit der Druckerfarben sowie ein Scanprozess würde die Daten schrotten.

[RSBasic]

@STARGÅTE
Jo, sieht fast wie mein damaliges Prog' aus.
Leider funktioniert es nur bedingt bzw. leider nicht so stark wie die Komprimierungsart wie bei WinRAR.
Einige Dateien lassen sich damit zwar gut komprimieren, aber nicht alle. Ich wollte damals eigentlich was Besseres "erschaffen", habe zwar versucht, aber bin damals gescheitert und habe aufgegeben.