[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);

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

[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]

Код:

procedure TForm1.Button1Click(Sender: TObject);
var
  I          : Integer;
  MemStream  : TMemoryStream;
  jpg        : TJpegImage; //ошибка- Undeclared identifier: 'TJpegImage'
begin
  MemStream := TMemoryStream.Create;
  try
    with CreateInArchive(CLSID_CFormat7z) do
    begin
      OpenFile('test.7z');
      for I := 0 to NumberOfItems - 1 do
        if not ItemIsFolder[i] then
        begin
          MemStream.Clear;
          ExtractItem(I, MemStream, False);
          MemStream.Position := 0;
          case I of
            0 :
            begin
              jpg := TJPEGImage.Create;
              try
                jpg.LoadFromStream(MemStream);
                Image1.Picture.Assign(jpg);
              finally
                jpg.Free;
              end;
            end;
            1 : Memo1.Lines.LoadFromStream(MemStream);
          end;
        end;
    end;
  finally
    MemStream.Free;
  end;
end;

Вместо TJpegImage пишу TGraphic.
Картинка в архив запакована первой (*.jpg).
После нажатия Button1 - ошибка: Project raised exception class EAbstractError with message 'AbstractError'.

Код:

procedure TForm1.Button1Click(Sender: TObject);
var
  I          : Integer;
  MemStream  : TMemoryStream;
  jpg        : TGraphic;
begin
  MemStream := TMemoryStream.Create;
  try
    with CreateInArchive(CLSID_CFormat7z) do
    begin
      OpenFile('test.7z');
      for I := 0 to NumberOfItems - 1 do
        if not ItemIsFolder[i] then
        begin
          MemStream.Clear;
          ExtractItem(I, MemStream, False);
          MemStream.Position := 0;
          case I of
           0 :
           begin
            jpg := TGraphic.Create;
            try
             jpg.LoadFromStream(MemStream);
             Image1.Picture.Assign(jpg);
            finally
             jpg.Free;
            end;
           end;
           1 : Memo1.Lines.LoadFromStream(MemStream);
          end;
        end;
    end;
  finally
    MemStream.Free;
  end;
end;

Текст читается без картинки

Код:

procedure TForm1.Button1Click(Sender: TObject);
var
  I          : Integer;
  MemStream  : TMemoryStream;
begin
  MemStream := TMemoryStream.Create;
  try
    with CreateInArchive(CLSID_CFormat7z) do
    begin
      OpenFile('test.7z');
      for I := 0 to NumberOfItems - 1 do
        if not ItemIsFolder[i] then
        begin
          MemStream.Clear;
          ExtractItem(I, MemStream, False);
          MemStream.Position := 0;
          case I of
           0 : Memo1.Lines.LoadFromStream(MemStream);
          end;
        end;
    end;
  finally
    MemStream.Free;
  end;
end;

[Aptic7]

Согласен