V1.11

Signaux_complexes_GL.cfg

@@ -31,12 +31,12 @@
 -M
 -$M16384,1048576
 -K$00400000
--LE"c:\program files\borland\delphi7\Projects\Bpl"
--LN"c:\program files\borland\delphi7\Projects\Bpl"
--U"c:\program files\borland\delphi7\Lib\Debug"
--O"c:\program files\borland\delphi7\Lib\Debug"
--I"c:\program files\borland\delphi7\Lib\Debug"
--R"c:\program files\borland\delphi7\Lib\Debug"
+-LE"c:\program files (x86)\borland\delphi7\Projects\Bpl"
+-LN"c:\program files (x86)\borland\delphi7\Projects\Bpl"
+-U"c:\program files (x86)\borland\delphi7\Lib\Debug"
+-O"c:\program files (x86)\borland\delphi7\Lib\Debug"
+-I"c:\program files (x86)\borland\delphi7\Lib\Debug"
+-R"c:\program files (x86)\borland\delphi7\Lib\Debug"
 -w-UNSAFE_TYPE
 -w-UNSAFE_CODE
 -w-UNSAFE_CAST

Signaux_complexes_GL.dof

@@ -111,7 +111,7 @@ AutoIncBuild=1
 MajorVer=1
 MinorVer=0
 Release=0
-Build=3
+Build=4
 Debug=0
 PreRelease=0
 Special=0
@@ -122,7 +122,7 @@ CodePage=1252
 [Version Info Keys]
 CompanyName=
 FileDescription=
-FileVersion=1.0.0.3
+FileVersion=1.0.0.4
 InternalName=
 LegalCopyright=
 LegalTrademarks=

UnitPrinc.dfm

@@ -1,6 +1,6 @@
 object FormPrinc: TFormPrinc
-  Left = 61
-  Top = 202
+  Left = 14
+  Top = 184
   BorderStyle = bsSingle
   Caption = 'Client TCP-IP CDM Rail ou USB - syst'#232'me LENZ'
   ClientHeight = 607

config.cfg

@@ -1,115 +1,112 @@
 /******************************************
-/ fichier de configuration de signaux_complexes
-/ gily - f1iwq - 2018
-/******************************************
+/ fichier de configuration de signaux complexes
+/ cap de bouheyre avec signaux - 2018
+/****************************************
 / Sans Log=0 / Avec Log=1 : génère un fichier log
 Log=0
 / Affichage du débug du calcul des routes, et enregistrement dans le log si la variable précédente est à 1
 TraceDet=0
-/ Envoie un 0 après le pilotage des décodeurs
-/ Mettre 1 si utilisation de décodeurs LEB
-RazSignaux=1
+/ si 1  envoie un 0 après le pilotage des décodeurs LEB
+RazSignaux=0
 /
 / modélisation des aiguillages : détermine les éléments connectés aux 3 branches des aiguilles (Pointe, Droit, Dévié (S)
-/ adresse d'aiguillage,P=élément vers pointe D=élément vers Droit, S=élément vers dévié.
-/ [60 ou 30 dans le cas d'un aiguillage en position déviée qui doit être fanchie à 30 ou 60]
-/ Elément = détecteur (valeur uniquement numérique) ou aiguillage (adresse+branche de connexion (P S ou D)
-/ Exemple : 1,P518,D523,S3P signifie : définition de l'aiguillage @1 : sur pointe relié au détecteur 518
+/ adresse d'aiguillage[B],P=élément vers pointe D=élément vers Droit, S=élément vers dévié
+/ B pour adresse d'aiguillage déja utilisée
+/ Elément = détecteur (valeur uniquement numérique) ou aiguillage (adresse [TRI,TJS,TJD]+branche de connexion (P S ou D)
+/ Exemples : 1,P518,D523,S3P signifie : définition de l'aiguillage @1 : sur pointe relié au détecteur 518
 /                                      sur Droit relié au détecteur 518
 /                                      sur Dévié, relié à l'aiguillage 3 en pointe
-/ Pour une TJD : 26TJD,D530,S529,P28
-/ P désigne l'autre adresse de la TJD
-/ Aiguillage triple
-/
+/ Voir la documentation des signaux complexes pour une description complete
 / S'il n'y a pas de détecteur connecté à une branche d'aiguillage, mettre 0.
-1,P518,S3P,D523,30
-2,P12S,S5S,D519
-3,P1S,S5D,D4P
-4,P3D,S514,D6S
-5,P515,S2S,D3S
-6,P516,S4D,D0
-7,P527,S520,D519
-8,P527,S522,D521
-9,P526,S515,D513,60
-10,P19P,S528,D29P,30
-11,P18P,D30D,S525
-12,P517,D20S,S2P
-17,P525,D535,S528
-18,P11P,S517,D23P
-19,P10P,S531,D22P
-20,P520,D21P,S12D
-21,P20D,S28D,D28D
-22,P19D,S538,D537
-23,P18D,S534,D538
-24,P538,S533,D32S
-25,P31S,D529,S27P
-26TJD,D530,S529,P28
-28TJD,D21D,S21S,P26
-27,P25S,D530,S537
-29,P10D,S30S,D513,60
-30,P524,S29D,D11D
-31,P534,S25P,D0
-32,P22S,S24D,D0
+1,P2P,D3P,S1BS
+1B,P553,D16P,S1S
+2,P1P,D4P,S2BS
+2B,P521,D16D,S2S
+3,P1D,D522,S5BP
+4,P2D,D554,S6BP
+5,P9P,S15P,D5BS
+5B,P3S,S5D,D545
+6,P10P,S546,D6BS
+6B,P4S,D545,S6D
+7,P15S,D566,S565
+8,P20P,D566,S565
+9,P5P,D530,S17P
+10,P6P,D530,S18P
+13,P17S,D563,S564
+14,P18S,D563,S564
+15,P5S,D546,S7P
+16,P1BD,S16BS,D2BD
+16B,P0,S16S,D557
+17,P9S,D531,S13P
+18,P10S,D562,S14P
+20,P8P,D547,S0
+21,P25P,S537,D23S
+22,P24P,S561,D25S
+23,P569,S21D,D538
+24,P22P,S26P,D513
+25,P21P,S22D,D570
+26,P24S,S515,D514
+28,P30P,S29P,D570
+29,P28S,D516,S31P
+30,P28P,D32S,S539
+31TRI,27,P28S,D518,S0,S2-517
+32,P571,D538,S30D
 0
 //
 / modélisation du réseau par branche
-/ 1 ligne par branche - le sens de parcours de la branche est arbitraire.
-/ Chaque ligne (branche) doit commmencer et finir par un aiguillage
-/ Une ligne qui finit par un 0 signifie un heurtoir
+/ 1 ligne par branche - le sens de parcours de la description n'a pas d'importance.
+/ Chaque ligne (branche) doit comporter au moins un détecteur et au moins aiguillage
 / @ détecteur A=@aiguillage
-/ Terminer par 0
-/ Exemple : 519 est un détecteur  - A2 est l'aiguillage 2
+/ chaque ligne doit commencer par un aiguillage et se terminer par un aiguillage
+/ Terminer par les brances par 0
+/ Exemple : 519 est un détecteur  - A2 est l'aiguillage 2 - A1B est l'aiguillage 1bis
 /
-A2,A12,517,A18,A11,A30,524,521,A8,527,A7,519,A2
-A7,520,A20,A12
-A1,A3,A4,514,522,A8
-A1,523,526,A9,513,A29,A10,A19,531,518,A1
-A9,515,A5
-A11,525,A17,528,A10
-A17,535,533,A24,538,A23
-A7,520,A20,A21,A28,A26,530,A27,A25,A31,534,A23,A18
-A26,529,A25
-A22,537,A27
-A22,A32,A24
-A6,516,0
-A31,0
+/ rouge - jaune
+A20,547,561,A22,A24,A26,515,518,A31,A29,A28,A30,539,522,A3,A1,A2,A4,A6B,545,A5B,A3
+A26,514,517,A31
+A26,515,518,A31
+A24,513,516,A29
+/grande boucle extérieure départ de couche rouge: de 569 à 569
+A23,538,A32,571,553,A1B,A16,A2B,521,569,A23
+/ grande boucle intérieure
+A21,A25,570,A28
+A4,554,537,A21
+/ couche jaune
+A10,530,A9,A5,A15,546,A6
+A18,562,531,A17
+A14,563,A13
+A14,564,A13
+/
+A7,565,A8
+A7,566,A8
+A16B,557,0   
 0
-/ liste des adresses des signaux et leur forme, pour affichage de l'image correspondante ,
-/ avec ou sans bouton de commande pour le feu blanc, type de décodeur [, type de cible (pour les décodeurs Unisemaf uniquement)]
+/
+/ liste des signaux
 / la liste doit être terminée par une adresse à 0
-/ forme : 2=2 feux(carré violet/blanc) / 3=3 feux / 4=4 feux / 5=5 feux (carré + blanc ou violet)
-/         7=7 feux (blanc ou violet + ralentissement  / 9=9 feux (blanc ou violet + rappel ralentissement)
-/         Dx : signal directionnel à x feux
-/ type de décodeur : 1=digital Bahn 2=CDF 3=LDT 4=LEB 5=NMRA 6=Unisemaf
+/ forme : 2=2 feux(carré violet/blanc) / 3=3 feux / 4=4 feux (carré) / 5=5 feux (carré + blanc)
+/         7=7 feux (carré+blanc + ralentissement  / 9=9 feux (blanc ou violet + rappel ralentissement)
+/ type de décodeur : 0=feu virtuel 1=digital Bahn 2=CDF 3=LDT 4=LEB
+/ l'énumération des détecteurs ne nécessite pas de parenthèses si il est seul, mais il faut des parenthèses si
+/ le signal concerne plusieurs voies (donc détecteurs)
 / Notation de chaque ligne:
-/ adresse de base du signal, forme, avec ou sans bouton de commande du feu blanc, type de décodeur [, détecteur (det2, det3, ...) , élément suivant ,
-/ avec ou sans demande de verrouillage du feu au carré]
-/
-176,7,0,1,(520,A20),1
-190,7,0,1,(523,526),1
-204,9,0,1,(527,A7),1
-218,7,0,1,(525,A17),1
-232,2,1,1,(516,A6),1
-260,9,1,1,(518,A1),1
-274,3,0,1,(524,521),1
-288,7,0,1,(522,A8),1
-302,9,0,1,(526,A9),1
-316,7,1,1,(515,A5),1
-330,7,0,1,(519,A2),1
-344,9,0,1,(528,A10),1
-358,9,0,1,(517,A18),1
-372,D3,1,(A10D)(A19S)(A19D,A22D)(A19D,A22S)
-382,D3,1,(A29S,A10S)(A19S)(A19D,A22D)(A19D,A22S)
-392,3,0,1,(535,533),1
-420,7,0,1,(529,A25,530,A27,537,A27),1
-448,7,0,1,(533,A24),1
-462,9,0,1,(513,A29),1
-476,9,0,1,(538,A23),1
-497,9,0,4,(531,A19),1
-600,7,0,0,(521,A8),1
-610,9,0,6,(520,A20),0,7
+/ adresse de base du signal, forme, réserve, type de décodeur [, (détecteur,..detecteur , élément suivant ..) ,
+/ avec ou sans demande de verrouillage du feu au carré (0 ou 1)]
+161,4,0,4,(538,A32),0
+169,9,0,4,(539,A30),0,
+177,9,0,4,(569,A23),0
+185,4,0,4,(570,A25),0
+193,4,0,4,(516,A29),0
+201,2,0,4,(517,31TRI,518,31TRI),0
+209,9,0,4,(561,547),0
+217,2,0,4,(514,A26,515,A26),0
+225,9,0,4,(516,A29),0
+233,4,0,4,(547,A20),0
+1001,3,0,0,(537,554),0
+1003,3,0,0,(553,A1B),0
+1005,3,0,0,(571,553),0
+1007,3,0,0,(554,A4),0
+1009,3,0,0,(522,539),0
+1011,3,0,0,(521,569),0
+1013,3,0,0,(565,A7),0
 0
-/
-
-
-

configgily.cfg

@@ -0,0 +1,115 @@
+/******************************************
+/ fichier de configuration de signaux_complexes
+/ gily - f1iwq - 2018
+/******************************************
+/ Sans Log=0 / Avec Log=1 : génère un fichier log
+Log=0
+/ Affichage du débug du calcul des routes, et enregistrement dans le log si la variable précédente est à 1
+TraceDet=0
+/ Envoie un 0 après le pilotage des décodeurs
+/ Mettre 1 si utilisation de décodeurs LEB
+RazSignaux=1
+/
+/ modélisation des aiguillages : détermine les éléments connectés aux 3 branches des aiguilles (Pointe, Droit, Dévié (S)
+/ adresse d'aiguillage,P=élément vers pointe D=élément vers Droit, S=élément vers dévié.
+/ [60 ou 30 dans le cas d'un aiguillage en position déviée qui doit être fanchie à 30 ou 60]
+/ Elément = détecteur (valeur uniquement numérique) ou aiguillage (adresse+branche de connexion (P S ou D)
+/ Exemple : 1,P518,D523,S3P signifie : définition de l'aiguillage @1 : sur pointe relié au détecteur 518
+/                                      sur Droit relié au détecteur 518
+/                                      sur Dévié, relié à l'aiguillage 3 en pointe
+/ Pour une TJD : 26TJD,D530,S529,P28
+/ P désigne l'autre adresse de la TJD
+/ Aiguillage triple
+/
+/ S'il n'y a pas de détecteur connecté à une branche d'aiguillage, mettre 0.
+1,P518,S3P,D523,30
+2,P12S,S5S,D519
+3,P1S,S5D,D4P
+4,P3D,S514,D6S
+5,P515,S2S,D3S
+6,P516,S4D,D0
+7,P527,S520,D519
+8,P527,S522,D521
+9,P526,S515,D513,60
+10,P19P,S528,D29P,30
+11,P18P,D30D,S525
+12,P517,D20S,S2P
+17,P525,D535,S528
+18,P11P,S517,D23P
+19,P10P,S531,D22P
+20,P520,D21P,S12D
+21,P20D,S28D,D28D
+22,P19D,S538,D537
+23,P18D,S534,D538
+24,P538,S533,D32S
+25,P31S,D529,S27P
+26TJD,D530,S529,P28
+28TJD,D21D,S21S,P26
+27,P25S,D530,S537
+29,P10D,S30S,D513,60
+30,P524,S29D,D11D
+31,P534,S25P,D0
+32,P22S,S24D,D0
+0
+//
+/ modélisation du réseau par branche
+/ 1 ligne par branche - le sens de parcours de la branche est arbitraire.
+/ Chaque ligne (branche) doit commmencer et finir par un aiguillage
+/ Une ligne qui finit par un 0 signifie un heurtoir
+/ @ détecteur A=@aiguillage
+/ Terminer par 0
+/ Exemple : 519 est un détecteur  - A2 est l'aiguillage 2
+/
+A2,A12,517,A18,A11,A30,524,521,A8,527,A7,519,A2
+A7,520,A20,A12
+A1,A3,A4,514,522,A8
+A1,523,526,A9,513,A29,A10,A19,531,518,A1
+A9,515,A5
+A11,525,A17,528,A10
+A17,535,533,A24,538,A23
+A7,520,A20,A21,A28,A26,530,A27,A25,A31,534,A23,A18
+A26,529,A25
+A22,537,A27
+A22,A32,A24
+A6,516,0
+A31,0
+0
+/ liste des adresses des signaux et leur forme, pour affichage de l'image correspondante ,
+/ avec ou sans bouton de commande pour le feu blanc, type de décodeur [, type de cible (pour les décodeurs Unisemaf uniquement)]
+/ la liste doit être terminée par une adresse à 0
+/ forme : 2=2 feux(carré violet/blanc) / 3=3 feux / 4=4 feux / 5=5 feux (carré + blanc ou violet)
+/         7=7 feux (blanc ou violet + ralentissement  / 9=9 feux (blanc ou violet + rappel ralentissement)
+/         Dx : signal directionnel à x feux
+/ type de décodeur : 1=digital Bahn 2=CDF 3=LDT 4=LEB 5=NMRA 6=Unisemaf
+/ Notation de chaque ligne:
+/ adresse de base du signal, forme, avec ou sans bouton de commande du feu blanc, type de décodeur [, détecteur (det2, det3, ...) , élément suivant ,
+/ avec ou sans demande de verrouillage du feu au carré]
+/
+176,7,0,1,(520,A20),1
+190,7,0,1,(523,526),1
+204,9,0,1,(527,A7),1
+218,7,0,1,(525,A17),1
+232,2,1,1,(516,A6),1
+260,9,1,1,(518,A1),1
+274,3,0,1,(524,521),1
+288,7,0,1,(522,A8),1
+302,9,0,1,(526,A9),1
+316,7,1,1,(515,A5),1
+330,7,0,1,(519,A2),1
+344,9,0,1,(528,A10),1
+358,9,0,1,(517,A18),1
+372,D3,1,(A10D)(A19S)(A19D,A22D)(A19D,A22S)
+382,D3,1,(A29S,A10S)(A19S)(A19D,A22D)(A19D,A22S)
+392,3,0,1,(535,533),1
+420,7,0,1,(529,A25,530,A27,537,A27),1
+448,7,0,1,(533,A24),1
+462,9,0,1,(513,A29),1
+476,9,0,1,(538,A23),1
+497,9,0,4,(531,A19),1
+600,7,0,0,(521,A8),1
+610,9,0,6,(520,A20),0,7
+0
+/
+
+
+

verif_version.pas

@@ -22,7 +22,7 @@ var
   FormVersion: TFormVersion;
   Lance_verif : integer;
 
-Const Version='1.1';// sert à la comparaison de la version publiée
+Const Version='1.11';// sert à la comparaison de la version publiée
 
 implementation
 
@@ -114,13 +114,13 @@ begin
         begin
           i:=pos('version ',s);
           trouve_version:=i<>0;
-          if trouve_version then s2:=s;  // chaine contenant la version sur le site
+          if trouve_version then s2:=s;
         end;
         if not(trouve_zip) then
         begin
           i:=pos('.zip',s);
           trouve_zip:=i<>0;
-          if trouve_zip then s3:=s;    // chaine de l'Id du zip à télécharger
+          if trouve_zip then s3:=s;
         end;
        // Aff(s)
     end;
@@ -133,24 +133,10 @@ begin
       j:=pos(' ',s2);
       Version_p:=copy(s2,1,j-1);        // version dans version_p
       // isoler l'url du zip
-      //'href="./download/file.php?id=12086&amp;sid=9d0f759226f8c6e48671ab7c23cf36b4">Signaux_complexes_GL.zip';
-      //'href="./download/file.php?id=12086">Signaux_complexes_GL.zip</';
       i:=pos('href="',s3);
       delete(s3,1,i+5);
-      // tester si champ sid=
-      i:=pos('sid=',s3);
-      if i<>0 then
-      begin
-        // supprimer la chaine sid
-        i:=pos('&amp',s3);
-        j:=pos('"',s3);
-        delete(s3,i,j-1); 
-      end
-      else
-      begin
-        j:=pos('"',s3);
-        s3:=copy(s3,1,j-1);
-      end;  
+      j:=pos('"',s3);
+      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 ;
@@ -161,7 +147,7 @@ begin
       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