[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