Entwickler-Ecke

Delphi Language (Object-Pascal) / CLX - Winrar Prozent auslesen mit TDosCommand?


jackie05 - Di 23.06.09 19:48
Titel: Winrar Prozent auslesen mit TDosCommand?
Hallo,
ich habe mir die Komponente TDosCommand runtergeladen und lasse mit diesem befehl eine .rar Datei entpacken:

Delphi-Quelltext
1:
2:
3:
DosCommand1.OutputLines := Memo1.Lines;
DosCommand1.CommandLine := 'unrar.exe e -p'+Edit2.Text+' '+Edit1.Text;
DosCommand1.Execute;


Edit: Im Memo Feld bekomme ich diese ausgabe:

Delphi-Quelltext
1:
2:
3:
4:
5:
6:
7:
UNRAR 3.80 freeware      Copyright (c) 1993-2008 Alexander Roshal


Testing archive C:\test.rar

Testing     test.bmp                                                       10% 20% 31% 41% 52% 62% Testing     test.bmp                                                       10% 20% 31% 41% 52% 62% Testing     test.bmp                                                       10% 20% 31% 41% 52% 62% 73% 83% 94% 99%  OK 
All OK


Wie könnte ich jetzt den aktuellen Fortschritt auslesen lassen?

Ich bedanke mich schonmal im Voraus.

MfG


jaenicke - Di 23.06.09 20:02

Gibt es einen Grund nicht direkt mit Delphi [http://www.delphi-treff.de/tutorials/datenspeicherung/archivformate-rar-tutorial/] das Entpacken zu erledigen? Dann brauchst du nur eine DLL, eine Komponente [http://www.del-net.com/frmDFUnRar.html] und WinRar muss nicht vorhanden sein.