Программно распаковать архив

[Stilet]

uses sevenzip
Качать с оффсайта. он бесплатный.

[милт]

http://www.7-zip.org/ я скачал на этом сайте обычный архиватор. Что надо чтобы у меня в делфи модуль sevenzip работал?

[милт]

Наконец то получилось установить ZipForge я как то не понял что после его установки надо ещё запускать дпк фаил vclZipForged17.dpk

[Stilet]

Вот, держи. Это Модуль, ДЛЛ и мануал. Все что тебе нужно в приложенной архиве.
А вот так я его использую:

unit Unit1;

{$mode objfpc}{$H+}

interface

uses    sevenzip,
  Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs;

type

  { TForm1 }

  TForm1 = class(TForm)
    procedure FormCreate(Sender: TObject);
  private
    { private declarations }
  public
    { public declarations }
  end;
 // Function Compress(Source:pointer;SourceLen:Cardinal;   var sizeStream:Cardinal):Pointer;  external 'Compressor.dll';
 // Function Decompress(Source:pointer;SourceLen:Cardinal;var sizeStream:Cardinal):Pointer;   external 'Compressor.dll';
  //function CompressStream(ms:TStream):TMemoryStream;  external 'Compressor.dll';
var
  Form1: TForm1;

implementation

{$R *.lfm}

{ TForm1 }

procedure TForm1.FormCreate(Sender: TObject);
var Arch:I7zOutArchive; s:TStringStream;  a:I7zInArchive;
begin
  s:=TStringStream.Create('1234567890');

  Arch := CreateOutArchive(CLSID_CFormat7z);
  Arch.AddStream(s, soReference, faArchive, CurrentFileTime, CurrentFileTime, 'impp.sql', false, false);
  //SetCompressionLevel(Arch, 5);
  //SevenZipSetCompressionMethod(Arch, m7BZip2);
  Arch.SaveToFile('d:\1\impp.7ztp');
  Arch:=nil;

  a:=CreateInArchive(CLSID_CFormat7z);
  a.OpenFile('d:\1\impp.7ztp');
  a.ExtractItem(0,s,false);
  a:=nil;
  Caption:=s.DataString;

end;

end.

Никаких компонентов устанавливать не надо. Просто подкинь sevenzip.pas и 7z.dll в твой проект и все заработает.

[Smitt&Wesson]

Я пользуюсь компонентом Abbrevia 2.

[Пепел Феникса]

Сообщение от милт

Наконец то получилось установить ZipForge я как то не понял что после его установки надо ещё запускать дпк фаил vclZipForged17.dpk

то есть маны мы упорно не читаем.
далеко уйдете.

[милт]

Этот ZipForge какой то не правильный. Пакую файл, он становится очень маленьким и распаковывается только какой то маленький не куда не применимый файлик.

Stilet, а куда надо закинуть 7-zip32.dll . Всего 1 фаил должен быть и не чего не надо устанавливать :?

Пепел Феникса, извини, я плохо понимаю что такое "мануал"

[doktor255]

Сообщение от милт

Stilet, а куда надо закинуть 7-zip32.dll

В папку с компилируемым exe.

Сообщение от милт

Всего 1 фаил должен быть и не чего не надо устанавливать :?l

Победи свою лень, открой гугл, и почитай, что такое dll.

[милт]

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

В папку с компилируемым exe.

закинул в папку с программой(там же и сам проект) но модуль sevenzip всё ровно подчёркнут красной волнистой линией и проект не компилируется. Пишет что не идентифицировал "sevenzip"

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

Победи свою лень, открой гугл, и почитай, что такое dll.

Я полностью прочитал статью из вики но там не слова про то что такое мануалы. Я не ленюсь гуглить. просто у меня почему то не чего не работает и гугл не пишет почему так

[милт]

а нет. вот что пишет [dcc32 Fatal Error] Brtr.pas(13): F1026 File not found: 'sevenzip.dcu'