/[projects]/dao/DelphiScanner/Utils.pas

Diff of /dao/DelphiScanner/Utils.pas

-revision 2995 by torben,
Thu Sep  3 14:40:49 2015 UTC
+revision 2996 by torben,
Fri Apr  8 14:01:34 2016 UTC
 Line 30 
 type
      class function FileTime2DateTime(FileTime: TFileTime): TDateTime;
+     class function GetComputerNameHelper() : String;
+     class function GetCurrentUserName : string;
+     class function URLEncode(const s : string) : string;
    end;
-Line 42 
 uses StrUtils,
+Line 46 
 uses StrUtils,
    Messages,
    SysUtils, //IntToStr etc
    Registry,
-   wininet   //CheckUrl
+   wininet,   //CheckUrl
+   HTTPApp //HTTPEncode
    ;
-Line 293 
 begin
+Line 300 
 begin
  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.

 Legend:



Removed from v.2995
 


changed lines


 
Added in v.2996
 Legend:



Removed from v.2995
 


changed lines


 
Added in v.2996
-Removed from v.2995
+Added in v.2996

	ViewVC Help
Powered by ViewVC 1.1.20