sevenzip Api

[-Phantom-]

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