TZipFile 'Unterstützung für Komprimierungsmethode nicht registriert'

[sko1]

Hallo,

weil ich Probleme mit Dateien mit Umlauten in Abbrevia TABZipper habe, wollte ich TZipFile verwenden, aber egal welchen Komprimierungsmodus ich einstelle, ich bekomme immer diese Fehlermeldung:

'Unterstützung für Komprimierungsmethode nicht registriert'

Hat jemand eine Idee dazu?

Ciao
Stefan

[KodeZwerg]

if FItemInfo.IsUTF8 or (AbDetectCharSet(FItemInfo.FileName) = csUTF8) then FFileName := UTF8ToString(FItemInfo.FileName) Das wäre mein Tipp für Abbrevia/Unicode Namen.

[günni0]

Wenn Tipps außerhalb Abbrevia und TZipFile erlaubt sind, dann empfehle ich JCL und 7z zu verwenden.
Ich bin damals von Abbrevia zu TZipFile, über irgendwas anderes dann zu JCL mit 7z gewechselt. Habe es nicht bereut.

[KodeZwerg]

Hier ist Abbrevia und FlexCompress am Start, das letztere ist für uns echt gut.

[hoika]

Hallo,
etwas Code wäre schön.
Und klappt es prinzipiell nicht, oder nur bei Umlauten?

[zeras]

Mein Tipp : http://www.delphizip.org/: Dass nutze ich schon mehrere Jahre ohne Probleme.

[KodeZwerg]

@zeras: Unterstützt dein Tipp Unicode? Ich finde auf dieser Webseite keine Informationen.

[sko1]

Zitat von KodeZwerg:

if FItemInfo.IsUTF8 or (AbDetectCharSet(FItemInfo.FileName) = csUTF8) then FFileName := UTF8ToString(FItemInfo.FileName) Das wäre mein Tipp für Abbrevia/Unicode Namen.

Kannst Du mir bitte mal erläutern was ich jetzt mit dem Schnipsel anfangen soll?
Mein Problem:
Ich muss Dateien mit Umlauten zippen, egal womit ich zippe ist das augenscheinlich bei mir im Windows Explorer und im Totalcommander korrekt, die enthaltenen Dateien werden da korrekt angezeigt und sind extrahierbar, aber bei einem Anwender des fertigen Programms meckert der DATEV Importer dass er die enthaltene Datei nicht findet.
Ein Kollege wiederum öffnet das Zip in seinem Totalcommander und sieht anstelle der Umlaute "Müllzeichen".

Wie gehe ich das nun an?


Ciao
Stefan

[Redeemer]

Screenshot von den "Müllzeichen" bitte.

[KodeZwerg]

Zitat von sko1:

Kannst Du mir bitte mal erläutern was ich jetzt mit dem Schnipsel anfangen soll?

Ich dachte es wäre klar da es Abbrevia Code ist.
Mache Datei AbZipTyp.pas auf und suche

Delphi-Quellcode:

  { decode filename (ANSI/OEM/UTF-8) }
  if FItemInfo.IsUTF8 or (AbDetectCharSet(FItemInfo.FileName) = csUTF8) then
    FFileName := UTF8ToString(FItemInfo.FileName)

das sollte/könnte der Fehler sein, eine korrektur nach

Delphi-Quellcode:

  { decode filename (ANSI/OEM/UTF-8) }
  if FItemInfo.IsUTF8 = csUTF8 then
    FFileName := UTF8ToString(FItemInfo.FileName)

sollte abhilfe schaffen.

Zum testen ob bei Dir bzw Kunden nun alles richtig läuft empfehle ich Dir hier die Test-Archive mal mit Deinem Code durchzuprobieren.
Die Test-Archive kannst Du natürlich auch mit jeder anderen Archiver Software auf korrektheit prüfen lassen.