--- dao/DelphiScanner/Utils.pas	2016/03/31 08:17:44	2995
+++ dao/DelphiScanner/Utils.pas	2016/04/08 14:01:34	2996
@@ -30,7 +30,11 @@
 
     class function FileTime2DateTime(FileTime: TFileTime): TDateTime;
 
+    class function GetComputerNameHelper() : String;
 
+    class function GetCurrentUserName : string;
+
+    class function URLEncode(const s : string) : string;
 
 
   end;
@@ -42,7 +46,10 @@
   Messages,
   SysUtils, //IntToStr etc
   Registry,
-  wininet   //CheckUrl
+  wininet,   //CheckUrl
+
+  HTTPApp //HTTPEncode
+
 
   ;
 
@@ -293,4 +300,37 @@
 end;
 
 
+class function TUtils.GetComputerNameHelper : String;
+var
+  buffer: array[0..255] of char;
+  size: dword;
+begin
+  size := 256;
+  if GetComputerName(buffer, size) then
+    Result := buffer
+  else
+    Result := ''
+end;
+
+class function TUtils.GetCurrentUserName : string;
+const
+  cnMaxUserNameLen = 254;
+var
+  sUserName     : string;
+  dwUserNameLen : DWord;
+begin
+  dwUserNameLen := cnMaxUserNameLen-1;
+  SetLength( sUserName, cnMaxUserNameLen );
+  GetUserName(PChar( sUserName ),dwUserNameLen );
+  SetLength( sUserName, dwUserNameLen );
+  Result := sUserName;
+end;
+
+
+class function TUtils.URLEncode(const s : string) : string;
+begin
+  result := HTTPEncode(s);
+end;
+
+
 end.