Probleme mit Auslesen von Dateinamen in einer Zipdatei

[zeras]

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;

[himitsu]

Es sagt dir doch ganz genau, was falsch ist.
Wer hat behauptet, dass TZipHeader.FileName IMMER UTF-8 sein muß?

siehe Zip.FileInfo[i].UTF8Support

oder Zip.FileName[i] anstatt Zip.FileInfo[i].FileName

[zeras]

Zitat von himitsu:

oder Zip.FileName[i] anstatt Zip.FileInfo[i].FileName

Danke, das werde ich morgen gleich probieren.

[zeras]

Zitat von zeras:

Zitat von himitsu:

oder Zip.FileName[i] anstatt Zip.FileInfo[i].FileName

Danke, das werde ich morgen gleich probieren.

Danke, hat geklappt.