7-Zip и Delphi

[flug]

Очень хочется из своей программы распаковать архивы 7-Zip, нашёл через поиск 7-zip Delphi API с сайта progdigy.com, так вот как распаковать архивы с прогресс баром я понял, но вот вопрос как показывать во время распаковки имя распаковываемого файла никак не пойму, может кто сталкивался с 7-zip Delphi API, подскажите что делать?
В исходниках нашёл функцию function GetItemName(const index: integer): UnicodeString; stdcall; но как ею воспользоваться никак не пойму. Помогите!

[notHaker]

www.proggears.ru. Там на тему 7z аж 2 сдк.

[flug]

notHaker
Спасибо конечно, но с 1-ым сдк совсем ничего не понятно, а второй это и есть 7-zip Delphi API с сайта progdigy.com, именно про негоя и написал в первом посте, так что вопрос остаётся открытым.

Уважаемые программисты, ну пожалуйста скачайте 7-zip Delphi API, и гляньте там исходник всего 56кб.
Вот посмотрите до чего удалось додуматься, в примере написано

Extract "n" Items
function GetStreamCallBack(sender: Pointer; index: Cardinal;
  var outStream: ISequentialOutStream): HRESULT; stdcall;
begin
  case index of ...
    outStream := T7zStream.Create(aStream, soReference);
  Result := S_OK;
end;

procedure TMainForm.ExtractClick(Sender: TObject);
var
  i: integer;
  items: array[0..2] of Cardinal;
begin
  with CreateInArchive(CLSID_CFormat7z) do
  begin
    OpenFile('c:\test.7z');
    // items must be sorted by index!
    items[0] := 0;
    items[1] := 1;
    items[2] := 2;
    ExtractItems(@items, Length(items), false, nil, GetStreamCallBack);
  end;
end;

А вот мой код, это максимум что пришло в голову чтобы это использовать:

function GetStreamCallBack(sender: Pointer; index: Cardinal;
  var outStream: ISequentialOutStream): HRESULT; stdcall;
begin
    outStream := T7zStream.Create(TFileStream.Create('c:\test\'+form1.ListBox1.Items.Strings[index]), soReference);
  Result := S_OK;
end;

procedure TForm1.Button2Click(Sender: TObject);
var
  i, n: integer;
  items: array of Cardinal;
begin
  with CreateInArchive(CLSID_CFormat7z) do
  begin
    OpenFile('c:\test.7z');
    SetLength(items, NumberOfItems);
    for i := 0 to NumberOfItems - 1 do //просматриваю список файлов внутри архива и заношу его в listbox1
     if not ItemIsFolder[i] then
      begin
       listbox1.Items.Add(Itempath[i]) ;
       items[i]:=i;
      end;
    ExtractItems(@items, Length(items), false, nil, GetStreamCallBack);
  end;
end;

И вроде по логике всё правильно сделал, и даже компилится, но при нажатии на Button2 пишет что для завершения операции недостаточно памяти.
Ну, пожалуйста не поленитесь посмотрите 7-zip Delphi API, глядишь совместными усилиями разберёмся.

[Zanooda]

А освобождать, стало быть, надувные дурошлёпы будут...
В частности, TFileStream ушёл в пампасы.
Наполняйтесь кефиром на ночь - помогает.
...
А быть может, некто-кто-нибудь-кто-либо в курсе тут...
Есть ли для 7zip Дельфовидные файлы, типа "ZLib.pas", "BZip2.pas".
В них ещё *.obj всунуты..
То есть, возможно ли ископать где-то паскалевский вариант заголовков
функций с прилепленными к ним объектными файлами 7zip`a?
И MakeFile до кучи... ??
Благодарствую.

[Claster]

Доброго времени суток.........уважаемые мастера подскажите плииз каким образом с помощью компонента 7zip, прочитать данные находящиеся в архиве не распаковывая их?

[Aqel]

Да , я тоже этим вопросом интересуюсь, нащёл библиотеку/компонент SevenZipVCL_D12, только не могу понять как проверить верный ли пароль на архив с помощью Delphi.