V1.1

verif_version.pas

@@ -22,38 +22,37 @@ var
   FormVersion: TFormVersion;
   Lance_verif : integer;
 
-Const Version='1.02';// sert à la comparaison de la version publiée
-  
+Const Version='1.1';// sert à la comparaison de la version publiée
+
 implementation
 
 {$R *.dfm}
 
-
-
 Procedure Aff(s : string);
 begin
   FormVersion.Memo1.lines.add(s);
-end;  
+end;
 
 function GetCurrentProcessEnvVar(const VariableName: string): string;
 var
   nSize: DWord;
 begin
-  nSize:= 0;
-  nSize:= GetEnvironmentVariable(PChar(VariableName), nil, nSize);
-  if nSize = 0 then
+  nSize:=0;
+  nSize:=GetEnvironmentVariable(PChar(VariableName), nil, nSize);
+  if nSize=0 then
   begin
-    result:= '';
-  end   
+    result:='';
+  end
   else
   begin
-    SetLength(result, nSize - 1);
+    SetLength(result,nSize-1);
     if GetEnvironmentVariable(PChar(VariableName), PChar(result), nSize) <> nSize - 1 then
       raise Exception.Create(SysErrorMessage(GetlastError))
   end;
 end;
 
 
+// téléchargement d'une page internet sans cache dans un fichier
 function DownloadURL_NOCache(aUrl: string;s : string): Boolean;
 var
   hSession: HINTERNET;
@@ -65,7 +64,7 @@ begin
   Result:=False;
 
   Try Fs:=TFileStream.Create(s,fmCreate);
-    hSession:=InternetOpen('MyApp', INTERNET_OPEN_TYPE_PRECONFIG, nil, nil, 0);
+    hSession:=InternetOpen('MyApp',INTERNET_OPEN_TYPE_PRECONFIG, nil, nil, 0);
     try
       if Assigned(hSession) then
       begin
@@ -76,7 +75,7 @@ begin
             begin
               dwBytesRead:=1024;
               InternetReadFile(hService,@lpBuffer,1024,dwBytesRead);
-              fs.WriteBuffer(lpBuffer, dwBytesRead);
+              fs.WriteBuffer(lpBuffer,dwBytesRead);
               if dwBytesRead=0 then break;
             end;
             Result:=True;
@@ -92,7 +91,6 @@ begin
   end;
 end;
 
-
 procedure verifie_version;
 var s,s2,s3,Version_p,Url,LocalFile : string;
     trouve_version,trouve_zip : boolean;
@@ -115,44 +113,44 @@ begin
         if not(trouve_version) then
         begin
           i:=pos('version ',s);
-          trouve_version:=i<>0; 
-          if trouve_version then s2:=s;  
+          trouve_version:=i<>0;
+          if trouve_version then s2:=s;
         end;
         if not(trouve_zip) then
-        begin  
+        begin
           i:=pos('.zip',s);
-          trouve_zip:=i<>0;            
-          if trouve_zip then s3:=s; 
-        end;  
-       // Aff(s)                      
+          trouve_zip:=i<>0;
+          if trouve_zip then s3:=s;
+        end;
+       // Aff(s)
     end;
     closefile(fichier);
-    if trouve_version then 
+    if trouve_version then
     begin
       // isoler le champ version
-      i:=pos('version ',s2);  
+      i:=pos('version ',s2);
       delete(s2,1,i+7);
       j:=pos(' ',s2);
       Version_p:=copy(s2,1,j-1);        // version dans version_p
       // isoler l'url du zip
-      i:=pos('href="',s3);  
+      i:=pos('href="',s3);
       delete(s3,1,i+5);
       j:=pos('"',s3);
-      s3:=copy(s3,1,j-1);      
+      s3:=copy(s3,1,j-1);
       i:=pos('.',s3);
       if i<>0 then delete(s3,i,1); // supprimer le .
       s3:='http://cdmrail.free.fr/ForumCDR'+s3 ;
       //aff(s3);               // lien dans s3
-      
+
       // changer le . en ,
       s:=Version_p;
       i:=pos('.',s);if i<>0 then s[i]:=',';
       s2:=version;
       i:=pos('.',s2);if i<>0 then s2[i]:=',';
-      
+
       V_publie:=StrToFloat(s);
       V_utile:=StrToFloat(s2);
-        if V_utile<V_publie then 
+        if V_utile<V_publie then
         begin
           FormVersion.show;
           s:='Vous utilisez la version '+version+' mais il existe la version '+Version_p;
@@ -162,40 +160,38 @@ begin
             s:=GetCurrentProcessEnvVar('USERPROFILE')+'\Downloads\Signaux_Complexes_GL.Zip';
             Aff('Téléchargement de '+s3+' dans ');
             Aff(s);
-            
-            if DownloadURL_NOCache(s3,s) then 
+
+            if DownloadURL_NOCache(s3,s) then
             begin
               Aff('Téléchargement réussi');
               Aff('Vous pouvez ouvrir le dossier de téléchargement, décomprimer le zip et l''installer');
-            end  
+            end
               else Aff('Echec de téléchargement');
           end
           else formVersion.Free;
         end;
-       
+
         //if V_utile=V_publie then Affiche('Version Actuelle=Version publiée : votre version est à jour',clLime);
-      
-      end;  
-    end 
+
+      end;
+    end
     else
       begin
         //Aff('Pas d''accès au site CDM rail');
-      end;  
+      end;
 end;
 
 
 procedure TFormVersion.FormCreate(Sender: TObject);
 begin
-  Timerverif.Interval:=1000;
-  Lance_verif:=2;
+  Timerverif.Interval:=1000;    // timer à 1 seconde
+  Lance_verif:=2;               // lancer la vérification de version dans 1s
 end;
 
 procedure TFormVersion.TimerVerifTimer(Sender: TObject);
 begin
   if lance_verif>0 then dec(lance_verif);
   if lance_verif=1 then verifie_version;
-  
 end;
 
 end.
-