Einzelnen Beitrag anzeigen

zeras

Registriert seit: 11. Mär 2007
Ort: Saalkreis
1.644 Beiträge
 
Delphi 12 Athens
 
#1

Probleme mit Auslesen von Dateinamen in einer Zipdatei

  Alt 30. Nov 2024, 19:32
Ich möchte mit den internen Ziproutinen die Dateinamen und weitere Infos extrahieren.
Leider bekomme ich folgenden Fehler:

Im Projekt xyz ist eine Exception der Klasse EEncodingError mit der Meldung 'Keine Zuordnung für Unicode-Zeichen in der Multibyte-Zielcodeseite vorhanden' aufgetreten.

Was mache ich falsch?

Delphi-Quellcode:

  Result := false;
  Zip := TZipFile.Create;
  try
    Zip.Open(SrcfName, zmRead);
    for I := 0 to Zip.FileCount -1 do begin
      CRC := Zip.FileInfo[i].CRC32;
      fSize := Zip.FileInfo[i].UncompressedSize;
      fName := ExtractFileName(StringReplace(TEncoding.UTF8.GetString(Zip.FileInfo[i].FileName), '/', '\', [rfReplaceAll])); //StringReplace, da Slash und kein BackSlash in Zipdatei
      Attr := Zip.FileInfo[i].ExternalAttributes;
Matthias
Es ist nie falsch das Richtige zu tun!
- Mark Twain
  Mit Zitat antworten Zitat