Ich hab es nun so gemacht
Delphi-Quellcode:
with CreateInArchive(CLSID_CFormatZip) do
begin
openfile(openpfad);
entsave.Execute();
for i := 0 to Dateilist.Items.Count - 1 do
begin
if Dateilist.Items[i].Selected then
begin
dateiname := Dateilist.Items[i].Caption;
createdir(entsave.FileName);
datei := TfileStream.Create(entsave.FileName + '\' + dateiname,
fmcreate);
try
extractitem(i, datei, True);
finally
datei.Free;
end;
end;
end;
end;
Nun wird die Datei erstellt. Ist aber Leer. Müsste nicht eigentlich
extractitem(i, datei, True)
dafür sorgen das die Datei gefüllt wird?
// nach dem fmcreate, ein "fmopenwrite" schreib bringt leider auch nichts