На главную
ПРАВИЛА FAQ Помощь Участники Календарь Избранное RSS
msm.ru
! ПРАВИЛА РАЗДЕЛА · FAQ раздела Delphi · Книги по Delphi
Пожалуйста, выделяйте текст программы тегом [сode=pas] ... [/сode]. Для этого используйте кнопку [code=pas] в форме ответа или комбобокс, если нужно вставить код на языке, отличном от Дельфи/Паскаля.
Следующие вопросы задаются очень часто, подробно разобраны в FAQ и, поэтому, будут безжалостно удаляться:
1. Преобразовать переменную типа String в тип PChar (PAnsiChar)
2. Как "свернуть" программу в трей.
3. Как "скрыться" от Ctrl + Alt + Del (заблокировать их и т.п.)
4. Как прочитать список файлов, поддиректорий в директории?
5. Как запустить программу/файл?
... (продолжение следует) ...

Вопросы, подробно описанные во встроенной справочной системе Delphi, не несут полезной тематической нагрузки, поэтому будут удаляться.
Запрещается создавать темы с просьбой выполнить какую-то работу за автора темы. Форум является средством общения и общего поиска решения. Вашу работу за Вас никто выполнять не будет.


Внимание
Попытки открытия обсуждений реализации вредоносного ПО, включая различные интерпретации спам-ботов, наказывается предупреждением на 30 дней.
Повторная попытка - 60 дней. Последующие попытки бан.
Мат в разделе - бан на три месяца...
Модераторы: jack128, D[u]fa, Shaggy, Rouse_
Страницы: (2) [1] 2  все  ( Перейти к последнему сообщению )  
> Как работать с 7z в Delphi
    Как работать с 7zip.dll в Delphi.
    Может есть у кого пример..??
    Прикреплённый файлПрикреплённый файл7z.zip (276.68 Кбайт, скачиваний: 3310)
    THE TRUTH IS OUT THERE
      koder Ты же сам ответил на свой вопрос :unsure: У тебя в архиве 2 ф-ции для добавления и извлечения.
        Да разобрался..хех..где можно пример глянуть для работы с listview, чтобы добавлять выбранные файлы в архив..
        THE TRUTH IS OUT THERE
          Подскажите а как несколько файлов заархивировать?
          THE TRUTH IS OUT THERE
            Очень просто. При создании архива:
            Цитата
            FileList : string; // comma separated files to be added to archive (wildcards ok)
            Можно список файлов через ;, а можно и маски использовать.

            Добавлено
            Я как раз этой библиотекой пользовался. Тут есть несколько грабель.
            Во-первых, эти либы от Minoru Akita могут полностью вешать на время архивации 2003ю винду (сервер).
            Во-вторых, при работе в нескольких потоках возникают проблемы с загрузкой либы в очередной поток.
            Если первая проблема решается поиском другой версии этой либы, то вторую проблему мне решить не удалось. Пришлось использовать оригенальную консольную версию 7za.exe.
            Per Aspera ad Astra
              Testudo А как архивировать файлы из других папок, не только из текущей..
              THE TRUTH IS OUT THERE
                Цитата koder @
                А как архивировать файлы из других папок, не только из текущей..

                использовать полные пути к файлам...
                Сайт о всех генераторах отчётов - статьи, исходники, постоянное обновление статей
                Унифицированные шаблоны стандарта FastReport
                  А в тип string разве это уместится???Пробовал..он виснит и ничего не делает..
                  THE TRUTH IS OUT THERE
                    Цитата koder @
                    А в тип string разве это уместится???

                    а зачем в тип String это сувать?
                    ты же из ListBox списох берёшь...
                    вот и считывай построчно а потом пакуй
                    Сайт о всех генераторах отчётов - статьи, исходники, постоянное обновление статей
                    Унифицированные шаблоны стандарта FastReport
                      ExpandedWrap disabled
                        function SevenZipCreateArchive( hWnd : HWND; // parent window handle
                                                        ArchiveFilename : string;
                                                        FileList : string; // comma separated files to be added to archive (wildcards ok)
                                                        CompressionLevel : integer;   // 0 = none, 9=max
                                                        CreateSolidArchive : Boolean; // solid = better compression for multiple files
                                                        RecurseFolders : Boolean;     // recurse folders?
                                                        ShowProgress   : Boolean;     // if true uses dll's internal progress indicator (callback func ignored)
                                                        Callback       : TSevenZipCallbackProc = nil ) // optional callback (ShowProgress must be false)
                                                        : integer;

                      Это каждый раз вызывать эту функцию для каждого файла..???
                      THE TRUTH IS OUT THERE
                        Цитата dron-s @
                        использовать полные пути к файлам...
                        Не полные, а относительные. Эта либа не умеет работать с полными путями (а может твоя версия и умеет, но предыдущие - нет).

                        Цитата koder @
                        Это каждый раз вызывать эту функцию для каждого файла..???
                        Нет.
                        Просто в параметр FileList передай нечто вроде:
                        ExpandedWrap disabled
                          .\toarch_*.dat,.\..\somedir\mainfile.dat,.\..\..\windows\system32\users32.dll


                        Добавлено
                        koder, я тебе все же рекомендую скачать 7za.exe - консольный вариант архиватора, и работать с ним. Проблем меньше будет. В том числе с относительными путями: консольный архиватор замечательно глотает полные пути. Да и добавлять файлы в созданный ранее архив проще.
                        Сообщение отредактировано: Testudo -
                        Per Aspera ad Astra
                          а где е взять этот 7za.exe?
                          THE TRUTH IS OUT THERE
                            Как где? На www.7-zip.org конечно!
                            Ежели лень, вот прямая ссылка: 7za442.zip
                            Per Aspera ad Astra
                              можешь примерчик кинуть как заархивировать несколько файлов с разных мест
                              THE TRUTH IS OUT THERE
                                Здравствуйте. Ктонибудь знает где найти обертку под 7z посвежее желательно с LZMA2 и размер словаря 128МБ
                                1 пользователей читают эту тему (1 гостей и 0 скрытых пользователей)
                                0 пользователей:


                                Рейтинг@Mail.ru
                                [ Script Execution time: 0,1337 ]   [ 15 queries used ]   [ Generated: 10.07.20, 22:37 GMT ]