Muss bei
fs := TFileStream.Create(openpfad+*itempfad*, fmOpenread );?
der Archivpfad+der Dateipfad im Archiv?
Hab ich so gemacht:
Delphi-Quellcode:
dateipfad := openpfad+'/'+dateilist.Items[i].subitems[0]
TFileStream.Create(dateipfad, fmOpenread )
Dann kommt "Das System konnte den angegebenen Pfad nicht finden"