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

[timog]

Hallo Stefan,

leider schreibst Du nicht, welche Version vom TotalCommander Dein Kollege verwendet, sieht auf dem Bildschirmfoto aber schon älter aus. Der aktuelle TotalCommander 9.12 öffnet und entpackt eine mit TZipFile gepackte Umlautdatei aus einer ZIP-Datei (siehe unten) problemlos.

Der "DATEV Importer" wird von Dir nicht näher spezifiziert - es kann also sein, dass es vielleicht an der fehlenden "Unicode"-Unterstützung der Fremdprogramme liegen kann? Dann wäre die Aufgabenstellung eventuell eher, einen OEM/ANSI-Dateinamen in eine ZIP-Datei zu bekommen, um Kompatibilität herzustellen?

Die Prüfung auf Korrektheit der ZIP-Datei ist so eine Sache: Bedeutet korrekt, dass die ZIP RFC-1950 erfüllt, dass das Dateiformat nach PKZip eingehalten wurde oder dass der Kunde in seinem Fremdprogramm damit arbeiten kann?

Doch zurück zu Deiner Frage und dem Titel: 'Unterstützung für Komprimierungsmethode nicht registriert' - da Du leider keinen Code gepostet hast, der zu dem Fehler führt, hier mal ein Beispiel, welches unter Delphi 10.2.3 und Windows 10 Build 1709 die beigefügt ZIP-Datei erstellt hat.

Delphi-Quellcode:

uses 
   System.Zip;

procedure ZipAFile(const AArchiveName, AFilename: string);
var
  LZip: TZipFile;
begin
  LZip:=TZipFile.Create;
  try
    if FileExists(AArchiveName) then DeleteFile(AArchiveName);
    LZip.Open(AArchiveName, zmWrite);
    LZip.Add(AFilename);
    LZip.Close;
  finally
    LZip.Free;
  end;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
  ZipAFile('c:\temp\test.zip', 'c:\temp\Freißeitföüährer.txt');
end;

Die gepackte Datei Freißeitföüährer.txt kann mit Windows 10 und unter macOS 10.13 mit Bordmitteln sowie auf iPhone und iPad mit diversen Apps aus test.zip entpackt werden (Android gerade nicht parat) und die Umlaute bleiben intakt.

Modifiziere diesen Code-Schnipsel doch bitte einmal so, dass der Fehler auftritt (interessiert mich gerade, da wir bald etwas mit ZIP-Dateien vorhaben und eigentlich TZipFile nehmen wollten).

Viel Erfolg!