VPHD - Virtual private hard-disc

[Luckie]

Zitat:

Zitat von olee (Beitrag 1144207)

Dieser wird aber (wenn ich mich recht erinnere) nur zu gegebenem Anlass ausgeführt.

Und wann ist ein gegebener Anlass?

[olee]

Ich habe gerade nachgekuckt und festgestellt, dass der Algorithmus doch nicht aufgerufen wird :oops:

Ich werde gleich eine Version hochladen wo dies automatisch geschieht.

[olee]

So.

Ich habe in der neuen Version die Defragmentierung wieder aktiviert.
Sie wird ausgeführt, sobald das Archiv geschlossen wird.

Mit freundlichen Grüßen
Björn Zeutzheim

[olee]

So, endlich ist es soweit fertig.
Ich habe nun das Projekt in eine DLL, über welche die VPHD-Bibliothek über ein Interface nutzen lässt, exportiert.
Damit sollte sich das Projekt auch in den meisten anderen Sprachen nutzen lassen.
Außerdem stellt so auch die Verwendung innerhalb einer Anwendung kein großes Problem mehr dar.
Es ist zwar noch nicht alles ganz ausgereift, aber laufen tuts wunderbar.
Zur Demonstration habe ich auch die Hauptanwendung (VPHD_Tool.exe) schnell mal auf die Verwendung der Bibliothek umgestellt, was sich ohne großen Aufwand umsetzen ließ.
Daher kann ich euch auch nun hier die Source zum Tool rausgeben.
(nicht aber die Sourcen der Bibliothek - das werde ich mir nochmal überlegen :-D - bzw auf Nachfrage)

Die Downloads sind wie immer im ersten Post verlinkt.

Mit freundlichen Grüßen
Björn Zeutzheim

[neo4a]

Ich habe mir Dein Projekt bereits angeschaut und bin sehr beeindruckt, wie schnell Du mit der DLL all die hier geäußerten Wünsche und Anregungen "erschlagen" konntest.

Vielen Dank dafür!

[olee]

Nun ja...
eigentlich war das ganze nicht so schwer wie erwartet ^^

Der Trick war folgender:
Das Projekt von VPHD besteht im Grunde aus einer einzigen Hauptklasse.
Diese habe ich nun so abgeändert, dass ich dazu ein Interface (IVphd) mit allen public Methoden anlegen konnte. Dazu musste ich im Grunde nur die ganze Klasse kopieren, interface drüber schreiben, alle nicht-public felder rauslöschen und für ein paar public-variablen noch getter und setter anlegen.

Damit das ganze nun auch als DLL nutzbar ist habe ich dann noch ein paar kleine Methoden geschrieben, welche exportiert werden. So z.B. zum öffnen / erstellen eines Archives:

Delphi-Quellcode:

function OpenVphdFile(const FileName, Password: PWideChar; CreateNew: Boolean): IVphd; stdcall;
begin
  Result := TVPHD.Create(FileName, Password, CreateNew);
end;

Diese Funktion gibt dann am ende der Anwendung ein IVphd-Interface zurück, welches sich im Grunde fast exakt wie die normale Klasse verwänden lässt.
Zuletzt war es noch nötig ale WideStrings in den Methoden des Interfaces durch PWideChar (mit daraus folgenden Code-Anpassungen) zu ersetzen und natürlich an alle Methoden stdcall dranhängen.
Das wars dann auch schon im Großen und Ganzen.

Hier mal als Beispiel das ganze Interface:

Delphi-Quellcode:

  IVPHD = interface (IInterface)
    ['{3D6C8AAE-0CED-4D71-A1E2-26D2CCD0E8A5}']
  {$REGION 'File management'}
    procedure BeginUpdate; stdcall;
    procedure EndUpdate; stdcall;
    function GetDirectory(APath: PWideChar; DoCreate: Boolean): PDirNode; stdcall;
    function GetDirectoryFile(APath: PWideChar; var FileID: Integer): PDirNode; stdcall;
    function GetFile(AFileName: PWideChar): Integer; overload; stdcall;
    function GetFile(Dir: PDirNode; AName: PWideChar): Integer; overload; stdcall;
    //==============================================================================
    procedure AddFile(const AFileName: PWideChar; Data: TStream;
      FileDate: TDateTime); overload; stdcall;
    procedure AddFile(ARoot, AFileName: PWideChar); overload; stdcall;
    //==============================================================================
    procedure ExtractDir(Dir: PDirNode; DstPath: PWideChar); stdcall;
    procedure ExtractAll(DstPath: PWideChar); stdcall;
    procedure ExtractFile(FileID : Integer; const DstFile: PWideChar); overload; stdcall;
    procedure ExtractFile(FileID : Integer; DstStream: TStream); overload; stdcall;
    //==============================================================================
    procedure ExtractFileStart(FileID: Integer); stdcall;
    function ExtractFilePart(Dst: TStream; Count: Integer): Integer; stdcall;
    function ExtractFilePartBuff(var Data; Count: Integer): Integer; stdcall;
    procedure ExtractFileEnd; stdcall;
    //==============================================================================
    procedure DeleteFile(FileID: Integer); stdcall;
    procedure DeleteDir(Dir: PDirNode); stdcall;
    procedure RenameFile(FileID : Integer; ANewName: PWideChar); stdcall;
    procedure RenameDir(Dir: PDirNode; ANewName: PWideChar); stdcall;
  {$ENDREGION}
    procedure DrawFragmentationBar(DstDC: HDC; Width, Height: Integer;
      DrawStyle : TFragBarDrawStyle); stdcall;

    procedure SaveAs(const AFileName: PWideChar); overload; stdcall;
    procedure SaveAs(AStream: TStream); overload; stdcall;
    procedure Defragment; stdcall;
    procedure Finish; stdcall;

    function GetFileCount: Integer; stdcall;
    function GetFile(Index: Integer): PVphdFileInfo; overload; stdcall;
    property FileList[Index: Integer]: PVphdFileInfo read GetFile;

    function GetUpdating: Boolean; stdcall;
    function GetProgressFile: PWideChar; stdcall;
    procedure SetProgressFile(v: PWideChar); stdcall;
    function GetOwnStream: Boolean; stdcall;
    procedure SetOwnStream(v: Boolean); stdcall;
    function GetEOF: Int64; stdcall;
    function GetDescription: PWideChar; stdcall;
    procedure SetDescription(v: PWideChar); stdcall;
    function GetFileName: PWideChar; stdcall;
    function GetOnProgress: TVphdProgressEvent; stdcall;
    procedure SetOnProgress(v: TVphdProgressEvent); stdcall;

    property Updating: Boolean read GetUpdating;
    property ProgressFile: PWideChar read GetProgressFile write SetProgressFile;
    property OwnStream: Boolean read GetOwnStream write SetOwnStream;
    property Description: PWideChar read GetDescription write SetDescription;
    property FileName: PWideChar read GetFileName;
    property EOF: Int64 read GetEOF;
    property OnProgress: TVphdProgressEvent read GetOnProgress write SetOnProgress;
  end;

Wenn man sich von der Hauptanwendung (VPHD_Tool.exe) mal die Source anschaut sieht man auch, dass der Unterschied zwischen der Nutzung über das Interface und als normale Klasse wirklich minimal ist (lässt sich nun durch einen kleinen Compilerschalter umstellen).

MFG
Björn Zeutzheim

[Luckie]

Zitat:

Zitat von neo4a (Beitrag 1144334)

Ich habe mir Dein Projekt bereits angeschaut und bin sehr beeindruckt, wie schnell Du mit der DLL all die hier geäußerten Wünsche und Anregungen "erschlagen" konntest.

Das ist Zeichen für ein gutes Konzelpt und sauberer Programmierung.

[olee]

Danke ;)

Aber ich muss noch dran arbeiten.

Auf meiner TODO-Liste steht vor allem noch ein wichtiger Punkt:

Das auslesen von Dateien soll noch besser realisiert werden. Vor allem ist es mein Ziel, eine Funktion zu schreiben, welche einen speziellen Stream zurückgibt, mit welchem man eine Datei Stück für Stück aus dem Archiv auslesen kann. Das ist nicht gerade einfach und bedarf noch einiger Anpassung. Was jedoch bisher möglich ist, ist das Stückweise Auslesen mittels der 3 Funktionen:

Delphi-Quellcode:

procedure ExtractFileStart(FileID: Integer); stdcall;
function ExtractFilePart(Dst: TStream; Count: Integer): Integer; stdcall;
function ExtractFilePartBuff(var Data; Count: Integer): Integer; stdcall;
procedure ExtractFileEnd; stdcall;

PS: Der nächste Punkt auf meiner TODO-Liste ist aktuell aber die Implementation einer Kommandozeile.
Ergebnisse sind in ca. einer Stunde zu erwarten, falls ich nicht ne Runde zocke xD

EDIT:
Eine kleine Bemerkung am Rande:
Ich habe im Laufe der Entwicklung auch eine extra Testanwendung geschrieben, welche die Library einem Stresstest unterzieht.
Dabei wurden tausende von Dateien kunterbunt hinzugefügt und gelöscht und dabei immer wieder die Datenintegrität (über Hashes der Zufallsdaten) geprüft.
Dadurch wurden alle Fehler beseitigt und die Sicherheit des Formates überprüft (also keine Memory-leaks bzw. Dateninkonsistenzen).
Außerdem habe ich dabei den gesamten Code auf höchste Performance optimiert.

EDIT #2:
Eine weitere Bemerkung:
Das ganze Projekt ist durch Nutzung der TNT-Unicode-Controls Unicode-fähig!
(Ist zwar ein etwas böser Hack, aber der Nutzen ist enorm ^^)
Ich würde die DLL ja gerne ohne diesen Hack kompilieren, doch leider habe ich nur Turbo Delphi.
Ich werde aber mal sehen ob ich zumindest für die DLL nicht eine bessere Lösung finde....
Jetzt wo ich so darüber nachdenke, würde es reichen, nur ein paar wenige Klassen und Methoden aus den TNT-units zu nehmen, anstatt gleich alles mit reinzunehmen...

[olee]

So.

Wie versprochen habe ich nun die Konsolenversion implementiert.

Der Download befindet sich wie gehabt im ersten Post.

Für eine Hilfe zur Verwendung der Konsolenanwendung diese mit dem Parameter "/help" oder "/?" aufrufen.

MFG
Björn Zeutzheim

[Luckie]

Muss ich mir mal genauer angucken, ob das reicht. Weil es wäre gut, wenn man noch Dateien (auch mit Wildcards) und Verzeichnisse ausschließen könnte. Und muss man, wenn man ein Verzeichnis hinzufügt auch einen Pfad im Archiv angeben?