Dateiattribute und -zeitstempel kopieren

[DeddyH]

Zitat von MSDN:

If the function fails, the return value is zero. To get extended error information, call GetLastError.

[necromundo]

hab ich mir grade mal ausgeben lassen, er sagt, das handle ist ungültig!
allerdings düfte er gar nicht in den block kommen, wenn es ungültig wäre!
hier nochmal der aktuelle quelltext:

Delphi-Quellcode:

function TForm1.transferdateiinfos(source,destination: widestring): boolean;
var
  NewCreationTime, NewAccessTime, NewWriteTime: TFileTime;
  hFind_s, hFind_d: THandle;
  FindFileData_s, FindFileData_d: WIN32_FIND_DATAW;
begin
  result := false;
  if source[length(source)] = '\' then setlength(source,length(source)-1);
  if destination[length(destination)] = '\' then setlength(destination,length(destination)-1);
  hFind_s := FindFirstFileW(PWideChar(source),FindFileData_s);
  hFind_d := FindFirstFileW(PWideChar(destination),FindFileData_d);
  if (hFind_s <> INVALID_HANDLE_VALUE) and (hFind_d <> INVALID_HANDLE_VALUE) then begin
    try
      findfiledata_d.dwFileAttributes := findfiledata_s.dwFileAttributes;
      result := GetFileTime(hFind_s, @NewCreationTime, @NewAccessTime, @NewWriteTime);
      ShowMessage(SysErrorMessage(GetLastError));
      result := SetFileTime(hFind_d, @NewCreationTime, @NewAccessTime, @NewWriteTime);
    finally
     Windows.FindClose(hFind_s);
     Windows.FindClose(hFind_d);
    end;
  end;
end;

[DeddyH]

Zu FindFirstFile sagt das MSDN:

Zitat:

If the function fails or fails to locate files from the search string in the lpFileName parameter, the return value is INVALID_HANDLE_VALUE and the contents of lpFindFileData are indeterminate. To get extended error information, call the GetLastError function.

If the function fails because no matching files can be found, the GetLastError function returns ERROR_FILE_NOT_FOUND.

Vermutlich reicht die Abfage auf INVALID_HANDLE_VALUE nicht aus.

[necromundo]

hmmm, nach dem zuweisen des handles, sagt getlasterrror "der vorgang wurde erfolgreich beendet"
merkwürdig, merkwürdig...

ich benutze aber dieses findfirstfilew auch an anderen stellen, um größe, name oder attribute der datei zu bekommen, das funktioniert alles!

[p80286]

Hallo necromundo,

in der Hilfe steht:

Zitat:

The FindFirstFile function opens a search handle and ...

was ich nicht zwangsläufig als Dateihandle interpretiere.
Die eigentlichen Daten stehen ja in WIN32_FIND_DATA .

was funktioniert (nicht schön aber geht):

Delphi-Quellcode:

var
  inf,outf:tfilestream;
  time1,time2,time3 : tfiletime;
begin
  inf:=tfilestream.Create('c:\temp\sha1.txt',fmopenread);
  outf:=tfilestream.Create('c:\temp\sha1_k.txt',fmopenreadwrite);
  GetFileTime(inf.Handle,@time1,@time2,@time3);
  SetFileTime(outf.Handle,@time1,@time2,@time3);
  outf.Free;
  inf.Free;
end;

Gruß
K-H

[DeddyH]

Oder CreateFile verwenden, wie es auch im MSDN steht (was ich selbst auch übersehen habe )

[necromundo]

ja, das könnte sein! das würde auch erklären, dass es keinen effekt hatte mit der ersten variante, die ich hier gepostet habe! wenn das search handle nicht wieder zurückgeschrieben wird...

aber soweit ich weiss, funktioniert der filestream nicht mit widestrings.
ich habe bis jetzt aber auch noch keine möglichkeit gefunden, ein handle zu erstellen für einen widestring-dateinamen! :-/

[necromundo]

ah! moment!
createfilew gibt es ja! damit könnte ich zumindest das richtige handle zu der datei finden!
werde ich morgen mal probieren, aber jetzt habe ich erst einmal feierabend!

aber danke schonmal für die konstruktiven beiträge!

[necromundo]

So, das Problem ist behoben!
Die Vermutung, dass das letzte Zugriffsdatum sofort geändert wird, wenn die Datei in irgendeiner Weise angepackt wird, hat sich bewahrheitet. Also gestaltet sich der Kopiervorgang einer Datei etwas schwieriger als vermutet, wenn man wirklich alle Zeitstempel beibehalten und auch auf die kopierte Datei übertragen will:

Ich habe eine Datenstruktur angelegt für die Zeitstempel:

Delphi-Quellcode:

TZeitstempel = record
    creation: TFileTime;
    lastchange: TFileTime;
    lastaccess: TFileTime;
  end;

Danach zwei Funktionen zum Ermitteln und Schreiben der Zeitstempel:

Delphi-Quellcode:

function getZeitstempel(datei: widestring): TZeitstempel;
var
  dates: TZeitstempel;
  h: THandle;
begin
  if datei[length(datei)] = '\' then setlength(datei,length(datei)-1);
  h := CreateFileW(PWideChar(datei), $0080, 0, nil, OPEN_EXISTING, FILE_ATTRIBUTE_NORMAL, 0);
  GetFileTime(h, @dates.creation, @dates.lastchange, @dates.lastaccess);
  result := dates;
end;

function setZeitstempel(datei: widestring; daten: TZeitstempel): boolean;
var
  h: THandle;
begin
  if datei[length(datei)] = '\' then setlength(datei,length(datei)-1);
  h := CreateFileW(PWideChar(datei), $0100, 0, nil, OPEN_EXISTING, FILE_ATTRIBUTE_NORMAL, 0);
  result := SetFileTime(h, @daten.creation, @daten.lastchange, @daten.lastaccess);
end;

Beim CreateFileW, das $0080 bedeutet FILE_READ_ATTRIBUTES und das §0100 FILE_WRITE_ATTRIBUTES, über das Handle kann also nur auf die Dateiattribute zugegriffen werden.

Und der Part mit dem eigentlichen Kopiervorgang sieht dann so aus:

Delphi-Quellcode:

tempzeitstempel := getzeitstempel(quelle);
copyfilew(pwidechar(quelle),pwidechar(ziel),false);
setzeitstempel(quelle,tempzeitstempel);
setzeitstempel(ziel,tempzeitstempel);

Damit ist das Problem gelöst!

[Reinhard Kern]

Zitat von necromundo:

...Die Vermutung, dass das letzte Zugriffsdatum sofort geändert wird, wenn die Datei in irgendeiner Weise angepackt wird, hat sich bewahrheitet. Also gestaltet sich der Kopiervorgang einer Datei etwas schwieriger als vermutet, wenn man wirklich alle Zeitstempel beibehalten und auch auf die kopierte Datei übertragen will:
...

Hallo,

das stand so schon im vorigen Jahrhundert in MSDN - es gäbe sonst keine korrekte Kopier- und Backup-Software.

Gruss Reinhard