[fpc] unit unzip - small error(solved?)

[lichtwicht]

Hallo!
da es mein erster post ist, ein paar Kleinigkeiten zu mir(siehe am Ende des Beitrags).

Nach (langer) Sucherei fand ich endlich o.g. unit unzip (NICHT die in PasZlib !)
( zipFileAndDirCount := FileUnzipEx(PChar(UTF8ToSys(SrcFilePath)), PChar(UTF8ToSys(DstPath)), '*.*'); )

leider stürzte die unit immer mit einem SIGSEGV ab, wenn ich ein Archiv mit langen Verzeichnis-Namen(>80 Zeichen) entpacken wollte!..

ich meine den Fehler gefunden zu haben(!)
und zwar eine ARRAY-Definiton in der UnzipFile()-Funktion:

Code: Alles auswählen

//this is it ! changed by lichtwicht!
//    buf : ARRAY [ 0..80 ] of char;
    buf : ARRAY [ 0..tFSize+1 ] of char;

("neue" unzip.pp im Anhang)

bei mir(win32) funktioniert jetzt alles wie es soll!
1. meint ihr, daß dies die Lösung ist? (theorethisch)
1.2. tFSize ist entweder 79 oder 259 (warumauchimmer...) ich habe mal +1 angehängt...(?)
2. funktioniert es auch auf anderen (B)Systemen?
(3.) wenn das tatsächlich die Lösung sein sollte, bitte ins nächste fpc/lazarus-release einbauen! Wie gesagt(im Header von unzip.pp) muß die Änderung wegen mir nicht extra genannt werden...(Hauptsache es funktioniert!)

greez lichtwicht

@1st post: kurz zu mir:
bin 38 Jahre alt(er Knacker); im Bereich Veranstaltungstechnik tätig; ab ca.16J mit Computern am rumbasteln; bekannte Sprachen: Basic, Pascal, 6502, 8086, (MS-DOS-Batch,) Java (,HTML1.X)...alles nicht wirklich tief(gut);
seit ca. einem halben Jahr/Jahr beschäftige ich mit lazarus/fpc und habe hier aus dem Forum schon viel gelernt! Danke dafür!
btw. ich hasse diesen ganzen UTF8-Mist!, aber ich sehe ein, daß es sein muß...

keep on rocking! (...that I rock, doesn't mean I am made of stone;)

[Euklid]

Hallo Lichtwicht!

ich meine den Fehler gefunden zu haben(!)
und zwar eine ARRAY-Definiton in der UnzipFile()-Funktion:

Das klingt ja hervorragend!
FreePascal und Lazarus sind internationale Projekte - und es gibt eine offizielle Anlaufstelle für Patches, die Bugs beheben. Schau mal hier:
http://bugs.freepascal.org/view_all_bug_page.php" onclick="window.open(this.href);return false;

Wenn du deinen beobachteten Bug samt Patch dort angibst, kannst du sicher sein, dass der Fehler in der nächsten Version von FreePascal/Lazarus behoben sein wird. Die FreePascal-Entwickler werden sich freuen, dass du ihnen die Arbeit des Fehlersuchens abgenommen hast...

bin 38 Jahre alt(er Knacker);

Zum Glück diskriminieren wir hier keine alten Menschen...

im Bereich Veranstaltungstechnik tätig; ab ca.16J mit Computern am rumbasteln;

Ohach - damals hat man die Rechner doch bestimmt noch mit dem Lötkolben zum Laufen gebracht?

Willkommen hier im Forum! Fühl dich wie zuhause...


Viele Grüße, Euklid

[Christian]

Hallo Lichtwicht,

wenn das tatsächlich die Lösung sein sollte, bitte ins nächste fpc/lazarus-release einbauen!

http://wiki.freepascal.org/Creating_A_Patch/de

tFSize ist entweder 79 oder 259 (warumauchimmer...) ich habe mal +1 angehängt...(?)

Das hat sicherlich was mit den DOS/Win krzen7Langen dateinamen zu tun. die 259 ist mit der längenbegrenzung für lange dateinamen im fat32 ganz gut zu erklären für die 80 hab ich aber keine idee da kurze dateinamen ja nur 11-12 byte belegen (je nach implementierung).

bin 38 Jahre alt(er Knacker); im Bereich Veranstaltungstechnik tätig

Schön, noch n Lichtmensch war ne ganze Weile in dem Bereich tätig wenn du mal lust auf n schwatz hast kannst mir ja mal ne PM schicken oder dich im Chat sen lassen.

[marcov]

Das hat sicherlich was mit den DOS/Win krzen7Langen dateinamen zu tun. die 259 ist mit der längenbegrenzung für lange dateinamen im fat32 ganz gut zu erklären für die 80 hab ich aber keine idee da kurze dateinamen ja nur 11-12 byte belegen (je nach implementierung).

Achtzig ist der Limit für path+name für Dos ohne LFN (fat), 260 für Dos/win mit LFN. (vfat)

[lichtwicht]

ahhh, sorry!
die unit kann natürlich kein utf8...
(damit dürfte sich meine "tolle" Änderung erledigt haben...)
ich für meinen Teil habe es spontan nicht hinbekommen "utf8-support" einzubauen...
(was allgemein eine Schwachstelle meinerseits ist...)

ich muß wohl doch wieder nach etwas anderem Suchen um Archive zu entpacken(hmpf)...

EDIT@marcov: Cool! Thanx!

[marcov]

Changed to 0..tfsize in r12306:

r12306 | marco | 2008-12-06 13:22:10 +0100 (Sat, 06 Dec 2008) | 4 lines

* a local buffer for pchar based filename handling was still at TP sizes
(80), and did not follow the libraries abstraction (array [tfsize]) for
length of paths. (Reporter Lichtwicht, lazarusforum.de)