V1.0.1

V1.0.1

UnitPrinc.pas

@@ -121,7 +121,7 @@ type
 //    L'oeilleton est cablé sur la sortie 4, il est géré directement par le décodeur. **/
 // code des aspects des signaux
 const
-AF='Client TCP-IP CDM Rail ou USB - système LENZ - Version 1.0';
+AF='Client TCP-IP CDM Rail ou USB - système LENZ - Version 1.01';
 carre          =0 ; carre_F=1;
 semaphore      =1 ; semaphore_F=2;
 semaphore_cli  =2 ; semaphore_cli_F=4;
@@ -189,7 +189,7 @@ TMA             = (valide,devalide);
 //Tparcours = record
 //               adresse : integer ;
 //               BType   : char;
-//            end;   
+//            end;
              
 var ancien_tablo_signalCplx,EtatsignalCplx : array[0..MaxAcc] of word;
     AvecInitAiguillages,tempsCli,combine,NbreFeux,pasreponse,AdrDevie,precedent ,
@@ -197,7 +197,7 @@ var ancien_tablo_signalCplx,EtatsignalCplx : array[0..MaxAcc] of word;
     Nbre_recu_cdm,NivDebug,Tempo_chgt_feux : integer;
     dem_calcul_zone,Hors_tension2,traceSign,TraceZone,Ferme,ParUSB,parSocket,ackCdm,
     NackCDM : boolean;
-    clignotant,test_leb,nack,Maj_feux_cours,avecMSCom : boolean;
+    clignotant,nack,Maj_feux_cours,avecMSCom : boolean;
     N_event_det : integer; // index du dernier évènement (de 1 à 20)
     event_det : array[1..20] of integer;
     branche : array [1..100] of string;
@@ -533,7 +533,7 @@ begin
     Parent:=Formprinc.ScrollBox1;   // dire que l'image est dans la scrollBox1
     Top:=(HtImg+espY+20)*((rang-1) div NbreImagePLigne);   // détermine les dimensions
     Left:=10+ (LargImg+5)*((rang-1) mod (NbreImagePLigne));
-    s:='Signal @'+IntToSTR(Feux[rang].adresse)+' Decodeur='+intToSTR(feux[rang].Decodeur)+' Adresse détecteur associé='+intToSTR(feux[rang].Adr_det1)+
+    s:='Decodeur='+intToSTR(feux[rang].Decodeur)+' Adresse détecteur associé='+intToSTR(feux[rang].Adr_det1)+
        ' Adresse élement suivant='+intToSTR(feux[rang].Adr_el_suiv1);
        if feux[rang].Btype_suiv1=2 then s:=s+' (aig)';
        if feux[rang].Btype_suiv1=5 then s:=s+' (aig bis)';
@@ -975,7 +975,6 @@ procedure envoi_directionCDF(adr : integer;code : integer);
 begin
   if (EtatSignalCplx[adr]<>code) then
   begin
-    dessine_feu(adr);
     if traceSign then Affiche('signal directionnel CDF: '+IntToSTR(adr)+' '+intToSTR(code),ClOrange);
 
     case code of
@@ -1017,7 +1016,6 @@ begin
   code:=feux[index].aspect; // aspect du feu;
   if (ancien_tablo_signalCplx[adresse]<>EtatSignalCplx[adresse]) then  //; && (stop_cmd==FALSE))
   begin
-    dessine_feu(adresse);
     ancien_tablo_signalCplx[adresse]:=EtatSignalCplx[adresse];
     aspect:=code_to_aspect(code);
     if traceSign then affiche('Signal CDF: '+intToSTR(adresse)+' '+intToSTR(code),clOrange);
@@ -1060,7 +1058,6 @@ begin
 
 if (ancien_tablo_signalCplx[adr]<>EtatSignalCplx[adr]) then //; && (stop_cmd==FALSE))
 begin
-  dessine_feu(adr);
   ancien_tablo_signalCplx[adr]:=EtatSignalCplx[adr];
   codebin:=EtatSignalCplx[adr];
   aspect:=code_to_aspect(codebin);
@@ -1102,6 +1099,7 @@ begin
   if ((Combine=rappel_60) and (aspect=jaune))     then envoi5_LEB($10);
   if ((Combine=rappel_60) and (aspect=jaune_cli)) then envoi5_LEB($11);
   if ((Combine=ral_60)    and (aspect=jaune_cli)) then envoi5_LEB($12);
+  dessine_feu(adr);
 end;
 end;
 
@@ -1180,7 +1178,6 @@ begin
   if (ancien_tablo_signalCplx[adr]<>EtatSignalCplx[adr]) then //; && (stop_cmd==FALSE))
   begin
     ancien_tablo_signalCplx[adr]:=EtatSignalCplx[adr];
-    dessine_feu(adr);
     //if (tempo_ACC>0) then sleep(100);  // les commandes entre 2 feux successives doivent être séparées au minimum de 100 ms
     if traceSign then affiche('Signal LDT: '+IntToSTR(adr)+' '+intToSTR(mode)+' '+intTOSTR(codebin),clOrange);
     if (aspect=semaphore) or (aspect=vert) or (aspect=carre) or (aspect=jaune) then mode:=1 else mode:=2;
@@ -1226,7 +1223,6 @@ begin
   code:=etatsignalcplx[adresse];
   if (ancien_tablo_signalCplx[adresse]<>EtatSignalCplx[adresse]) then  //; && (stop_cmd==FALSE))
   begin
-    dessine_feu(adresse);
     ancien_tablo_signalCplx[adresse]:=EtatSignalCplx[adresse];
     aspect:=code_to_aspect(code); // transforme le motif de bits en numéro  "code des aspects des signaux"
     if (tracesign) then Affiche('Signal virtuel: '+intToSTR(adresse)+' Etat '+etatSign[aspect],clyellow);
@@ -1250,10 +1246,10 @@ begin
 //    affiche(s,ClYellow);
   if (ancien_tablo_signalCplx[adresse]<>EtatSignalCplx[adresse]) then  //; && (stop_cmd==FALSE))
   begin
-    dessine_feu(adresse);
     codebin:=EtatSignalCplx[adresse];
     aspect:=code_to_aspect(codebin); // transforme le motifs de bits en numéro  "code des aspects des signaux"
     combineLoc:=combine;  // copier dans variable locale
+    //dessine_feu(adresse);
     if traceSign then
     begin
       s:='Signal bahn: ad'+IntToSTR(adresse)+'='+etatSign[aspect];
@@ -1279,6 +1275,7 @@ begin
     begin
       Sleep(40);
       pilote_acc(adresse+semaphore,2,feu) ;
+     // dessine_feu(adresse);
     end;
 
     ancien_tablo_signalCplx[adresse]:=EtatSignalCplx[adresse];
@@ -1294,6 +1291,7 @@ begin
       sleep(40);
       pilote_ACC(adresse+CombineLoc,2,feu) ;
     end;
+    dessine_feu(adresse);
   end;
 end;
 
@@ -4469,9 +4467,7 @@ begin
       end;
       if (valeur and $3)=$1 then
       begin
-        aiguillage[adraig].position:=1; // état aiguillage bas
         aiguillage[adraig].position:=1; // état aiguillage bas
-      end;
         if trace then begin s:='accessoire '+intToSTR(adraig)+'=1';Affiche(s,clYellow);end;
       end;
 
@@ -4540,7 +4536,6 @@ var chaineInt,msg : string;
   decode_chaine_retro:=chaineint;
 end;
 
-// procédure appellée après réception sur le port USB ou socket
 // procédure appellée après réception sur le port USB ou socket
 procedure interprete_reponse(chaine : string);
 var chaineInt,msg : string;
@@ -4663,11 +4658,15 @@ begin
         InputMode:=comInputModeBinary;
       end;
       //portCommOuvert:=false;
-      try
+      try
+         Formprinc.MSComm1.portopen:=true;
+      except
+        portCommOuvert:=false;
+      end;
     end
       else
         begin
-      end;
+          portCommOuvert:=false;
           Affiche('Port Com nul dans le fichier de configuration',clyellow);
         end;
     if portCommOuvert then affiche('port COM'+intToSTR(NumPort)+' ouvert',clGreen) else
@@ -4728,8 +4727,8 @@ begin
       s:=chaine_CDM_Acc(23,2);
       envoi_CDM(s);
       s:=chaine_CDM_Acc(23,0);
-      envoi_CDM(s);
+      envoi_CDM(s);
-    end;
+    end;
   end
   else
   begin
@@ -4779,8 +4778,6 @@ begin
   FormDebug.Caption:=AF+' debug';
   FormDebug.Show;
   DebugOuv:=True;
-
-  if IsWow64Process then s:='OS 64 Bits'
 
   if IsWow64Process then s:='OS 64 Bits'
                     else s:='OS 32 Bits';
@@ -4789,20 +4786,27 @@ begin
 
   NivDebug:=0;
   // lecture fichier de configuration
-  ferme:=false;
-  CDM_connecte:=false;
   ferme:=false;
   CDM_connecte:=false;
-  Nbre_recu_cdm:=0;
-
-  connecte_USB;
-
-  AffMem:=true;
-
-  // Initialisation de la comm socket LENZ
-  if AdresseIP<>'0' then
   pasreponse:=0;
-    ClientSocketLenz.port:=port;
+  lit_config;
+  Nbre_recu_cdm:=0;
+
+  AffMem:=true;
+
+  connecte_CDM;
+  if CDM_connecte then        // si CDM est connecté, on n'ouvre pas de liaison vers la centrale
+  begin
+    // sinon ouvrir socket vers la centrale
+    avecMScom:=false;
+    // Initialisation de la comm socket LENZ
+    if AdresseIP<>'0' then
+    begin
+      ClientSocketLenz.port:=port;
+      ClientSocketLenz.Address:=AdresseIP;
+      ClientSocketLenz.Open;
+      avecMSCom:=false;
+    end;
   end
   else
     AvecMsCom:=True;
@@ -4812,7 +4816,7 @@ begin
   // Initialisation des images des signaux
   NbreImagePLigne:=Formprinc.ScrollBox1.Width div (largImg+5);
 
-  // ajoute une image dynamiquement
+  // ajoute une image dynamiquement
   for i:=1 to NbreFeux do
   begin
     cree_image(i);  // et initialisation tableaux signaux
@@ -4846,7 +4850,6 @@ begin
   //maj_feu(201);
   //etat_signal_suivant(201,1);
   //Aiguille_deviee(462);
-  //i:=detecteur_suivant(23,false,538,false);  // donne l'élément suivant de AdrPrec à AdrFonc et dans Bis si c'est un aig bis
   //i:=detecteur_suivant(23,false,538,false);  // donne l'élément suivant de AdrPrec à AdrFonc et dans Bis si c'est un aig bis
   //  i:=etat_signal_suivant(462,2);
   //NivDebug:=3;
@@ -5094,6 +5097,8 @@ begin
 begin
   if Tempo_init>0 then dec(Tempo_init);
   if Tempo_init=1 then
+  begin
+    Affiche('Positionnement des feux',clYellow);
     if not(ferme) then envoi_signauxCplx;  // initialisation des feux
     if not(ferme) and (AvecInitAiguillages=1) then init_aiguillages else   // initialisation des aiguillages
     if not(ferme) then demande_etat_acc;   // demande l'état des accessoires (position des aiguillages)