initial commit

Author: codingbott

.gitignore

@@ -0,0 +1,3 @@
+__history
+Win32
+*.local

MSXML2_TLB.pas

@@ -0,0 +1,14 @@
+# Sample Code for Video "online updates with delphi"
+
+This repro contains the source code of the video series "online updates with delphi"
+
+This code requires the jedi api lib.
+
+## Part 1 - Intro and best practices
+https://www.youtube.com/watch?v=MjRVpPztbMU
+
+## Part 2 - all about the version number
+https://www.youtube.com/watch?v=PbLoxL7WNpc&t=22s
+
+## Part 3 - check for updates and downloading them
+-- todo --

README.md

@@ -0,0 +1,51 @@
+#include "windows.h"
+
+#define VER_FILEVERSION             3,10,349,0
+#define VER_FILEVERSION_STR         "3.10.349.0\0"
+
+#define VER_PRODUCTVERSION          3,10,0,0
+#define VER_PRODUCTVERSION_STR      "3.10\0"
+
+#define VER_PRIVATEBUILD 0
+#define VER_PRERELEASE 0
+#define VER_DEBUG 0
+
+VS_VERSION_INFO VERSIONINFO
+FILEVERSION     VER_FILEVERSION
+PRODUCTVERSION  VER_PRODUCTVERSION
+FILEFLAGSMASK   VS_FFI_FILEFLAGSMASK
+FILEFLAGS       (VER_PRIVATEBUILD|VER_PRERELEASE|VER_DEBUG)
+FILEOS          VOS__WINDOWS32
+FILETYPE        VFT_DLL
+FILESUBTYPE     VFT2_UNKNOWN
+BEGIN
+    BLOCK "StringFileInfo"
+    BEGIN
+        BLOCK "040904E4"
+        BEGIN
+/*            VALUE "CompanyName",      VER_COMPANYNAME_STR
+            VALUE "FileDescription",  VER_FILEDESCRIPTION_STR
+*/            VALUE "FileVersion",      VER_FILEVERSION_STR
+/*            VALUE "InternalName",     VER_INTERNALNAME_STR
+            VALUE "LegalCopyright",   VER_LEGALCOPYRIGHT_STR
+            VALUE "LegalTrademarks1", VER_LEGALTRADEMARKS1_STR
+            VALUE "LegalTrademarks2", VER_LEGALTRADEMARKS2_STR
+            VALUE "OriginalFilename", VER_ORIGINALFILENAME_STR
+            VALUE "ProductName",      VER_PRODUCTNAME_STR
+*/            VALUE "ProductVersion",   VER_PRODUCTVERSION_STR
+        END
+    END
+
+    BLOCK "VarFileInfo"
+    BEGIN
+        /* The following line should only be modified for localized versions.     */
+        /* It consists of any number of WORD,WORD pairs, with each pair           */
+        /* describing a language,codepage combination supported by the file.      */
+        /*                                                                        */
+        /* For example, a file might have values "0x409,1252" indicating that it  */
+        /* supports English language (0x409) in the Windows ANSI codepage (1252). */
+
+        VALUE "Translation", 0x409, 1252
+
+    END
+END

Version.rc

@@ -0,0 +1,113 @@
+unit VersionHelpher;
+
+interface
+
+uses
+  Classes, Windows;
+
+type
+  tVersionsInformation = record
+    case boolean of
+      true:
+        (minor,
+        major,
+        build,
+        patch: Word);
+      false:
+        (dwFileVersionMS,
+        dwFileVersionLS: DWord);
+    end;
+
+  TVersionHelpher = class
+  public
+    class function gibVersion(filename: string): tVersionsInformation;
+    class function vergleicheVersion(a,b: tVersionsInformation): integer;
+    class function stringZuVersion(str_version:string): tVersionsInformation;
+    class function versionZuString(version: tVersionsInformation): string;
+  end;
+
+implementation
+
+uses
+  SysUtils, Math;
+
+{ tVersionsErmittlung }
+
+class function TVersionHelpher.gibVersion(filename: string): tVersionsInformation;
+var
+  versionHandle, versionSize:  DWord;
+  pVersionInfo: pointer;
+  itemLen: UInt;
+  FixedFileInfo: PVSFixedFileInfo;
+  bol_versiongefunden: boolean;
+begin
+  bol_versiongefunden:=false;
+  versionSize:=GetFileVersionInfoSize(PChar(filename), versionHandle);
+  pVersionInfo:=AllocMem(versionSize);
+  try
+    if versionSize>0 then
+    begin
+      if GetFileVersionInfo(PChar(filename), versionHandle, versionSize, pVersionInfo) then
+      begin
+        if VerQueryValue(pVersionInfo, '', pointer(FixedFileInfo), itemLen) then
+        begin
+          result.dwFileVersionMS:=FixedFileInfo.dwFileVersionMS;
+          result.dwFileVersionLS:=FixedFileInfo.dwFileVersionLS;
+          bol_versiongefunden:=true;
+        end;
+      end;
+    end;
+    if not bol_versiongefunden then
+      raise Exception.Create('keine Versionsinformation gefunden');
+  finally
+    freemem(pVersionInfo);
+  end;
+end;
+
+class function TVersionHelpher.stringZuVersion(
+  str_version:string): tVersionsInformation;
+var
+  sl: TStringlist;
+begin
+  Result.dwFileVersionMS:=0;
+  Result.dwFileVersionLS:=0;
+
+  sl:=TStringList.Create;
+  try
+    sl.Delimiter:='.';
+    sl.DelimitedText:=str_version;
+
+    result.major:=strtoint(sl[0]);
+    if sl.Count>1 then
+      result.minor:=strtoint(sl[1]);
+    if sl.Count>2 then
+      result.patch:=strtoint(sl[2]);
+    if sl.Count>3 then
+      result.build:=strtoint(sl[3]);
+  finally
+    sl.Free;
+  end;
+
+end;
+
+class function TVersionHelpher.vergleicheVersion(a,
+  b: tVersionsInformation): integer;
+begin
+  result:=CompareValue(a.major, b.major);
+  if result=0 then
+    result:=CompareValue(a.minor, b.minor);
+  if result=0 then
+    result:=CompareValue(a.patch, b.patch);
+  if result=0 then
+    result:=CompareValue(a.build, b.build);
+end;
+
+class function TVersionHelpher.versionZuString(
+  version: tVersionsInformation): string;
+begin
+  result:=Format('%d.%d.%d.%d', [version.major, version.minor, version.patch, version.build]);
+end;
+
+initialization
+
+end.

Version.res

@@ -0,0 +1,37 @@
+program demo;
+
+{$APPTYPE CONSOLE}
+
+{$R *.res}
+
+{$R 'Version.res' 'Version.rc'}
+
+uses
+  System.SysUtils,
+  VersionHelpher in 'VersionHelpher.pas',
+  MSXML2_TLB in 'MSXML2_TLB.pas',
+  uc_downloadactionloadurl in 'uc_downloadactionloadurl.pas',
+  uc_DownloadBits in 'uc_DownloadBits.pas',
+  uc_updatecheck in 'uc_updatecheck.pas';
+
+var
+  version: tVersionsInformation;
+begin
+  try
+    version:=TVersionHelpher.gibVersion( ParamStr(0) );
+    writeln(
+      TVersionHelpher.versionZuString(version)
+    );
+
+    case TVersionHelpher.vergleicheVersion(version, TVersionHelpher.stringZuVersion('3.11.12')) of
+      1: Writeln('Größer');
+      0: Writeln('gleich');
+      -1: Writeln('kleiner');
+    end;
+
+    Readln;
+  except
+    on E: Exception do
+      Writeln(E.ClassName, ': ', E.Message);
+  end;
+end.