pascal/lazarus-ccr
1
0
Fork 0
Code Issues Releases Activity

RxFPC:GetFileOwnerData now work on linux

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@4640 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
alexs75
2016-05-05 13:14:22 +00:00
parent 7642cfbfb1
commit 148d4298db
4 changed files with 16 additions and 8 deletions
Download Patch File Download Diff File Expand all files Collapse all files

14
components/rx/trunk/rxfileutils.pas
View File

@ -45,11 +45,12 @@ function GetUserName:string;
implementation
{$IFDEF WINDOWS}
uses
Windows;
{$IFDEF WINDOWS}
Windows
{$ELSE}
{$ENDIF}
BaseUnix, users
{$ENDIF};
(*
FileUtil, LazFileUtils, LazUTF8;
*)
@ -153,6 +154,8 @@ end;
procedure GetFileOwnerData(const SearchDomain, FileName: String; out UserName,
DomainName: string);
var
SR: stat;
begin
{$IF DEFINED(WINDOWS) AND NOT DEFINED(WINCE)}
{ GetFileNameOwner(UTF8ToSys(SearchDomain), UTF8ToSys(FileName), UserName, DomainName);
@ -160,8 +163,9 @@ begin
DomainName:=UTF8Encode(DomainName);}
GetFileNameOwner(SearchDomain, FileName, UserName, DomainName);
{$ELSE}
UserName:='';
DomainName:='';
FpStat(FileName, SR);
UserName:=users.GetUserName(SR.uid);
DomainName:='';//IntToStr( SR.gid);
{$ENDIF}
end;