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

Delphi-Quellcode:

 extractitem(i, datei, True)

dafür sorgen das die Datei gefüllt wird?

// nach dem fmcreate, ein "fmopenwrite" schreib bringt leider auch nichts

[-Phantom-]

Ich bekomme es immer noch nicht hin.

Hier in der API steht aber das es so gehen sollte
http://www.progdigy.com/?page_id=13

Zitat:

with CreateInArchive(CLSID_CFormat7z) do
begin
OpenFile('c:\test.7z');
for i := 0 to NumberOfItems - 1 do
if not ItemIsFolder[i] then
ExtractItem(i, stream, false);
end;

Das gib es doch nicht xDD

Mann muss einfach an statt
ExtractItem(i, stream, True);
das machen
ExtractItem(i, stream, false);

Und schon klappt es ^^