VPHD - Virtual private hard-disc

[olee]

Die Datei wird kleiner - aber nicht immer.
Es ist intern ein Defragmentierungsalgorithmus vorhanden, welcher die Datei wieder verkleinert.
Dieser wird aber (wenn ich mich recht erinnere) nur zu gegebenem Anlass ausgeführt.

Den Ansatz einer Bibliothek habe ich auch im Sinn gehabt, aber der Gedanke ist irgendwie etwas in Vergessenheit geraten...

Ich werde mich demnächst mal darum kümmern.

Zitat:

Die Icons sind für das Menü zu groß und kollidieren teilweise mit der Beschriftung.

Da wüsste ich auch gerne mal wie man die Menüs anpassen kann, damit sie zu der Größe der Icons passen.

Zitat:

Aber kann man das auch irgendwie automatisieren?

Ich werde mich dann darum kümmern eine Kommandozeile in das Programm einzubauen (wenn ich nicht sogar schon habe... hab ich? ^^)

Zitat:

Muss auf dem anderen Rechner (z.b. Arbeitsrechner) dein Tool auch installiert sein um die Archivdatei zu öffnen?

Nein, man benötigt nur eine Kopie der Anwendung (also portabel) oder man speichert das Archiv im Anwendungsformat (welches sich dann aber nicht mehr so leicht modifizieren lässt)

MFG
Björn

[Luckie]

Zitat von olee:

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

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 - 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 von 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.

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