paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-15 17:39:25 +02:00
Code Issues Packages Projects Releases Wiki Activity

* FileGetDate, FileSetDate linux compilation

Browse Source 
git-svn-id: trunk@47397 -
This commit is contained in:
ondrej 2020-11-12 13:55:01 +00:00
parent d899c9fca4
commit 3ea339400e
3 changed files with 17 additions and 15 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
rtl/objpas/sysutils/filutil.inc
View File

@ -843,14 +843,14 @@ begin
FileDateTimeUTC:=FileDateToUniversal(aDate);
end;
Function FileSetDate (Handle : THandle; const Age: TDateTime) : Boolean;
Function FileSetDate (Handle : THandle; const Age: TDateTime) : Longint;
begin
Result := FileSetDate(DateTimeToFileDate(Age));
Result := FileSetDate(Handle,DateTimeToFileDate(Age));
end;
Function FileSetDateUTC (Handle : THandle; const AgeUTC: TDateTime) : Boolean;
Function FileSetDateUTC (Handle : THandle; const AgeUTC: TDateTime) : Longint;
begin
Result := FileSetDate(DateTimeToFileDate(AgeUTC));
Result := FileSetDate(Handle,UniversalToFileDate(AgeUTC));
end;

4
rtl/objpas/sysutils/filutilh.inc
View File

@ -235,8 +235,8 @@ Function FileGetDate (Handle : THandle) : Int64;
Function FileGetDate (Handle : THandle; out FileDateTime: TDateTime) : Boolean;
Function FileGetDateUTC (Handle : THandle; out FileDateTimeUTC: TDateTime) : Boolean;
Function FileSetDate (Handle : THandle;Age : Int64) : Longint;
Function FileSetDate (Handle : THandle; const Age: TDateTime) : Boolean;
Function FileSetDateUTC (Handle : THandle; const AgeUTC: TDateTime) : Boolean;
Function FileSetDate (Handle : THandle; const Age: TDateTime) : Longint;
Function FileSetDateUTC (Handle : THandle; const AgeUTC: TDateTime) : Longint;
Function GetFileHandle(var f : File):THandle;
Function GetFileHandle(var f : Text):THandle;

20
rtl/win/sysutils.pp
View File

@ -694,28 +694,30 @@ begin
Result := GetLastError;
end;
Function FileSetDate (Handle : THandle; const Age: TDateTime) : Boolean;
Function FileSetDate (Handle : THandle; const Age: TDateTime) : Longint;
var
FT: TFiletime;
LT: TFiletime;
ST: TSystemTime;
begin
DateTimeToSystemTime(Age,ST);
Result :=
SystemTimeToFileTime(ST,LT)
and LocalFileTimeToFileTime(LT,FT)
and SetFileTime(Handle,nil,nil,@FT);
if SystemTimeToFileTime(ST,LT) and LocalFileTimeToFileTime(LT,FT)
and SetFileTime(Handle,nil,nil,@FT) then
Result:=0
else
Result:=GetLastError;
end;
Function FileSetDateUTC (Handle : THandle; const AgeUTC: TDateTime) : Boolean;
Function FileSetDateUTC (Handle : THandle; const AgeUTC: TDateTime) : Longint;
var
FT: TFiletime;
ST: TSystemTime;
begin
DateTimeToSystemTime(AgeUTC,ST);
Result :=
SystemTimeToFileTime(ST,FT) and
SetFileTime(Handle,nil,nil,@FT);
if SystemTimeToFileTime(ST,FT) and SetFileTime(Handle,nil,nil,@FT) then
Result:=0
else
Result:=GetLastError;
end;
{$IFDEF OS_FILESETDATEBYNAME}