Hi Leute,

habe ein Problem mit dem Dekomprimieren von UnixCompressed Files.

Ich habe die unlzw Funktion von gzip 1.24 von C nach Pascal portiert.
Es funktionier soweit alles, nur das er bei größeren Dateien probleme bekommt.

Vieleicht könnt ihr euch das mal anschauen, ich denke ich habe irgent ein Fehler bei der Portierung gemacht.

ZIP File:
comp.Z - Komptimiertes File
uncomp_tobe - Unkomprimiertes File wie es gZip entpackt
uncomp - Unkomprimiertes File wie es die Unit entpackt
lzwUnit.pas - LZW Unit
lzw.c - gZip LZW Code
lzw.h - gZip LZW Header
unlzw.c - gZip unLZW Code

sag mal, weshalb compilierst dir das C file nicht gleich in delphi? oder bindest das compilat dann anschliessend als Obj file in eine Unit ein?

dann würdest dir doch die ganze arbeit ersparen, von den möglichen fehlerquellen mal abgesehen.

naja, wenns funktioniert.

haste nen Tut irgentwo?

Gruß Sven

kompilieren kannste es ja mit jeden handelsüblichen C compiler oder eben mit delphi2006 ab SP1, hier kannste das auch einbinden und mischen.

ansonsten gehts einfach per direktive
{$L DeinObjFile.OBJ}

und der deklaration der funktionen als external;
bspw: procedure moveword(var sourc, dest;count: integer); external;

'n C compiler gibts hier: DOWNLOAD TURBO C oder bei borland/codegear zum kostenlosen download. <HTH>

So, hab den fehler gefunden, (Happy)
nun funktionierts.

Habe das Unit noch mit nen Kommentar versehen, falls jemand mal drüber stolpert, könnt ihr gerne verwenden.

Gruß Sven

Mr_Sven hat folgendes geschrieben:

So, hab den fehler gefunden, (Happy) nun funktionierts. Habe das Unit noch mit nen Kommentar versehen, falls jemand mal drüber stolpert, könnt ihr gerne verwenden. Gruß Sven

Das Teil kann ich sogar sehr gut gebrauchen. Thx!

Ich mir gerade daraus eine DLL gebastelt, die die zwei Funktionen exportiert. Vielleicht kann es ja jemand gebrauchen.

Dein Goto zu ResetBuf kannst Du auch mit dem Befehl Continue realisieren, der immer auf den nächsten Schleifendurchlauf springt (zusätzlich aber auch die Abbruchbedingung neu prüft).

Ansonsten würde mich auch die Portierung der LZW Compress-Funktionen für ein Projekt interessieren.

BTW: Hatte nicht Windows auch eine LZW.dll???

Anyone who is capable of being elected president should on no account be allowed to do the job.
Ich code EdgeMonkey - In dubio pro Setting.

BenBE hat folgendes geschrieben:

BTW: Hatte nicht Windows auch eine LZW.dll???

Ich dachte auch, ich hätte schon mal was von einer LZW.dll gehört. Bei mir ist jedenfalls keine da.

BenBE hat folgendes geschrieben:

Dein Goto zu ResetBuf kannst Du auch mit dem Befehl Continue realisieren, der immer auf den nächsten Schleifendurchlauf springt (zusätzlich aber auch die Abbruchbedingung neu prüft).

Kann sein, habe dies nicht so genau überprüft.
Ausserdem sind das zwei verschachtelte schleifen und ich weis nicht inwiefern sich die Abbruchbedingung verändert, habe das halt blanco übernommen.
Ich denke die werden sich schon was dabei gedacht haben.

BenBE hat folgendes geschrieben:

Ansonsten würde mich auch die Portierung der LZW Compress-Funktionen für ein Projekt interessieren.

Das habe ich auch überlegt, nur das Problem ist hierbei, dass der Komprimierungsalgorithmus (watn langes Wort) Patentiert ist und man Lizensgebühren zahlen muss.
Siehe: de.wikipedia.org/wik...iv-Welch-Algorithmus

Ich wollt mir hier keine Geldstrafe einhandeln.

Mr_Sven hat folgendes geschrieben:

BenBE hat folgendes geschrieben: Ansonsten würde mich auch die Portierung der LZW Compress-Funktionen für ein Projekt interessieren. Das habe ich auch überlegt, nur das Problem ist hierbei, dass der Komprimierungsalgorithmus (watn langes Wort) Patentiert ist und man Lizensgebühren zahlen muss. Siehe: de.wikipedia.org/wik...iv-Welch-Algorithmus Ich wollt mir hier keine Geldstrafe einhandeln.

Soweit ich das unter de.wikipedia.org/wik...-Algorithmus#Patente sehe, ist das betreffende Patent 2004 ausgelaufen. Für die anderen beiden erwähnten Patente, sieht das genauso aus (wenn man von den 20 Jahren ausgeht). IANAL.

Anyone who is capable of being elected president should on no account be allowed to do the job.
Ich code EdgeMonkey - In dubio pro Setting.

Du könntest recht haben.
Hat vieleicht irgentjemand nen C Programm oder sowas was LZW Komprimieren kann.
Mittlerweite kann ich ja ganz gut C Programme nach Pascal portieren.

Gruß Sven

Eine kurze Suche bei Google ergab folgenden Link:
datacompression.info/LZW.shtml
HTH.
Dort hast Du eine kleine Linksammlung, wo auch zu den Patenten noch ein wenig was steht. Source findest Du ganz unten auf der Page.

//Edit: Könnte auch helfen: www.codeproject.com/cpp/LZWCompression.asp

Anyone who is capable of being elected president should on no account be allowed to do the job.
Ich code EdgeMonkey - In dubio pro Setting.