Volume Shadow Copy Service

[kopernikus]

Nachfolgend ein Update mit einigen Fehlerkorrekturen und Ergänzungen.

[kopernikus]

Hier ein Beispiel, wie man die VSS-Routinen in ein eigenes Programm einbinden kann:

Code:

...
    procedure ShowVssStatus (const AStatus : string);
    begin
      ...
      end;
...
    VssThread:=CreateVssThread(Drive,true);
    with VssThread do begin
      LogFilename:=TempDir+'VssLog.txt';
      WriteLog:=true;
      OnStatusMessage:=ShowVssStatus;
      Resume;
      WriteLineToLog('Creating a Volume Shadow Copy: '+DateTimeToStr(Now));
      repeat
        Sleep(1);
        Application.ProcessMessages;
        until Done;
      if Success then begin
        SaveBackupComponentsDocument(TempDir+'VssBackupDoc.xml');
        SourceDrv:=ShadowDeviceName;
        end
      else begin
        WriteLineToLog(sLineBreak+'Snapshot creation failed');
        FreeAndNil(VssThread);
        SourceDrv:=Drive;
        end;
      end;
...
// Backup or similar action
...
  if assigned(VssThread) then begin
    try
      VssThread.DeleteShadowCopy;
    finally
      FreeAndNil(VssThread);
      end;
    end;
...

Im Anhang gibt es außerdem eine aktualisierte Version des Programms.

[LTE5]

Wie verwendet man diese Unit wenn man eine Datei kopieren möchte die gesperrt und in Benutzung ist? Oder ist vss für sowas gar nicht gedacht.

[himitsu]

Wenn VSS diese Datei aufbekommt, während sie gesperrt/geöffnet ist, dann hättest du eventuell eine halbe/korrupte Datei.

Im Allgemeinen macht man mit VSS die Dateien das Volume vorher auf, wobei eine "Kopie" ("Session" in DB-Sprache) erzeugt wird, mit der man weiterarbeitet.
Werden Dateien währenddessen nun geöffnet/geändert, dann erstellt der VSS-FilterTreiber von diesen Dateien eine Kopie, mit dener die Andere weitergearbeiten, während in der VSS-Session du in Ruhe mit dem alten Datei-Stand weiterarbeiten kannst.

Es gibt auch Transacted-Dateifunktionen (ala CreateFileTransacted) wo man sowas statt auf Volume-Ebene für einzelne Dateien machen kann.


Eventuell hilft auch die alte Backup-API.
https://msdn.microsoft.com/en-us/lib.../aa362512.aspx
(spaßig ist nur, dass man dort die Dateien im Roh-Format bekommt, wenn sie verschlüsselt/komprimiert/sparsed sind)

[LTE5]

Verstehe ich das richtig dass wenn man den Code oben von kopernikus nimmt, in einen TTHread packt, den Thread erzeugt und dann eine gesperrte Datei kopieren möchte, diese gesperrte Datei aus der Shadow Copy kopiert wird welches angelegt wurde? Verwendet man dann trotzdem die ganz normalen WinAPI Aufrufe wie CopyFile?

[KHJ]

Vielleicht hilft auch das weiter: http://www.rathlev-home.de/sources/delphi.html#unitsdx

[LTE5]

Wie es aussieht verstehe ich das nicht. Ich rufe

Code:

VsToolkit.exe C:\

auf und dann?

[LTE5]

Zitat von kopernikus:

Hier ein Beispiel, wie man die VSS-Routinen in ein eigenes Programm einbinden kann:

Code:

...
    procedure ShowVssStatus (const AStatus : string);
    begin
      ...
      end;
...
    VssThread:=CreateVssThread(Drive,true);
    with VssThread do begin
      LogFilename:=TempDir+'VssLog.txt';
      WriteLog:=true;
      OnStatusMessage:=ShowVssStatus;
      Resume;
      WriteLineToLog('Creating a Volume Shadow Copy: '+DateTimeToStr(Now));
      repeat
        Sleep(1);
        Application.ProcessMessages;
        until Done;
      if Success then begin
        SaveBackupComponentsDocument(TempDir+'VssBackupDoc.xml');
        SourceDrv:=ShadowDeviceName;
        end
      else begin
        WriteLineToLog(sLineBreak+'Snapshot creation failed');
        FreeAndNil(VssThread);
        SourceDrv:=Drive;
        end;
      end;
...
// Backup or similar action
...
  if assigned(VssThread) then begin
    try
      VssThread.DeleteShadowCopy;
    finally
      FreeAndNil(VssThread);
      end;
    end;
...

Im Anhang gibt es außerdem eine aktualisierte Version des Programms.

Zitat:

Creating shadow set {{02A915B5-D34E-4420-A566-FB8D1DFF32CE}} ...
Add volumes to snapshot set ...
- Adding volume [??] to the shadow set...
ERROR : COM call "TVolumeShadowCopy.AddToSnapshotSet:VssBackupCompo nents.AddToSnapshotSet" failed.
- Returned HRESULT = $80070057
- Error text: Falscher Parameter
ERROR : TVolumeShadowCopy.AddToSnapshotSet:VssBackupCompon ents.AddToSnapshotSet (Falscher Parameter)

Snapshot creation failed

Warum funktioniert das nicht?
C reicht als Drive nicht. Muss C:\ sein. Funktioniert jetzt.

Eine Frage zur Funktion noch. Ich habe nur Delphi Starter. Wenn ich eine 32 Bit-Anwendung mit dem VSS erstelle, kann ich das auch auf einem 64 Bit Windows benutzen oder muss ich dafür erst Delphi Pro haben?

[Hobbycoder]

Ist das Thema noch aktiv?

habe nämlich zur Zeit auch das Problem, dass beim CreateVssThread die Fehlermeldung "ERROR: COM call "CoInitializeSecurity" failed. (<Unknown error code>)." kommt. Genauer gesagt kommt der Fehler in der VssUtil Zeile 2431 hr:=InitSecurity .
Kompilieren ist keine Problem.

Mein Code-Ausschnitt:

Delphi-Quellcode:

    .
    .
    .
    VssThread:=CreateVssThread(Copy(FSourceFile, 1, 2), True);
    VssThread.LogFileName:='c:\Transfer\vsslog.txt';
    VssThread.WriteLog:=True;
    VssThread.OnStatusMessage:=VssStatusMessage;
    DoLogMessage('Create Snapshot...');
    repeat
      FEvent.ResetEvent;
      FEvent.WaitFor(100);
    until VssThread.Done;
    if VssThread.Success then
    begin
      DoLogMessage('Create Snapshot successfully');
    end else begin
      DoLogMessage('Create Snapshot failed');
    end;
  finally
    if Assigned(VssThread) then
    try
      VssThread.DeleteShadowCopy;
    finally
      FreeAndNil(VssThread);
    end;
  end;

Ziel ist es, innerhalb eines Thread eine Datei, welche aktuell geöffnet ist, zu kopieren,

Ja, ich habe mein Programm mit "Als Administrator ausführen" gestartet.
Und über die Eingabeaufforderung mit VssAdmin geht's.

(Windows 10 Pro Version 1709)

[Hobbycoder]

Push*