The progress of 7zip is displayed, and the problem of subvolume decompression is encountered. - (Moved)

[netmaple]

I am a novice and my English is not very good, I hope everyone can understand my statement and give me some advice, thanks.

   

The code is very suitable for echoing the progress bar when the 7z file is released, but FileGetSize cannot correctly echo the progress bar when encountering multiple sub-volume compressed files.
For example, AA.7z.001, AA.7z.002, AA.7z.003, AA.7z.004, AA.7z.005, AA.7z.006, AA.7z.007, AA.7z.008, AA .7z.009, AA.7z.010…………,
FileGetSize can only progress by AA.7z.001. The card is 100% completed. Please help me, and help me solve the file detection part of FileGetSize. thank.

 

expandcollapse popup

#include <array.au3>
#include <GUIConstantsEx.au3>
#include <ProgressConstants.au3>

Global $Title = "7zip progress echo demo"
$hGUI = GUICreate($Title, 320, 80,-1,-1)
$progressbar = GUICtrlCreateProgress(10, 10, 300, 30)
$btn = GUICtrlCreateButton("Start", 125, 45, 70, 30)   
GUISetState()

While 1
    $nMsg = GUIGetMsg()
    Switch $nMsg
        Case $GUI_EVENT_CLOSE
            Exit
        Case $btn
            $ExtrTarget = 'E:\DP'                  ;Release path                                                
            $ExtrSource = 'E:\mtest.7z'            ;Target file                                               
            $UnPack_line = ' x -y -o' & '"'& $ExtrTarget & '"' & ' ' & '"'& $ExtrSource & '"'
            _GetPIODataSend2Bar('7za.exe', $UnPack_line, FileGetSize($ExtrSource), $progressbar)
            GUICtrlSetData($progressbar, 100)
            MsgBox(0, '', 'Successful release')
            GUICtrlSetData($progressbar, 0)
            GUICtrlSetData($hGUI, "")
            Exit
    EndSwitch
WEnd

Func _GetPIODataSend2Bar($Execute, $Commandline, $Param, $Ctrl)
    Local $Pid, $PIOData, $iPercentage, $iPercentageBefore
    $Pid = Run ($Execute & $Commandline, '', @SW_HIDE)
    While ProcessExists($Pid)
        $PIOData = ProcessGetStats($Execute, 1)
        If @error Then 
           MsgBox(0, '', $Execute)
        Else
            $iPercentage = Round($PIOData[3]/$Param*100)
            If $iPercentage <> $iPercentageBefore And $iPercentage > 0 And $iPercentage <= 100 Then
               ConsoleWrite('->-' & $iPercentage & @CRLF)
               GUICtrlSetData($Ctrl , $iPercentage)
               WinSetTitle($hGUI, "", $Title & " " & $iPercentage & "%")
            EndIf
        EndIf
    WEnd
    Return $iPercentage
EndFunc

 

Edited February 4, 2021 by netmaple

[Melba23]

Moved to the appropriate forum.

Moderation Team

[Musashi]

On 2/4/2021 at 3:28 AM, netmaple said:

Please help me, and help me solve the file detection part of FileGetSize. thank.

It is not necessary to implement a customized progress bar feature. The 7zG.exe command line tool can be used to both create and extract a multi-volume archive (including a progress window).

Example :

Global $s7ZipDir, $sCommand, $sZIPFile, $sSOURCEFiles, $sDestDir
$s7ZipDir     = @ScriptDir     ; directory where the 7-Zip tool and the .dll are located
$sZIPFile     = "Testfile.7z"
$sSOURCEFiles = "Testfile.mp4" ; name of file(s) to archive (e.g. *.txt is also possible)

; Example 1 : Create a multi-volume archive .zip file
; Info :
;   -v{Size}[b | k | m | g]
;    Specifies volume size in Bytes, Kilobytes, Megabytes or Gigabytes
; ==> Already existing files of type .00n must be deleted previously
$sCommand = $s7ZipDir & '\7zG a "' & $sZIPFile & '" "' & $sSOURCEFiles & '" -v100m -y'
RunWait ($sCommand, "",  @SW_SHOW)
If @error Then Exit MsgBox(BitOR(4096, 16), "Error : ", "Unable to create a multi-volume archive")

; Example 2 : Extract a multi-volume archive .zip file
$sZIPFile = "Testfile.7z.001"
$sDestDir = @ScriptDir & "\"
$sCommand = $s7ZipDir & '\7zG x "' & $sZIPFile & '" -o"' & $sDestDir & '" -aoa -y'
RunWait ($sCommand, "",  @SW_SHOW)
If @error Then Exit MsgBox(BitOR(4096, 16), "Error : ", "Unable to extract a multi-volume archive")

EDIT : I have attached the current 7zG.exe and 7z.dll for the sake of completeness.

Attachment removed, because a standard user account only allows 8 MB (total quota for all posts) .

Please download the files from the respective vendor's site.

 

Edited May 23, 2021 by Musashi
Attachment removed

[netmaple]

Hello there
The code itself can use 7zG.exe, I ask for advice how to solve, FileGetSize 7zip sub-volume compressed file release callback problem.

Edited February 5, 2021 by Melba23
Quote removed

[Melba23]

netmaple,

When you reply in future, please use the "Reply to this topic" button at the top of the thread or the "Reply to this topic" editor at the bottom rather than the "Quote" button - responders know what they wrote and it just pads the thread unnecessarily. Thanks in advance for your cooperation.

M23

[netmaple]

ok