Comment faire pour empaqueter des fichiers en utilisant 7z avec Delphi et montrer le pourcentage fait?

Question

Quand je lance cette ligne de commande:

7z a 1.zip J:\test.mp4 

je peux voir combien en% est fait. Lorsque j'ai essayé d'exécuter ceci à partir de Delphi en utilisant CreateProcess et CreatePipe, je n'ai rien obtenu jusqu'à ce que le fichier soit compressé. Ensuite, il a affiché la sortie finale de 7zip.

Mon code ressemble à ceci:

Stream:= THandleStream.Create(hRead); 
try 
    if not CreateProcess(nil, PChar(Cmd), nil, nil, 
         True, 0, nil, nil, StartupInfo, 
         ProcessInformation) then 
    RaiseLastOSError; 
    repeat 
    if not GetExitCodeProcess(ProcessInformation.hProcess, ExitCode) then 
     RaiseLastOSError; 

    while Stream.Position < Stream.Size do 
    begin 
     Stream.Read(C, 1); 

     if (C = #13) then 
     begin 
     Memo1.Lines.Add(S); 
     S := ''; 
     Application.ProcessMessages; 
     end 
     else if C <> #10 then 
     begin 
     S := S+C; 
     end; 
    end; 
    until ExitCode <> Still_Active; 
finally 
    Stream.Free; 
end; 

Je ne veux pas simplement créer un ZIP Archive- Je sais qu'il ya des façons plus agréables de le faire à Delphes. Je veux interagir avec une console applications. La sortie de nombreuses applications de console peut être traitée avec le code que j'ai posté, mais elle échoue avec 7zip - c'est pourquoi je demande à propos de 7zip ici. Quelle est la particularité de 7zip que sa sortie ne peut pas être capturée correctement? Comment capturer la sortie d'applications comme cette 7zip?

Answer 1

Vous pouvez jeter un oeil sur le plug-in faite par progdigy

Barre de progression

function ProgressCallback(sender: Pointer; total: boolean; value: int64): HRESULT; stdcall; 
begin 
    if total then 
    Mainform.ProgressBar.Max := value else 
    Mainform.ProgressBar.Position := value; 
    Result := S_OK; 
end; 

procedure TMainForm.ExtractClick(Sender: TObject); 
begin 
    with CreateInArchive(CLSID_CFormatZip) do 
    begin 
    OpenFile('c:\test.zip'); 
    SetProgressCallback(nil, ProgressCallback); 
    ... 
    end; 
end;