This commit is contained in:
admin_d committed
1 parent
19ee837986
commit
c2127c3f31
14 files changed
+3621
-5
No files matched your search
File diff suppressed because it is too large.
Load diff
@@ -0,0 +1,713 @@
|
||||
unit KM_FileIO;
|
||||
{$I KaM_Remake.inc}
|
||||
interface
|
||||
uses
|
||||
{$IF DEFINED(FPC) AND NOT DEFINED(ANDROID)} lconvencoding, FileUtil, LazUTF8,
|
||||
// windirs does not work under old lazarus (1.8.0) / FPC versions, which we use to make linux dedi server
|
||||
LazFileUtils,{ windirs,} {$ENDIF}
|
||||
{$IFDEF WDC} System.IOUtils, {$ENDIF}
|
||||
{$IFDEF MSWindows} Windows, ShellAPI, {$ENDIF}
|
||||
{$IF DEFINED(Unix) AND NOT DEFINED(ANDROID)} LCLType, {$ENDIF}
|
||||
Classes, SysUtils
|
||||
{$IFDEF WDC}, KM_WorkerThread{$ENDIF}
|
||||
, KM_CommonTypes;
|
||||
|
||||
//Read text file into ANSI string (scripts, locale texts)
|
||||
function ReadTextA(const afilename: UnicodeString): AnsiString;
|
||||
|
||||
//Read text file into unicode string (locale texts)
|
||||
function ReadTextU(const afilename: UnicodeString; aEncoding: Word): UnicodeString;
|
||||
|
||||
procedure KMCreateEmptyFile(const aFilePath: UnicodeString);
|
||||
|
||||
//Copy a file (CopyFile is different between Delphi and Lazarus)
|
||||
procedure KMCopyFile(const aSrc, aDest: UnicodeString); overload;
|
||||
procedure KMCopyFile(const aSrc, aDest: UnicodeString; aOverwrite: Boolean); overload;
|
||||
|
||||
//{$IF DEFINED(WDC) OR (FPC_FULLVERSION >= 30200)}
|
||||
{$IFDEF WDC}
|
||||
procedure KMCopyFileAsync(const aSrc, aDest: UnicodeString; aOverwrite: Boolean; aWorkerThread: TKMWorkerThread);
|
||||
{$ENDIF}
|
||||
|
||||
procedure KMDeleteFileToBin(const aPath: UnicodeString);
|
||||
procedure KMDeleteFile(aFilePath: string; aDeleteToBin: Boolean = False);
|
||||
|
||||
//Delete a folder (DeleteFolder is different between Delphi and Lazarus)
|
||||
procedure KMDeleteFolderToBin(const aPath: UnicodeString);
|
||||
procedure KMDeleteFolder(const aPath: UnicodeString); overload;
|
||||
procedure KMDeleteFolder(const aPath: UnicodeString; aDeleteToBin: Boolean); overload;
|
||||
procedure KMDeleteFolderContent(const aPath: UnicodeString; aDeleteToBin: Boolean = False);
|
||||
|
||||
|
||||
//Rename a file (RenameFile is different between Delphi and Lazarus)
|
||||
procedure KMRenamePath(const aSourcePath, aDestPath: UnicodeString);
|
||||
|
||||
//Move a folder and rename all the files inside it (MoveFolder is different between Delphi and Lazarus)
|
||||
function KMMoveFolder(const aSourceFolder, aDestFolder: UnicodeString): Boolean;
|
||||
|
||||
//Rename all the files inside folder (MoveFolder is different between Delphi and Lazarus)
|
||||
procedure KMRenameFilesInFolder(const aPathToFolder, aFromName, aToName: UnicodeString);
|
||||
|
||||
function KMFileSize(const aFilename: String): Int64;
|
||||
|
||||
function IsFilePath(const aPath: UnicodeString): Boolean;
|
||||
|
||||
procedure WriteText(const aText: string; aFilename: string; aEncoding: TEncoding);
|
||||
procedure WriteTextUtf8(const aText, aFilename: string);
|
||||
|
||||
function IsDirectoryWriteable(const aDir: string): Boolean;
|
||||
|
||||
function CreateAndGetDocumentsSavePath: string;
|
||||
|
||||
procedure CheckFolderPermission(const aPath: string; var aRead, aWrite, aExec: Boolean);
|
||||
|
||||
|
||||
implementation
|
||||
uses
|
||||
StrUtils, KM_CommonUtils,
|
||||
KM_Defaults;
|
||||
|
||||
|
||||
function ReadTextA(const aFilename: UnicodeString): AnsiString;
|
||||
var
|
||||
MS: TMemoryStream;
|
||||
Head: Cardinal;
|
||||
begin
|
||||
MS := TMemoryStream.Create;
|
||||
try
|
||||
// We can't rely on StringList because it applies default codepage encoding,
|
||||
// which may differ between MP players.
|
||||
// Instead we read plain ANSI text. If there's BOM - clip it
|
||||
MS.LoadFromFile(aFileName);
|
||||
|
||||
// Read 4 bytes but check just 3, cos reading 3 bytes is a hassle
|
||||
MS.Read(Head, SizeOf(Cardinal));
|
||||
|
||||
// Trim UTF8 BOM (don't know how to deal with others yet)
|
||||
if Head and $FFFFFF = $BFBBEF then
|
||||
MS.Position := 3
|
||||
else
|
||||
MS.Position := 0;
|
||||
|
||||
SetLength(Result, MS.Size - MS.Position);
|
||||
if MS.Size - MS.Position > 0 then
|
||||
MS.Read(Result[1], MS.Size - MS.Position);
|
||||
finally
|
||||
MS.Free;
|
||||
end;
|
||||
end;
|
||||
|
||||
|
||||
//Load ANSI file with codepage we say into unicode string
|
||||
function ReadTextU(const aFilename: UnicodeString; aEncoding: Word): UnicodeString;
|
||||
var
|
||||
{$IFDEF WDC}
|
||||
SL: TStringList;
|
||||
DefaultEncoding: TEncoding;
|
||||
{$ENDIF}
|
||||
{$IFDEF FPC}
|
||||
MS: TMemoryStream;
|
||||
Head: Cardinal;
|
||||
HasBOM: Boolean;
|
||||
TmpA: AnsiString;
|
||||
{$ENDIF}
|
||||
begin
|
||||
{$IFDEF WDC}
|
||||
SL := TStringList.Create;
|
||||
DefaultEncoding := TEncoding.GetEncoding(aEncoding);
|
||||
try
|
||||
//Load the text file with default ANSI encoding. If file has embedded BOM it will be used
|
||||
SL.DefaultEncoding := DefaultEncoding;
|
||||
SL.LoadFromFile(aFilename);
|
||||
Result := SL.Text;
|
||||
finally
|
||||
SL.Free;
|
||||
DefaultEncoding.Free;
|
||||
end;
|
||||
{$ENDIF}
|
||||
{$IFDEF FPC}
|
||||
MS := TMemoryStream.Create;
|
||||
try
|
||||
MS.LoadFromFile(aFileName);
|
||||
MS.Read(Head, 4);
|
||||
|
||||
//Trim UTF8 BOM (don't know how to deal with others yet)
|
||||
HasBOM := Head and $FFFFFF = $BFBBEF;
|
||||
|
||||
if HasBOM then
|
||||
MS.Position := 3
|
||||
else
|
||||
MS.Position := 0;
|
||||
|
||||
SetLength(TmpA, MS.Size - MS.Position);
|
||||
MS.Read(TmpA[1], MS.Size - MS.Position);
|
||||
|
||||
{$IFDEF ANDROID}
|
||||
if not HasBOM then
|
||||
raise Exception.Create('KM_FileIO: ReadTextU codepage conversion is unsupported on Android');
|
||||
Result := UTF8Decode(TmpA);
|
||||
{$ELSE}
|
||||
//Non-UTF8 files must be converted from their native encoding
|
||||
if not HasBOM then
|
||||
TmpA := ConvertEncoding(TmpA, 'cp' + IntToStr(aEncoding), EncodingUTF8);
|
||||
|
||||
Result := UTF8ToUTF16(TmpA);
|
||||
{$ENDIF}
|
||||
finally
|
||||
MS.Free;
|
||||
end;
|
||||
{$ENDIF}
|
||||
end;
|
||||
|
||||
|
||||
procedure KMCopyFile(const aSrc, aDest: UnicodeString);
|
||||
begin
|
||||
{$IFDEF ANDROID}
|
||||
raise Exception.Create('KM_FileIO: KMCopyFile is unsupported on Android');
|
||||
{$ELSE}
|
||||
{$IFDEF FPC}
|
||||
CopyFile(pchar(aSrc), pchar(aDest), True);
|
||||
{$ENDIF}
|
||||
{$IFDEF WDC}
|
||||
TFile.Copy(aSrc, aDest);
|
||||
{$ENDIF}
|
||||
{$ENDIF}
|
||||
end;
|
||||
|
||||
|
||||
procedure KMCopyFile(const aSrc, aDest: UnicodeString; aOverwrite: Boolean);
|
||||
begin
|
||||
{$IFDEF ANDROID}
|
||||
raise Exception.Create('KM_FileIO: KMCopyFile is unsupported on Android');
|
||||
{$ELSE}
|
||||
if aOverwrite and FileExists(aDest) then
|
||||
DeleteFile(aDest);
|
||||
|
||||
{$IFDEF FPC}
|
||||
CopyFile(pchar(aSrc), pchar(aDest), True);
|
||||
{$ENDIF}
|
||||
{$IFDEF WDC}
|
||||
TFile.Copy(aSrc, aDest);
|
||||
{$ENDIF}
|
||||
{$ENDIF}
|
||||
end;
|
||||
|
||||
|
||||
{$IFDEF WDC}
|
||||
procedure KMCopyFileAsync(const aSrc, aDest: UnicodeString; aOverwrite: Boolean; aWorkerThread: TKMWorkerThread);
|
||||
begin
|
||||
{$IFDEF WDC}
|
||||
aWorkerThread.QueueWork(procedure
|
||||
begin
|
||||
KMCopyFile(aSrc, aDest, aOverwrite);
|
||||
end, 'KMCopyFile');
|
||||
{$ELSE}
|
||||
KMCopyFile(aSrc, aDest, aOverwrite);
|
||||
{$ENDIF}
|
||||
end;
|
||||
{$ENDIF}
|
||||
|
||||
|
||||
procedure KMDeleteFileToBin(const aPath: UnicodeString);
|
||||
begin
|
||||
{$IFDEF ANDROID}
|
||||
raise Exception.Create('KM_FileIO: KMDeleteFileToBin is unsupported on Android');
|
||||
{$ELSE}
|
||||
KMDeleteFile(aPath, True);
|
||||
{$ENDIF}
|
||||
end;
|
||||
|
||||
|
||||
// Same as delete folder actually .. adjoin?
|
||||
procedure KMDeleteFile(aFilePath: string; aDeleteToBin: Boolean = False);
|
||||
{$IFDEF MSWINDOWS}
|
||||
var
|
||||
ShOp: TSHFileOpStruct;
|
||||
{$IFDEF FPC}
|
||||
const
|
||||
FOF_NO_UI = FOF_SILENT or FOF_NOCONFIRMATION or FOF_NOERRORUI or FOF_NOCONFIRMMKDIR; // don't display any UI at all
|
||||
{$ENDIF}
|
||||
{$ENDIF}
|
||||
begin
|
||||
{$IFDEF MSWINDOWS}
|
||||
//{$IFDEF FPC}
|
||||
//ShOp.hWnd := 0;
|
||||
//{$ELSE}
|
||||
ShOp.Wnd := 0;
|
||||
//{$ENDIF}
|
||||
ShOp.wFunc := FO_DELETE;
|
||||
ShOp.pFrom := PChar(aFilePath + #0);
|
||||
ShOp.pTo := nil;
|
||||
ShOp.fFlags := FOF_NO_UI or (FOF_ALLOWUNDO * Ord(aDeleteToBin));
|
||||
SHFileOperation(ShOp);
|
||||
{$ELSE}
|
||||
{$IFDEF ANDROID}
|
||||
if aDeleteToBin then
|
||||
raise Exception.Create('KM_FileIO: KMDeleteFile recycle-bin mode is unsupported on Android');
|
||||
{$ENDIF}
|
||||
DeleteFile(aFilePath);
|
||||
{$ENDIF}
|
||||
end;
|
||||
|
||||
|
||||
procedure KMDeleteFolderToBin(const aPath: UnicodeString);
|
||||
begin
|
||||
{$IFDEF ANDROID}
|
||||
raise Exception.Create('KM_FileIO: KMDeleteFolderToBin is unsupported on Android');
|
||||
{$ELSE}
|
||||
KMDeleteFolder(aPath, True);
|
||||
{$ENDIF}
|
||||
end;
|
||||
|
||||
|
||||
procedure KMDeleteFolder(const aPath: UnicodeString);
|
||||
begin
|
||||
{$IFDEF ANDROID}
|
||||
raise Exception.Create('KM_FileIO: KMDeleteFolder is unsupported on Android');
|
||||
{$ELSE}
|
||||
KMDeleteFolder(aPath, False);
|
||||
{$ENDIF}
|
||||
end;
|
||||
|
||||
|
||||
procedure KMDeleteFolder(const aPath: UnicodeString; aDeleteToBin: Boolean);
|
||||
|
||||
procedure DeleteDefault;
|
||||
{$IFDEF WDC}
|
||||
var
|
||||
S: string;
|
||||
{$ENDIF}
|
||||
begin
|
||||
{$IF DEFINED(FPC) AND NOT DEFINED(ANDROID)}
|
||||
DeleteDirectory(aPath, False);
|
||||
{$ENDIF}
|
||||
{$IFDEF WDC}
|
||||
|
||||
//TDirectory.Delete will sometimes delay deletion due to Windows behaviour
|
||||
//Suggested workarounds:
|
||||
// - Empty the directory first (seems to work, commented out below)
|
||||
// - Move the directory to a temporary name then delete it (sounds more robust)
|
||||
//Discussions of workarounds:
|
||||
//https://stackoverflow.com/questions/42809389/tdirectory-delete-seems-to-be-asynchronous
|
||||
//https://github.com/dotnet/runtime/issues/27958
|
||||
|
||||
//Generate a temporary name based on time and random number
|
||||
//S := TDirectory.GetParent(ExcludeTrailingPathDelimiter(aPath)) + PathDelim + IntToStr(Random(MaxInt)) + UIntToStr(TimeGet);
|
||||
//TDirectory.Move(aPath, S);
|
||||
//TDirectory.Delete(S, True);
|
||||
|
||||
// Rename folder approach could trigger antivirus sometimes (f.e. Kaspersky)
|
||||
// so there could be many (almost) empty folders after antivirus block folders deletion
|
||||
// "(folder deletion is potentionly dangeroues operation because of data corruption)"
|
||||
for S in TDirectory.GetFiles(aPath) do
|
||||
DeleteFile(S);
|
||||
TDirectory.Delete(aPath, True);
|
||||
//Assert(not DirectoryExists(aPath));
|
||||
{$ENDIF}
|
||||
end;
|
||||
|
||||
|
||||
{$IFDEF MSWINDOWS}
|
||||
var
|
||||
ShOp: TSHFileOpStruct;
|
||||
{$IFDEF FPC}
|
||||
const
|
||||
FOF_NO_UI = FOF_SILENT or FOF_NOCONFIRMATION or FOF_NOERRORUI or FOF_NOCONFIRMMKDIR; // don't display any UI at all
|
||||
{$ENDIF}
|
||||
{$ENDIF}
|
||||
|
||||
{$IFNDEF MSWINDOWS}
|
||||
|
||||
{$ENDIF}
|
||||
begin
|
||||
{$IFDEF ANDROID}
|
||||
raise Exception.Create('KM_FileIO: KMDeleteFolder is unsupported on Android');
|
||||
{$ELSE}
|
||||
if DirectoryExists(aPath) then
|
||||
begin
|
||||
{$IFDEF MSWINDOWS}
|
||||
if aDeleteToBin then
|
||||
begin
|
||||
//{$IFDEF FPC}
|
||||
//ShOp.hWnd := 0;
|
||||
//{$ELSE}
|
||||
ShOp.Wnd := 0;
|
||||
//{$ENDIF}
|
||||
ShOp.wFunc := FO_DELETE;
|
||||
ShOp.pFrom := PChar(aPath + #0);
|
||||
ShOp.pTo := nil;
|
||||
ShOp.fFlags := FOF_NO_UI or (FOF_ALLOWUNDO * Ord(aDeleteToBin));
|
||||
SHFileOperation(ShOp);
|
||||
end
|
||||
else
|
||||
DeleteDefault;
|
||||
{$ELSE}
|
||||
DeleteDefault;
|
||||
{$ENDIF}
|
||||
end;
|
||||
{$ENDIF}
|
||||
end;
|
||||
|
||||
|
||||
procedure KMDeleteFolderContent(const aPath: UnicodeString; aDeleteToBin: Boolean = False);
|
||||
{$IFDEF WDC}
|
||||
var
|
||||
S: string;
|
||||
{$ENDIF}
|
||||
begin
|
||||
{$IFDEF ANDROID}
|
||||
raise Exception.Create('KM_FileIO: KMDeleteFolderContent is unsupported on Android');
|
||||
{$ELSE}
|
||||
if DirectoryExists(aPath) then
|
||||
begin
|
||||
{$IFDEF FPC}
|
||||
KMDeleteFolder(aPath, aDeleteToBin);
|
||||
ForceDirectories(aPath); // We do not care too much about FPC now, recreating directory is ok
|
||||
{$ENDIF}
|
||||
{$IFDEF WDC}
|
||||
|
||||
//TDirectory.Delete will sometimes delay deletion due to Windows behaviour
|
||||
//Suggested workarounds:
|
||||
// - Empty the directory first (seems to work, commented out below)
|
||||
// - Move the directory to a temporary name then delete it (sounds more robust)
|
||||
//Discussions of workarounds:
|
||||
//https://stackoverflow.com/questions/42809389/tdirectory-delete-seems-to-be-asynchronous
|
||||
//https://github.com/dotnet/runtime/issues/27958
|
||||
|
||||
//Generate a temporary name based on time and random number
|
||||
//S := TDirectory.GetParent(ExcludeTrailingPathDelimiter(aPath)) + PathDelim + IntToStr(Random(MaxInt)) + UIntToStr(TimeGet);
|
||||
//TDirectory.Move(aPath, S);
|
||||
//TDirectory.Delete(S, True);
|
||||
|
||||
// Rename folder approach could trigger antivirus sometimes (f.e. Kaspersky)
|
||||
// so there could be many (almost) empty folders after antivirus block folders deletion
|
||||
// "(folder deletion is potentionly dangeroues operation because of data corruption)"
|
||||
for S in TDirectory.GetFiles(aPath) do
|
||||
KMDeleteFile(S, aDeleteToBin);
|
||||
//Assert(not DirectoryExists(aPath));
|
||||
{$ENDIF}
|
||||
end;
|
||||
{$ENDIF}
|
||||
end;
|
||||
|
||||
|
||||
procedure KMRenameFolder(const aSourcePath, aDestPath: UnicodeString);
|
||||
begin
|
||||
{$IFDEF FPC} RenameFile(aSourcePath, aDestPath); {$ENDIF}
|
||||
{$IFDEF WDC} TDirectory.Move(aSourcePath, aDestPath); {$ENDIF}
|
||||
end;
|
||||
|
||||
|
||||
procedure KMRenamePath(const aSourcePath, aDestPath: UnicodeString);
|
||||
var
|
||||
ErrorStr: UnicodeString;
|
||||
begin
|
||||
if IsFilePath(aSourcePath) then
|
||||
begin
|
||||
if FileExists(aSourcePath) then
|
||||
{$IFDEF FPC} RenameFile(aSourcePath, aDestPath); {$ENDIF}
|
||||
{$IFDEF WDC} TFile.Move(aSourcePath, aDestPath); {$ENDIF}
|
||||
end
|
||||
else
|
||||
if DirectoryExists(aSourcePath) then
|
||||
begin
|
||||
{$IFDEF ANDROID}
|
||||
raise Exception.Create('KM_FileIO: KMRenamePath directory mode is unsupported on Android');
|
||||
{$ELSE}
|
||||
//Try to delete folder up to 3 times. Sometimes folder could not be deleted for some reason
|
||||
if not TryExecuteMethodProc(KMDeleteFolder, aDestPath, 'KMDeleteFolder', ErrorStr) then
|
||||
raise Exception.Create('Can''t delete folder ' + aDestPath + ': ' + ErrorStr);
|
||||
|
||||
//Try to rename folder up to 3 times. Sometimes folder could not be renamed for some reason
|
||||
if not TryExecuteMethodProc(KMRenameFolder, aSourcePath, aDestPath, 'KMRenameFolder', ErrorStr) then
|
||||
raise Exception.Create(Format('Can''t rename folder from %s to %s: %s', [aSourcePath, aDestPath, ErrorStr]));
|
||||
{$ENDIF}
|
||||
end;
|
||||
end;
|
||||
|
||||
|
||||
//Rename all files inside folder by pattern _old_name_suffix to _new_name_suffix
|
||||
//Pattern that we use for most of the files for our maps/saves
|
||||
procedure KMRenameFilesInFolder(const aPathToFolder, aFromName, aToName: UnicodeString);
|
||||
var
|
||||
I: Integer;
|
||||
RenamedFile: UnicodeString;
|
||||
SearchRec: TSearchRec;
|
||||
FilesToRename: TStringList;
|
||||
begin
|
||||
if (Trim(aFromName) = '')
|
||||
or (Trim(aToName) = '')
|
||||
or (aFromName = aToName) then
|
||||
Exit;
|
||||
|
||||
FilesToRename := TStringList.Create;
|
||||
try
|
||||
//Find all files to rename in path
|
||||
//Need to find them first, rename later, because we can possibly find files, that were already renamed, in case NewName = OldName + Smth
|
||||
FindFirst(aPathToFolder + aFromName + '*', faAnyFile - faDirectory, SearchRec);
|
||||
try
|
||||
repeat
|
||||
if (SearchRec.Name <> '.') and (SearchRec.Name <> '..')
|
||||
and (Length(SearchRec.Name) > Length(aFromName)) then
|
||||
FilesToRename.Add(SearchRec.Name);
|
||||
until (FindNext(SearchRec) <> 0);
|
||||
finally
|
||||
FindClose(SearchRec);
|
||||
end;
|
||||
|
||||
//Move all previously finded files
|
||||
for I := 0 to FilesToRename.Count - 1 do
|
||||
begin
|
||||
RenamedFile := aPathToFolder + aToName + RightStr(FilesToRename[I], Length(FilesToRename[I]) - Length(aFromName));
|
||||
if not FileExists(RenamedFile) and (aPathToFolder + FilesToRename[I] <> RenamedFile) then
|
||||
KMRenamePath(aPathToFolder + FilesToRename[I], RenamedFile);
|
||||
end;
|
||||
finally
|
||||
FilesToRename.Free;
|
||||
end;
|
||||
end;
|
||||
|
||||
|
||||
//Move folder and rename all files inside by pattern _old_name_suffix to _new_name_suffix
|
||||
//Pattern that we use for most of the files for our maps/saves
|
||||
function KMMoveFolder(const aSourceFolder, aDestFolder: UnicodeString): Boolean;
|
||||
var
|
||||
SrcName, DestName: UnicodeString;
|
||||
begin
|
||||
Result := False;
|
||||
if (Trim(aSourceFolder) = '')
|
||||
or (Trim(aDestFolder) = '')
|
||||
or (aSourceFolder = aDestFolder)
|
||||
or not DirectoryExists(aSourceFolder) then Exit;
|
||||
|
||||
{$IFDEF ANDROID}
|
||||
raise Exception.Create('KM_FileIO: KMMoveFolder is unsupported on Android');
|
||||
{$ENDIF}
|
||||
|
||||
KMDeleteFolder(aDestFolder, False);
|
||||
|
||||
//Move directory to dest first
|
||||
KMRenamePath(aSourceFolder, aDestFolder);
|
||||
|
||||
SrcName := GetFileDirName(aSourceFolder);
|
||||
DestName := GetFileDirName(aDestFolder);
|
||||
//Rename all files there
|
||||
KMRenameFilesInFolder(aDestFolder, SrcName, DestName);
|
||||
|
||||
Result := True;
|
||||
end;
|
||||
|
||||
|
||||
function KMFileSize(const aFilename: String): Int64;
|
||||
{$IFDEF MSWindows}
|
||||
var
|
||||
info: TWin32FileAttributeData;
|
||||
{$ENDIF}
|
||||
begin
|
||||
Result := -1;
|
||||
|
||||
{$IFDEF MSWindows}
|
||||
if not GetFileAttributesEx({$IFDEF FPC}PChar{$ELSE}PWideChar{$ENDIF}(aFileName), GetFileExInfoStandard, @info) then
|
||||
EXIT;
|
||||
|
||||
Result := Int64(info.nFileSizeLow) or Int64(info.nFileSizeHigh shl 32);
|
||||
{$ENDIF}
|
||||
end;
|
||||
|
||||
|
||||
function IsFilePath(const aPath: UnicodeString): Boolean;
|
||||
begin
|
||||
// For now we assume, that folder path always ends with PathDelim
|
||||
Result := RightStr(aPath, 1) <> PathDelim;
|
||||
end;
|
||||
|
||||
|
||||
procedure WriteText(const aText: string; aFilename: string; aEncoding: TEncoding);
|
||||
var
|
||||
sl: TStringList;
|
||||
begin
|
||||
{$IFDEF ANDROID}
|
||||
raise Exception.Create('KM_FileIO: WriteText is unsupported on Android');
|
||||
{$ELSE}
|
||||
{$IFDEF WDC}
|
||||
sl := TStringList.Create;
|
||||
try
|
||||
sl.Text := aText;
|
||||
sl.SaveToFile(aFilename, aEncoding);
|
||||
finally
|
||||
sl.Free;
|
||||
end;
|
||||
{$ENDIF}
|
||||
{$ENDIF}
|
||||
end;
|
||||
|
||||
|
||||
// Body taken from TStringList.SaveToFile
|
||||
procedure WriteTextUtf8(const aText, aFilename: string);
|
||||
var
|
||||
Stream: TFileStream;
|
||||
BOM, Buffer: TBytes;
|
||||
begin
|
||||
Stream := TFileStream.Create(aFileName, fmCreate);
|
||||
try
|
||||
BOM := TEncoding.UTF8.GetPreamble;
|
||||
Stream.WriteBuffer(BOM, Length(BOM));
|
||||
|
||||
Buffer := TEncoding.UTF8.GetBytes(aText);
|
||||
Stream.WriteBuffer(Buffer, Length(Buffer));
|
||||
finally
|
||||
Stream.Free;
|
||||
end;
|
||||
end;
|
||||
|
||||
|
||||
function IsDirectoryWriteable(const aDir: string): Boolean;
|
||||
{$IFDEF WDC}
|
||||
var
|
||||
tmpFilename: string;
|
||||
hnd: THandle;
|
||||
{$ENDIF}
|
||||
begin
|
||||
{$IFDEF ANDROID}
|
||||
raise Exception.Create('KM_FileIO: IsDirectoryWriteable is unsupported on Android');
|
||||
{$ELSE}
|
||||
{$IFDEF WDC}
|
||||
tmpFilename := IncludeTrailingPathDelimiter(aDir) + 'chk.tmp';
|
||||
|
||||
hnd := CreateFile(PChar(tmpFilename), GENERIC_READ or GENERIC_WRITE, 0, nil,
|
||||
CREATE_NEW, FILE_ATTRIBUTE_TEMPORARY or FILE_FLAG_DELETE_ON_CLOSE, 0);
|
||||
|
||||
Result := hnd <> INVALID_HANDLE_VALUE;
|
||||
|
||||
if Result then
|
||||
CloseHandle(hnd);
|
||||
{$ELSE}
|
||||
Result := True; //todo -cPractical: add Read/Write permissions on lazarus / fpc
|
||||
{$ENDIF}
|
||||
{$ENDIF}
|
||||
end;
|
||||
|
||||
|
||||
// Creates directory, if missing
|
||||
// If its not possible, or there are no read / write permissions on the directory,
|
||||
// then use execution directory (ExeDir)
|
||||
function CreateAndGetDocumentsSavePath: string;
|
||||
begin
|
||||
{$IFDEF ANDROID}
|
||||
raise Exception.Create('KM_FileIO: CreateAndGetDocumentsSavePath is unsupported on Android');
|
||||
{$ELSE}
|
||||
// Returns C:\Users\Username\My Documents\My Games\GAME_TITLE\
|
||||
// According to GDSE this is the most commonly used savegame location (https://gamedev.stackexchange.com/a/108243)
|
||||
if FEAT_SETTINGS_IN_MYDOC then
|
||||
begin
|
||||
{$IFDEF WDC}
|
||||
Result := TPath.GetDocumentsPath + PathDelim + 'My Games' + PathDelim + GAME_TITLE + PathDelim;
|
||||
{$ELSE}
|
||||
// GetWindowsSpecialDir does not work under old lazarus (1.8.0) / FPC versions, which we use to make linux dedi server
|
||||
//Result := GetWindowsSpecialDir(CSIDL_PERSONAL) + PathDelim + 'My Games' + PathDelim + GAME_TITLE + PathDelim
|
||||
Result := GetUserDir + 'My Games' + PathDelim + GAME_TITLE + PathDelim;
|
||||
{$ENDIF}
|
||||
ForceDirectories(Result);
|
||||
if not IsDirectoryWriteable(Result) then
|
||||
Result := ExtractFilePath(ParamStr(0));
|
||||
end
|
||||
else
|
||||
Result := ExtractFilePath(ParamStr(0));
|
||||
{$ENDIF}
|
||||
end;
|
||||
|
||||
|
||||
{$IFDEF WDC}
|
||||
const
|
||||
FILE_READ_DATA = $0001;
|
||||
FILE_WRITE_DATA = $0002;
|
||||
FILE_APPEND_DATA = $0004;
|
||||
FILE_READ_EA = $0008;
|
||||
FILE_WRITE_EA = $0010;
|
||||
FILE_EXECUTE = $0020;
|
||||
FILE_READ_ATTRIBUTES = $0080;
|
||||
FILE_WRITE_ATTRIBUTES = $0100;
|
||||
FILE_GENERIC_READ = (STANDARD_RIGHTS_READ or FILE_READ_DATA or
|
||||
FILE_READ_ATTRIBUTES or FILE_READ_EA or SYNCHRONIZE);
|
||||
FILE_GENERIC_WRITE = (STANDARD_RIGHTS_WRITE or FILE_WRITE_DATA or
|
||||
FILE_WRITE_ATTRIBUTES or FILE_WRITE_EA or FILE_APPEND_DATA or SYNCHRONIZE);
|
||||
FILE_GENERIC_EXECUTE = (STANDARD_RIGHTS_EXECUTE or FILE_READ_ATTRIBUTES or
|
||||
FILE_EXECUTE or SYNCHRONIZE);
|
||||
FILE_ALL_ACCESS = STANDARD_RIGHTS_REQUIRED or SYNCHRONIZE or $1FF;
|
||||
|
||||
|
||||
// example from https://stackoverflow.com/questions/6908152/how-to-get-permission-level-of-a-folder
|
||||
function CheckFileAccess(const aFileName: string; const aCheckedAccess: Cardinal): Cardinal;
|
||||
var
|
||||
Token: THandle;
|
||||
Status: LongBool;
|
||||
Access: Cardinal;
|
||||
SecDescSize: Cardinal;
|
||||
PrivSetSize: Cardinal;
|
||||
PrivSet: PRIVILEGE_SET;
|
||||
Mapping: GENERIC_MAPPING;
|
||||
SecDesc: PSECURITY_DESCRIPTOR;
|
||||
begin
|
||||
Result := 0;
|
||||
GetFileSecurity(PChar(aFileName), OWNER_SECURITY_INFORMATION or GROUP_SECURITY_INFORMATION or DACL_SECURITY_INFORMATION, nil, 0, SecDescSize);
|
||||
SecDesc := GetMemory(SecDescSize);
|
||||
|
||||
if GetFileSecurity(PChar(aFileName), OWNER_SECURITY_INFORMATION or GROUP_SECURITY_INFORMATION or DACL_SECURITY_INFORMATION, SecDesc, SecDescSize, SecDescSize) then
|
||||
begin
|
||||
ImpersonateSelf(SecurityImpersonation);
|
||||
OpenThreadToken(GetCurrentThread, TOKEN_QUERY, False, Token);
|
||||
if Token <> 0 then
|
||||
begin
|
||||
Mapping.GenericRead := FILE_GENERIC_READ;
|
||||
Mapping.GenericWrite := FILE_GENERIC_WRITE;
|
||||
Mapping.GenericExecute := FILE_GENERIC_EXECUTE;
|
||||
Mapping.GenericAll := FILE_ALL_ACCESS;
|
||||
|
||||
MapGenericMask(Access, Mapping);
|
||||
PrivSetSize := SizeOf(PrivSet);
|
||||
AccessCheck(SecDesc, Token, aCheckedAccess, Mapping, PrivSet, PrivSetSize, Access, Status);
|
||||
CloseHandle(Token);
|
||||
if Status then
|
||||
Result := Access;
|
||||
end;
|
||||
end;
|
||||
|
||||
FreeMem(SecDesc, SecDescSize);
|
||||
end;
|
||||
{$ENDIF}
|
||||
|
||||
|
||||
// Check game execution dir generic permissions
|
||||
procedure CheckFolderPermission(const aPath: string; var aRead, aWrite, aExec: Boolean);
|
||||
begin
|
||||
{$IFDEF ANDROID}
|
||||
raise Exception.Create('KM_FileIO: CheckFolderPermission is unsupported on Android');
|
||||
{$ELSE}
|
||||
{$IFDEF WDC}
|
||||
aRead := (CheckFileAccess(aPath, FILE_GENERIC_READ) = FILE_GENERIC_READ);
|
||||
aWrite := (CheckFileAccess(aPath, FILE_GENERIC_WRITE) = FILE_GENERIC_WRITE);
|
||||
aExec := (CheckFileAccess(aPath, FILE_GENERIC_EXECUTE) = FILE_GENERIC_EXECUTE);
|
||||
{$ENDIF}
|
||||
{$IFDEF FPC}
|
||||
// No folder permissions check for FPC yet
|
||||
aRead := True;
|
||||
aWrite := True;
|
||||
aExec := True;
|
||||
{$ENDIF}
|
||||
{$ENDIF}
|
||||
end;
|
||||
|
||||
|
||||
procedure KMCreateEmptyFile(const aFilePath: UnicodeString);
|
||||
var
|
||||
ft: TextFile;
|
||||
begin
|
||||
if FileExists(aFilePath) then Exit;
|
||||
|
||||
AssignFile(ft, aFilePath);
|
||||
Rewrite(ft);
|
||||
CloseFile(ft);
|
||||
end;
|
||||
|
||||
|
||||
end.
|
||||
Reference in new issue
Block a user