[Aptic7]

Возможно ли вывести содержимое текстового файла, находящегося в архиве *.7z в memo и картинку в image не распаковывая файлы на жесткий диск?
Подключены 7z.dll и sevenzip.pas
Помогите пожалуйста.

[M.A.D.M.A.N.]

См. АПИ 7z.dll, можно вывести список, разархивировать (вроде в поток можно) отдельный файл.

[Aptic7]

Я недавно начал программировать на делфи, всех мелочей не знаю. О 7zip читал в readme, там написано как отправить в поток, не уверен что вообще отправляет.
Вот код Open stream:

with CreateInArchive(CLSID_CFormat7z) do
begin
OpenStream(T7zStream.Create(TFileStream.Create('c: \test.7z', fmOpenRead), soOwned));
OpenStream(aStream, soReference); // здесь ругается: Undeclared indentifier:'aStream'
...
end;

А простое извлечение (на жесткий диск) идет хорошо.

[angvelem]

Правильно ругается, такой переменной в коде нет. А строкой выше, вообще каша намешана.

[Aptic7]

Extract to path

Код:

 with CreateInArchive(CLSID_CFormat7z) do
 begin
   OpenFile('c:\test.7z');
   ExtractTo('c:\test');
 end;

Open stream

Код:

 with CreateInArchive(CLSID_CFormat7z) do
 begin
   OpenStream(T7zStream.Create(TFileStream.Create('c:\test.7z', fmOpenRead), soOwned));
   OpenStream(aStream, soReference); // здесь ругается: Undeclared indentifier:'aStream'
   ...
 end;

Это предлагают разработчики

[Aptic7]

Так сначала вывести список, потом выбрать файл, отправить его в поток...
правильно?

[angvelem]

Сообщение от Aptic7

Open stream

Код:

 with CreateInArchive(CLSID_CFormat7z) do
 begin
   OpenStream(T7zStream.Create(TFileStream.Create('c:\test.7z', fmOpenRead), soOwned));
   OpenStream(aStream, soReference); // здесь ругается: Undeclared indentifier:'aStream'
   ...
 end;

Это предлагают разработчики

За такой код, на обед без сладкого оставлять нужно.

[robt]

Сообщение от Aptic7

Это предлагают разработчики

это предлагает чел,написавший sevenzip.pas к разработчикам 7zip это никак не относится вообще

[Aptic7]

Извините
Так правильно?

Код:

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, sevenzip;

Код:

 procedure TForm1.Button1Click(Sender: TObject);
begin
 with CreateInArchive(CLSID_CFormat7z) do
 begin
   OpenFile('c:\test.7z');
   ExtractTo('c:\test');
 end;
end;

[angvelem]

Правильно. И предыдущий код работать будет, если его написать правильно, а не так как его предложил мифический "разработчик".

[Aptic7]

Хорошо б, но так все равно выдает ошибку.

Код:

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, sevenzip;

Код:

procedure TForm1.Button1Click(Sender: TObject);
begin
with CreateInArchive(CLSID_CFormat7z) do
 begin
   OpenStream(T7zStream.Create(TFileStream.Create('d:\test.7z', fmOpenRead), soOwned));
   OpenStream(aStream, soReference);
 end;
end;

Понимаю что aStream это процедура или функция не описана в sevenzip.pas. Вот убрал эту сомнительную строчку

Код:

  OpenStream(aStream, soReference);

тогда как мне проверить что архив или файл отправлен в поток?

[angvelem]

aStream - переменная, которая должна ссылаться на уже созданный поток. Но она нигде не декларирована и не инициализирована.

[Aptic7]

Если aStream переменная, но вот так

Код:

procedure TForm1.Button1Click(Sender: TObject);
var
aStream:integer;
begin
with CreateInArchive(CLSID_CFormat7z) do
 begin
   OpenStream(T7zStream.Create(TFileStream.Create('d:\test.7z', fmOpenRead), soOwned));
   OpenStream(aStream, soReference);
 end;
end;

ошибка- Incompatible types: 'Integer' and 'IInStream'

если aStream:IInStream;

Код:

procedure TForm1.Button1Click(Sender: TObject);
var
aStream:IInStream;
begin
with CreateInArchive(CLSID_CFormat7z) do
 begin
   OpenStream(T7zStream.Create(TFileStream.Create('d:\test.7z', fmOpenRead), soOwned));
   OpenStream(aStream, soReference);
 end;
end;

ошибка: Too many actual parameters

[angvelem]

У меня нет данного юнита, чтобы посмотреть как должно быть.

[Aptic7]

юнит, длл и readme