RxFPC:GetFileOwnerData now work on linux

git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@4640 8e941d3f-bd1b-0410-a28a-d453659cc2b4

components/rx/trunk/Demos/RxFileUtils/unit1.pas

@@ -37,8 +37,7 @@ var
   Form1: TForm1;
 
 implementation
-uses rxFileUtils
-  , LazUTF8;
+uses rxFileUtils;
 
 {$R *.lfm}
 

components/rx/trunk/rxfileutils.pas

@@ -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;
 

components/rx/trunk/rxnew.lpk

@@ -24,7 +24,7 @@ Copyright (c) 1998 Master-Bank
 translate to Lazarus by alexs in 2005 - 2016
 "/>
     <License Value="LGPL"/>
-    <Version Major="2" Minor="8" Release="3" Build="183"/>
+    <Version Major="2" Minor="9" Release="1" Build="183"/>
     <Files Count="70">
       <Item1>
         <Filename Value="autopanel.pas"/>

components/rx/trunk/rxtools.lpk

@@ -3,6 +3,7 @@
   <Package Version="4">
     <Name Value="rxtools"/>
     <Type Value="RunAndDesignTime"/>
+    <Author Value="Lagunov Aleksey "/>
     <CompilerOptions>
       <Version Value="11"/>
       <SearchPaths>
@@ -10,6 +11,10 @@
         <UnitOutputDirectory Value="lib/$(TargetCPU)-$(TargetOS)"/>
       </SearchPaths>
     </CompilerOptions>
+    <Description Value="
+"/>
+    <License Value="LGPL"/>
+    <Version Minor="1" Build="2"/>
     <Files Count="4">
       <Item1>
         <Filename Value="rxconfigvalues.pas"/>