Holen Sie sich kostenlos Zip-Funktionalität

Holen Sie sich kostenlos Zip-Funktionalität

Holen Sie sich kostenlos Zip-Funktionalität : Mehreren tausend Tipps, um Ihr Leben einfacher machen.

Suchen Sie eine Möglichkeit zum integrieren Zip und unzip Funktionalität in Ihrer Anwendung auf die billige Tour? Hier ist der Plan- und Fernando Vicaria hat sogar verpackt es alles zusammen in eine nette kleine Komponente für Sie!

Sie benötigen einen Teil der Funktionalität. Sie kaufen eine Komponente oder Ärmel hochkrempeln und auf das Design beginnen selbst? Sehr oft finden Sie eine Freeware-Komponente, die die Arbeit erledigt. Leider ist es auch üblich, dass diese Komponenten mit Quelle kommen nicht oder weniger als perfekt sind. Und wenn Sie wie ich sind, Sie hasse es, etwas zu Ihrer Anwendung hinzufügen, die mit Source-Code kommt nicht oder nicht vollständig gegeben wurden getestet.
Wenn eine zusätzliche Funktion, die Sie brauchen, die Fähigkeit ist zu komprimieren oder Dekomprimieren von Dateien mithilfe des Industrie-standard-Zip-Format, dann sind Sie im Glück!
WinZip 7.0 (oder höher) hat jetzt seine eigene Befehlszeile-Unterstützung. Dieses unglaublich nützliche Add-ons steht zum Download von Nico Mak Computing Inc. auf seiner Web Site: https://www.winzip.com.
Was ist so toll an einer Befehlszeile? Denken Sie darüber. Jetzt können Sie eine Komponente, um das Befehlszeile-Programm aufrufen, und alle Probleme werden gelöst!
Hier ist eine Möglichkeit, genau das zu tun.
Immer WinZip
Zunächst einmal müssen Sie WinZip 7.0 installieren. Haben Sie al-fähige keiner anderen Version von WinZip, können Aktualisierungen aus der URL, die ich gerade erwähnt, kostenlos heruntergeladen werden.
Sobald Sie die neueste Version haben, besteht der nächste Schritt zum herunterladen und installieren das Command Line Add-on. Sobald Sie diese installiert haben, stellen Sie sicher, dass sie Ihren Pfad hinzugefügt haben.
Wenn Sie eine Komponente, um die Befehlszeile-Programm aufrufen und übergeben die richtigen Anweisungen zum Ausführen von WinZip erstellen könnte, würde das jetzt komprimieren und Dekomprimieren von Dateien in der Anwendung einfach machen!
Ein Enumerationstyp und die Erklärung
Dies ist ein typisches Beispiel für welche OOP (und, genauer gesagt, Delphi) geht. Das erste, was Sie tun sollten, ist einen Aufzählungstyp erstellen, in dem Sie angeben können, welche Richtung Sie gehen (komprimieren oder Dekomprimieren) wollen:
TZipState = (ZsCompress, ZsDecompress);
Dieser Art lassen Sie zwischen den beiden möglichen Aktionen der Komponente zu wechseln. Listing 1 zeigt die Deklaration der Komponente.
Codebeispiel 1. Die Deklaration der Kompression/Dekompression Komponente.
TFVWinZip = class(TComponent)
Private
{Private Deklarationen}
FFileName: String;
FUseFileList: Boolean;
FFileList: TStringList;
FZipFileName: String;
FZipState: TZipState;
FOnExecute: TNotifyEvent;
GetFileList-Funktion: TStringList;
Prozedur SetFileList(value: TStringList);
Prozedur CreateCompressBat;
veröffentlicht
{Veröffentlichten Erklärungen}
Eigenschaft FileName: Zeichenfolge
Lesen Sie FFileName schreiben FFileName;
Eigenschaft UseFileList: Boolescher
Lesen FUseFileList schreiben FUseFileList
in der Standardeinstellung False;
Liste der Dateien Eigenschaft: TStringList
Lesen Sie GetFileList schreiben SetFileList;
Eigenschaft ZipState: TZipState
Lesen Sie FZipState schreiben FZipState;
Eigenschaft ZipFileName: Zeichenfolge
Lesen Sie FZipFileName schreiben FZipFileName;
Eigenschaft OnExecute: TNotifyEvent
Lesen Sie FOnExecute schreiben FOnExecute;
öffentliche
{Public Deklarationen}
Konstruktor Create(AOwner: TComponent); außer Kraft setzen;
Destruktor Destroy; außer Kraft setzen;
Prozedur Execute;
Ende;
Die meisten seiner Eigenschaften und Methoden sollten selbsterklärend sein. Die vollständige Umsetzung finden Sie in der Datei FVWinZip.pas.
Umsetzung-Erklärungen
Wenn Sie am Anfang des Abschnitts Implementierung des Codes suchen, sehen Sie den folgenden Code:
{$R FVWinZip.res}
const
Stapeldatei = 'tfvzip.bat';
PLZ = 'Wzzip';
Entpacken Sie = 'Wzunzip';
ListName = 'zipit.lst';
Die erste Zeile sollte sehr vertraut für diejenigen zum Erstellen von eigenen Komponenten verwendet werden. Es gibt die Ressourcendatei, die das Symbol für unsere Komponente enthält. Sie können erstellen und entwerfen Sie Ihre eigenen Ikonen mit Ressourcen-Editor (in Delphi, der Standardwert ist Imagedit.exe, die im bin-Verzeichnis gefunden werden können).
Die Konstanten, die hier helfen Ihnen mit verschiedenen Dateien, verwendet bei der Erstellung oder Extrahieren von Zip-Dateien umgehen.
Stapeldatei ist der Name der Batchdatei, die durch unsere Komponente erstellt werden. Diese Datei hat die Verantwortung für den Aufruf einer der Zip-Dateien (Zip für Compress) oder Unzip zum Dekomprimieren. Die letzte ist ListName, die den Namen einer Textdatei, die enthält eine Liste der Dateien hinzugefügt werden, um die Zip-Datei als auch die Befehle für das Befehlszeile-Programm (so wie Sie in einer Batchdatei und DOS tun würde). ListName wird nur verwendet, wenn die Eigenschaft, die UseFileList unsere Zip-Komponente auf True eine gültige Liste von Dateien festgelegt und ist in der Liste der Dateien-Eigenschaft eingegeben wird.
Wie bereits erwähnt, ist dies nur eine der möglichen Implementierungen für diese Komponente-dort auf jeden Fall Verbesserungsbedarf. Schauen Sie sich die online-Hilfedatei, die mit dem WinZip Command Line Support Add-on Weitere Informationen kommt.
Der Code zur Implementierung
Es gibt zwei wichtige Methoden im Abschnitt über die Implementierung, die ich Ihnen kurz vorstellen möchten.
Die erste ist die Prozedur CreateCompressBat (siehe Listing 2). In diesem Verfahren erstellen Sie eine Batchdatei, die basierend auf die Bedürfnisse des Anwenders. Es gibt die Aktion um (komprimieren/dekomprimieren), tragen den Namen der Datei, den Namen der Zip-Datei komprimieren und ob Sie eine Listendatei verwenden oder nicht.
Codebeispiel 2. Die CreateCompressBat-Routine.
Prozedur TFVWinZip.CreateCompressBat;
var
F: TextFile;
Befehl: String;
beginnen
versuchen Sie
Wenn FzipState = ZsCompress then
Befehl: = Zip
sonst
Befehl: = Entpacke;
{Erstellen Batchdatei komprimieren}
AssignFile (F, Stapeldatei);
Rewrite(F);
Writeln (F, 'in @ECHO OFF');

Writeln (F, ' REM *** TFVWinZip von Vicaria F ***');
Wenn UseFileList dann
Writeln (F, STRG +' ''+ ZipFileName +
' '''+ '@zipit.lst'+' '')
sonst
Writeln (F, STRG +' ''+ ZipFileName +
' '' '+' FileName + '');
Writeln ('Cd\', F);
Writeln ('Cls', F);
Schließlich
CloseFile(F);
Ende;
Ende;
Das zweite ist das Herz unserer Komponente. Die Execute-Methode wird (siehe Listing 3) einen separaten Prozess initiieren, der die Batch-Datei ausgeführt wird, die wiederum, WinZips-Befehlszeile aufrufen wird. Dadurch wird vermieden, dass jede Art von Abhängigkeit von der Geschwindigkeit der Maschine ausführen des Programms. Dazu verwende ich zwei API-Funktionen-CreateProcess und WaitForSingleObject (überprüfen Sie die Windows API-Hilfedatei für weitere Details zur Verwendung dieser Funktionen).
Codebeispiel 3. Die Execute-Routine.
Prozedur TFVWinZip.Execute;
var
ProcessInfo: TProcessInformation;
StartupInfo: TStartupInfo;
Geschlossen: Boolean;
OldTime: TDateTime;
beginnen
Wenn Assigned(FOnExecute) dann FOnExecute(Self);
versuchen Sie
{Chech UseFileList festgelegt ist oder wenn
Dateiname oder ist eine gültige Datei}
Wenn UseFileList dann
beginnen
Wenn FileList.Count= 0 dann
beginnen
MessageDlg ('No File komprimieren!',
MtError, [Mbok], 0);
Ausfahrt;
Ende
sonst
FileList.SaveToFile(ListName);
Ende
sonst
beginnen
Wenn nicht dann FileExists(FileName)
beginnen
MessageDlg)
'Programm keine Datei komprimieren gefunden!',
MtError, [Mbok], 0);
Ausfahrt;
Ende;
Ende;
{Wenn ZipFileName leer ist verwenden Sie Dateinamen
als Standardnamen}
Wenn ZipFileName ='' dann
beginnen
Wenn FileName <>'' dann
ZipFileName: = ChangeFileExt(FileName,'.zip')
sonst
ZipFileName:='Untitled.zip';
Ende;
{Erstellen Sie Batchdatei}
CreateCompressBat;
{Fenstereinstellungen für den Prozess vorbereiten}
FillChar (StartupInfo, SizeOf(TStartupInfo), 0);
mit StartupInfo-do
beginnen
CB: = SizeOf(TStartupInfo);
DwFlags: = STARTF_USESHOWWINDOW;
wShowWindow: = SW_MINIMIZE;
Ende;
{Execute Batch-Datei als separater Prozess}
CreateProcess(PChar(BatchFile), Nil, Nil, Nil,
Falsch, NORMAL_PRIORITY_CLASS,
Nil, Nil, StartupInfo, ProcessInfo);
{Warten, diesen Prozess zu beenden oder
kündigen Sie es nach 10 Sekunden}
Geschlossen: = False;
OldTime: = jetzt;
Wiederholen Sie die
Fall WaitForSingleObject)
ProcessInfo.hProcess, 100) des
WAIT_OBJECT_0: Geschlossen: = True;
WAIT_FAILED: RaiseLastWin32Error;
Ende;
Application.ProcessMessages;
bis (geschlossen) oder (jetzt > OldTime + 10000);
{Löschen Sie Batch-Datei}
DeleteFile(BatchFile);
Wenn UseFileList dann
DeleteFile(ListName);
mit Ausnahme von
MessageDlg)
'Programm konnte nicht komprimieren!',
MtError, [Mbok], 0);
Ende;
Ende;
Nach dem Ausführen der Batch-Datei und damit WinZip, werden die Execute-Methode alle intern erstellten Dateien für Sie loswerden. Sobald die Methode gibt, alles, was Sie mit Links sind ist die Zip Datei Sie erstellt oder Dateien, die Sie extrahiert haben.
Schließlich
Mit Ihrem Objekt könnte nicht einfacher sein: Rufen Sie die Execute-Methode nach dem Erstellen des Objekts und legen Sie einige ihrer Eigenschaften mit den entsprechenden Werten (siehe die Beispielanwendung enthalten).
Um diese Komponente ausführen, rufen Sie einfach die Execute-Methode, nachdem Sie die Eigenschaften der Komponente mit den entsprechenden Werten ausgefüllt haben.
Die einfachste Möglichkeit besteht darin, geben den Namen der Datei (Dateiname) komprimieren möchten und den Namen der Zip-Datei an create(ZipFileName).
Hinweis: Wenn Sie mehrere Dateien in der gleichen Zip-Datei komprimieren möchten, verwenden Sie die String-Liste Liste der Dateien.
Die Hilfe-Datei, die mit der Kommandozeile Add-on für WinZip gibt Ihnen weitere Ideen, wie man diese Komponente zu verbessern und wie Sie WinZip in Ihren Anwendungen nutzen.
Ein paar Warnungen...
Sie müssen sicherstellen, dass die beiden Dateien, die mit dem WinZip Command Line Add-on (WZZIP kommen. EXE und WZUNZIP. (EXE) sind in Ihrem Pfad. Wenn sie sich nicht, musst du sie in Ihrem Systemverzeichnis zu verschieben.
Eine andere Sache zu erinnern ist, dass diese Dateien sind nur für diejenigen, die WinZip gekauft haben und ein Upgrade auf Version 7 oder höher. Meiner Meinung nach kann dies kaum einen Nachteil heute betrachtet werden. WinZip ist der Industrie-standard-Archiv-Dienstprogramm für die Windows-Umgebung geworden, und es ist sehr schwierig, jemanden zu finden, es macht keinen Gebrauch.
Wenn Sie Fragen oder Anregungen haben, bitte schicken sie Sie mir an [email protected].
Dateien, die diesen Artikel: vicaria.zip