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

Diff of /dao/DelphiScanner/Utils.pas

Parent Directory | Revision Log | View Patch Patch

-revision 2685 by torben,
Thu Aug 27 12:31:30 2015 UTC
+revision 2694 by torben,
Thu Sep  3 14:31:39 2015 UTC
 Line 22 
 type
      class function AdobeReaderExists(): Boolean;
+     class function Sto_GetFmtFileVersion(const FileName: String = ''): String;
+     class function CheckUrl(url:string): boolean;
-Line 34 
 uses StrUtils,
+Line 38 
 uses StrUtils,
    Windows,
    Messages,
    SysUtils, //IntToStr etc
-   Registry
+   Registry,
+   wininet   //CheckUrl
    ;
-Line 177 
 begin
+Line 182 
 begin
    AReg.Free;
  end;
+ /// <summary>
+ ///   This function reads the file resource of "FileName" and returns
+ ///   the version number as formatted text.</summary>
+ /// <example>
+ ///   Sto_GetFmtFileVersion() = '4.13.128.0'
+ ///   Sto_GetFmtFileVersion('', '%.2d-%.2d-%.2d') = '04-13-128'
+ /// </example>
+ /// <remarks>If "Fmt" is invalid, the function may raise an
+ ///   EConvertError exception.</remarks>
+ /// <param name="FileName">Full path to exe or dll. If an empty
+ ///   string is passed, the function uses the filename of the
+ ///   running exe or dll.</param>
+ /// <param name="Fmt">Format string, you can use at most four integer
+ ///   values.</param>
+ /// <returns>Formatted version number of file, '' if no version
+ ///   resource found.</returns>
+ class function TUtils.Sto_GetFmtFileVersion(const FileName: String = ''): String;
+ var
+   sFileName: String;
+   iBufferSize: DWORD;
+   iDummy: DWORD;
+   pBuffer: Pointer;
+   pFileInfo: Pointer;
+   iVer: array[1..4] of Integer;
+ begin
+   // set default value
+   Result := '';
+   // get filename of exe/dll if no filename is specified
+   sFileName := Trim(FileName);
+   if (sFileName = '') then
+     sFileName := GetModuleName(HInstance);
+   // get size of version info (0 if no version info exists)
+   iBufferSize := GetFileVersionInfoSize(PChar(sFileName), iDummy);
+   if (iBufferSize > 0) then
+   begin
+     GetMem(pBuffer, iBufferSize);
+     try
+     // get fixed file info (language independent)
+     GetFileVersionInfo(PChar(sFileName), 0, iBufferSize, pBuffer);
+     VerQueryValue(pBuffer, '\', pFileInfo, iDummy);
+     // read version blocks
+     iVer[1] := HiWord(PVSFixedFileInfo(pFileInfo)^.dwFileVersionMS);
+     iVer[2] := LoWord(PVSFixedFileInfo(pFileInfo)^.dwFileVersionMS);
+     iVer[3] := HiWord(PVSFixedFileInfo(pFileInfo)^.dwFileVersionLS);
+     iVer[4] := LoWord(PVSFixedFileInfo(pFileInfo)^.dwFileVersionLS);
+     finally
+       FreeMem(pBuffer);
+     end;
+     // format result string
+     Result := Format('%d.%d.%d.%d', [iVer[1], iVer[2], iVer[3], iVer[4]]);
+   end;
+ 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;
  end.

 Legend:



Removed from v.2685
 


changed lines


 
Added in v.2694
 Legend:



Removed from v.2685
 


changed lines


 
Added in v.2694
-Removed from v.2685
+Added in v.2694

	ViewVC Help
Powered by ViewVC 1.1.20