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;