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

Diff of /dao/DelphiScanner/Utils.pas

Parent Directory | Revision Log | View Patch Patch

-revision 2693 by torben,
Thu Sep  3 14:27:21 2015 UTC
+revision 2996 by torben,
Fri Apr  8 14:01:34 2016 UTC
 Line 3 
 unit Utils;
  interface
  uses
    Controls,
-   Graphics //TColor
+   Graphics, //TColor
+   IniFiles,
+   Windows //TFileTime
    ;
  type
-Line 24 
 type
+Line 26 
 type
      class function Sto_GetFmtFileVersion(const FileName: String = ''): String;
+     class function CheckUrl(url:string): boolean;
+     class function FileTime2DateTime(FileTime: TFileTime): TDateTime;
+     class function GetComputerNameHelper() : String;
+     class function GetCurrentUserName : string;
+     class function URLEncode(const s : string) : string;
    end;
-Line 33 
 implementation
+Line 43 
 implementation
  uses StrUtils,
    Types, //TRect ,
-   Windows,
    Messages,
    SysUtils, //IntToStr etc
-   Registry
+   Registry,
+   wininet,   //CheckUrl
+   HTTPApp //HTTPEncode
    ;
-Line 236 
 begin
+Line 249 
 begin
  end;
+ class function TUtils.CheckUrl(url:string):boolean;
+ var
+   hSession, hfile: hInternet;
+   dwindex,dwcodelen :dword;
+   dwcode:array[1..20] of char;
+   res : pchar;
+ begin
+   if pos('http://',lowercase(url))=0 then
+     url := 'http://'+url;
+   Result := false;
+   hSession := InternetOpen('InetURL:/1.0',
+                             INTERNET_OPEN_TYPE_PRECONFIG,
+                             nil,
+                             nil,
+);
+   if assigned(hsession) then
+   begin
+     hfile := InternetOpenUrl(hsession,
+                              pchar(url),
+                              nil,
+,
+                              INTERNET_FLAG_RELOAD,
+);
+     dwIndex := 0;
+     dwCodeLen := 10;
+     HttpQueryInfo(hfile,
+                   HTTP_QUERY_STATUS_CODE,
+                   @dwcode,
+                   dwcodeLen,
+                   dwIndex);
+     res := pchar(@dwcode);
+     result:= (res ='200') or (res ='302');
+     if assigned(hfile) then
+       InternetCloseHandle(hfile);
+     InternetCloseHandle(hsession);
+   end;
+ end;
+ class function TUtils.FileTime2DateTime(FileTime: TFileTime): TDateTime;
+ var
+    LocalFileTime: TFileTime;
+    SystemTime: TSystemTime;
+ begin
+    FileTimeToLocalFileTime(FileTime, LocalFileTime) ;
+    FileTimeToSystemTime(LocalFileTime, SystemTime) ;
+    Result := SystemTimeToDateTime(SystemTime) ;
+ 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.2693
 


changed lines


 
Added in v.2996
 Legend:



Removed from v.2693
 


changed lines


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

	ViewVC Help
Powered by ViewVC 1.1.20