Yesterday I got a suggestion for a better implementation for TFile.Size from Stefan Glienke. Many thanks for it, Stefan.<\/p>\n
In order to make the code compatible to other functions in System.IOUtils, I modified it in the way that I’m raising an EInOutError if there is a problem.<\/p>\n
I could compile the code for all platforms Win32, Win64, MacOS32, iOS32, iOS64, Android32 and Linux64.<\/p>\n
unit System.IOUtils.Helper;\r\n\r\ninterface\r\n\r\nuses\r\n System.IOUtils;\r\n\r\ntype\r\n TFileHelper = record Helper for TFile\r\n public\r\n class function Size(const APath: string): Int64; static;\r\n end;\r\n\r\nimplementation\r\n\r\n{$IFDEF MSWINDOWS}\r\nuses\r\n System.SysUtils, Winapi.Windows;\r\n{$ENDIF}\r\n{$IFDEF POSIX}\r\nuses\r\n System.SysUtils, Posix.SysStat;\r\n{$ENDIF}\r\n\r\n{ TFileHelper }\r\n\r\nclass function TFileHelper.Size(const APath: string): Int64;\r\n{$IFDEF MSWINDOWS}\r\nvar\r\n lAttributes: TWin32FileAttributeData;\r\nbegin\r\n if GetFileAttributesEx(PChar(APath), GetFileExInfoStandard, @lAttributes) then\r\n begin\r\n Int64Rec(Result).Lo := lAttributes.nFileSizeLow;\r\n Int64Rec(Result).Hi := lAttributes.nFileSizeHigh;\r\n end\r\n else\r\n raise EInOutError.Create(SysErrorMessage(GetLastError));\r\nend;\r\n{$ENDIF}\r\n{$IFDEF POSIX}\r\nvar\r\n lStat: _stat;\r\n lFileName: Pointer;\r\n lMarshaller: TMarshaller;\r\n lError: Integer;\r\nbegin\r\n lFileName := lMarshaller.AsAnsi(APath, CP_UTF8).ToPointer;\r\n lError := stat(lFileName, lStat);\r\n if lError = 0 then\r\n Result := lStat.st_size\r\n else\r\n raise EInOutError.Create(SysErrorMessage(lError));\r\nend;\r\n{$ENDIF}\r\n\r\nend.\r\n<\/pre>\n","protected":false},"excerpt":{"rendered":"Yesterday I got a suggestion for a better implementation for TFile.Size from Stefan Glienke. Many thanks for it, Stefan. In order to make the code compatible to other functions in System.IOUtils, I modified it in the way that I’m raising … Continue reading