Änderungsdatum neu setzen, das neue Änderungsdatum liegt als TDateTime vor... Wie?

[juergen]

Hallo,

so, nach einigem Testen hab ich es nun auch geschafft.
Ein dickes Dankeschön sende ich an DeddyH' für die beiden entscheidenden Hinweise!

Meine Umsetzung:

Delphi-Quellcode:

...
var
  Time1: SystemTime;
  Time2: TFileTime;
  my_Handle: THandle;
  ...
begin
...  
  my_Handle := FileOpen(Main_Form.sl_Master[i], fmOpenWrite or fmShareDenyNone);
  DateTimeToSystemTime(ExifData.DateTimeOriginal, Time1);
  SystemTimeToFileTime(Time1, Time2);
  SetFileTime(my_Handle, @Time2, @Time2, @Time2);
  CloseHandle(my_Handle);
...
end;
...

Ich hoffe dass ich auch alles richtig verstanden und auch richtig umgesetzt habe.

@Sir Rufo,
danke für den Hinweis, ich war wohl zu unpräzise.
Ich möchte das Änderungsdatum setzen, wie es in der Explorerspalte "Änderungsdatum" auch angezeigt wird. Da müsste "LastAccessTime" richtig sein.

Danke an alle für die Unterstützung und ein schönes Wochenende!

[Luckie]

Und was passiert, wenn du keine Zugriffsrechte hast? Tipp; Fehlerbehandlung.

[juergen]

@Luckie,
ich hatte nur auszugsweise aufgezeigt.
Für deine berechtigte Ergänzung hatte ich

Delphi-Quellcode:

...
try
// #6
except
  on E: Exception do ShowMessage(E.Message);
end;
...

verwendet.

[Luckie]

API-Funktionen werfen keine Exceptions, sondern geben Fehlercodes zurück. Du musst die Exception also selber werfen.

[juergen]

, das wusste ich überhaut nicht und würde gern ein richtige Fehlerbehandlung einsetzen. Danke für den Hinweis!

Meinst du mit "Fehlercodes" sowas wie GetLastError?
Wie müsste man eine richtige Fehlerbehandlung umsetzen?

[musicman56]

Hallo,

Zitat:

...aber mit DateTimeToSystemTime und anschließend SystemTimeToFileTime müsste das doch gehen.

und vielleicht noch an die lokale Zeit anpassen mit "LocalFileTimeToFileTime"

[juergen]

@musicman56,
, sehr aufmerksam! Das Problem hatte ich schon erkannt und gelöst (dabei hatte mir jemand geholfen).
Meine momentane Lösung sieht nun so aus:

Delphi-Quellcode:

var
...
  Age: Integer;
  LocalFileTime, FileTime: TFileTime;
  hFile: THandle;
... 
begin // Setzen des Dateidatum mit dem Aufnahmedatum
  hFile := FileOpen(FCurFile_Exif, fmOpenWrite or fmShareDenyNone);
  try
    Age := DateTimeToFileDate(ExifData.DateTimeOriginal);
    if DosDateTimeToFileTime(LongRec(Age).Hi, LongRec(Age).Lo,
      LocalFileTime)
      and LocalFileTimeToFileTime(LocalFileTime, FileTime) then begin
      SetFileTime(hFile, @FileTime, nil, @FileTime);
    end;
  finally
    FileClose(hFile);
  end;
end;...