easylinux/SignauxComplexes
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

V2.21

Browse Source
This commit is contained in:
f1iwq2
2020-12-03 17:19:54 +01:00
parent b4a32bcdea
commit d7ad7a4977
14 changed files with 303 additions and 286 deletions
Download Patch File Download Diff File Expand all files Collapse all files

4
Signaux_complexes_GL.cfg
View File

@@ -31,5 +31,5 @@
-M
-$M16384,1048576
-K$00400000
-LE"c:\program files\borland\delphi7\Projects\Bpl"
-LN"c:\program files\borland\delphi7\Projects\Bpl"
-LE"c:\program files (x86)\borland\delphi7\Projects\Bpl"
-LN"c:\program files (x86)\borland\delphi7\Projects\Bpl"

BIN
Signaux_complexes_GL.exe
View File

Binary file not shown.

BIN
UnitConfig.dcu
View File

Binary file not shown.

27
UnitConfig.dfm
View File

@@ -1776,7 +1776,7 @@ object FormConfig: TFormConfig
Top = 8
Width = 585
Height = 441
ActivePage = TabSheetSig
ActivePage = TabSheetCDM
Font.Charset = DEFAULT_CHARSET
Font.Color = clBackground
Font.Height = -11
@@ -2091,6 +2091,29 @@ object FormConfig: TFormConfig
TabOrder = 4
end
end
object GroupBox15: TGroupBox
Left = 296
Top = 328
Width = 273
Height = 73
Caption = 'Divers'
TabOrder = 5
object Label31: TLabel
Left = 8
Top = 16
Width = 204
Height = 13
Caption = 'Seuil du nombre de d'#233'tecteurs trop distants'
end
object EditNbDetDist: TEdit
Left = 232
Top = 12
Width = 25
Height = 21
TabOrder = 0
Text = 'EditNbDetDist'
end
end
end
object TabSheetAutonome: TTabSheet
Caption = 'Mode autonome'
@@ -2760,7 +2783,7 @@ object FormConfig: TFormConfig
Top = 48
Width = 129
Height = 21
ItemHeight = 13
ItemHeight = 0
TabOrder = 1
OnChange = ComboBoxDecChange
end

43
UnitConfig.pas
View File

@@ -182,6 +182,9 @@ type
EditEtatActionneur: TEdit;
CheckRAZ: TCheckBox;
CheckFenEt: TCheckBox;
GroupBox15: TGroupBox;
EditNbDetDist: TEdit;
Label31: TLabel;
procedure ButtonAppliquerEtFermerClick(Sender: TObject);
procedure Button2Click(Sender: TObject);
procedure FormActivate(Sender: TObject);
@@ -226,6 +229,7 @@ function envoi_CDM(s : string) : boolean;
procedure connecte_CDM;
function place_id(s : string) : string;
procedure decodeAig(s : string;var adr : integer;var B : char);
procedure sauve_config;
implementation
@@ -500,7 +504,7 @@ begin
if j<>0 then s:=s+','+IntToSTR(feux[i].Adr_det2)+','+TypeEl_To_char(feux[i].Btype_suiv2)+IntToSTR(feux[i].Adr_el_suiv2);
j:=feux[i].Adr_det3;
if j<>0 then s:=s+','+IntToSTR(feux[i].Adr_det3)+','+TypeEl_To_char(feux[i].Btype_suiv3)+IntToSTR(feux[i].Adr_el_suiv3);
j:=feux[i].Adr_det4;
j:=feux[i].Adr_det4;
if j<>0 then s:=s+','+IntToSTR(feux[i].Adr_det4)+','+TypeEl_To_char(feux[i].Btype_suiv4)+IntToSTR(feux[i].Adr_el_suiv4);
s:=s+'),';
end
@@ -518,11 +522,15 @@ begin
end;
s:=s+')';
end;
end;
end;
//verrouillage au carré
if aspect<10 then if feux[i].verrouCarre then s:=s+'1' else s:=s+'0';
if aspect<10 then
begin
if feux[i].verrouCarre then s:=s+'1' else s:=s+'0';
// si unsemaf, paramètre supplémentaire
if feux[i].decodeur=6 then s:=s+','+intToSTR(feux[i].unisemaf);
end;
encode_sig:=s;
end;
@@ -596,6 +604,11 @@ begin
// plein écran
writeln(fichierN,'Fenetre=',fenetre);
copie_commentaire;
// Nombre maxi de détecteurs considérés distants
writeln(fichierN,'Nb_Det_Dist=',Nb_Det_Dist);
copie_commentaire;
// Vérification des versions au démarrage
if verifVersion then s:='1' else s:='0';
@@ -736,13 +749,16 @@ begin
end;
procedure TFormConfig.ButtonAppliquerEtFermerClick(Sender: TObject);
procedure Sauve_config;
var i,erreur : integer;
s : string;
ChangeCDM,changeInterface,changeUSB,change_srv : boolean;
begin
// Vérification de la configuration-------------------------------------------
// contrôle adresse IP CDM
with FormConfig do
begin
s:=EditAdrIPCDM.text;
if not(IpOk(s)) then begin labelInfo.Caption:='Adresse IP CDM rail incorrecte';exit;end;
ChangeCDM:=s<>AdresseIPCDM;
@@ -780,6 +796,11 @@ begin
if erreur<>0 then begin labelInfo.Caption:='Valeur temporisation de réponse interface';exit;end;
TimoutMaxInterface:=i;
val(EditNbDetDist.text,i,erreur);
if (erreur<>0) or (i<3) then begin labelInfo.Caption:='Valeur nombre de détecteurs trop distants incorrecte';exit;end;
Nb_Det_Dist:=i;
if RadioButton1.checked then Valeur_entete:=0;
if RadioButton2.checked then Valeur_entete:=1;
if RadioButton3.checked then Valeur_entete:=2;
@@ -848,11 +869,18 @@ begin
Srvc_PosTrain:=CheckServPosTrains.checked;
Srvc_Sig:=CheckBoxSrvSig.checked;
Raz_Acc_signaux:=CheckBoxRazSignaux.checked;
end;
if change_srv then services_CDM;
// générer le fichiers config.cfg et clieng-GL.cfg
genere_config2;
end;
procedure TFormConfig.ButtonAppliquerEtFermerClick(Sender: TObject);
begin
Sauve_config;
formConfig.close;
end;
@@ -889,7 +917,8 @@ begin
EditDroit_BD.ReadOnly:=false;
Edit_HG.ReadOnly:=false;
EditNbDetDist.text:=IntToSTR(Nb_Det_dist);
EditAdrIPCDM.text:=adresseIPCDM;
EditPortCDM.Text:=IntToSTR(portCDM);
EditIPLenz.text:=AdresseIP;

2
UnitDebug.dfm
View File

@@ -121,7 +121,7 @@ object FormDebug: TFormDebug
Anchors = [akLeft, akTop, akRight, akBottom]
Lines.Strings = (
'MemoDebug')
ScrollBars = ssVertical
ScrollBars = ssBoth
TabOrder = 3
WordWrap = False
end

BIN
UnitPrinc.dcu
View File

Binary file not shown.

153
UnitPrinc.pas
View File

@@ -163,7 +163,7 @@ const_devieG_CDM=3; // positions aiguillages transmises par cdm
const_devieD_CDM=2; // positions aiguillages transmises par cdm
const_droit_CDM=0; // positions aiguillages transmises par cdm
ClBleuClair=$FF7070 ;
Cyan=$FFA0A0;
Cyan=$FF6060;
clviolet=$FF00FF;
GrisF=$414141;
clOrange=$0077FF;
@@ -225,7 +225,7 @@ var ancien_tablo_signalCplx,EtatsignalCplx : array[0..MaxAcc] of word;
AvecInitAiguillages,tempsCli,NbreFeux,pasreponse,AdrDevie,fenetre,
NombreImages,signalCpx,branche_trouve,Indexbranche_trouve,Actuel,Signal_suivant,
Nbre_recu_cdm,Tempo_chgt_feux,Adj1,Adj2,NbrePN,ServeurInterfaceCDM,
ServeurRetroCDM,TailleFonte : integer;
ServeurRetroCDM,TailleFonte,Nb_Det_Dist : integer;
Hors_tension2,traceSign,TraceZone,Ferme,parSocket,ackCdm,PremierFD,
NackCDM,MsgSim,succes,recu_cv,AffActionneur,AffAigDet,Option_demarrage,
@@ -404,23 +404,6 @@ begin
combine:=BitNum(CodeBin and $fc00);
end;
procedure Xcode_to_aspect(codebin : word;var premierbit,combine : word) ;
var i,mot : word;
begin
mot:=codebin;
i:=0;premierbit:=0;Combine:=0;
while (i<15) do
begin
if (mot and 1)=1 then // si bit 0 du mot est à 1
begin
if (premierbit=0) then premierbit:=i+1 else Combine:=i+1;
end;
mot:=mot shr 1; //décaler à droite
inc(i);
end;
end;
// dessine un cercle plein dans le feu
procedure cercle(ACanvas : Tcanvas;x,y,rayon : integer;couleur : Tcolor);
begin
@@ -433,7 +416,7 @@ begin
//Affiche(IntToSTR(y),clyellow);
end;
// dessine les feux sur une cible à 2 feux
// dessine les feux sur une cible à 2 feux dans le canvas spécifié
// x,y : offset en pixels du coin supérieur gauche du feu
// frX, frY : facteurs de réduction
procedure dessine_feu2(Acanvas : Tcanvas;x,y : integer;frX,frY : real;EtatSignal : word;orientation : integer);
@@ -442,7 +425,7 @@ var Temp,rayon,xViolet,YViolet,xBlanc,yBlanc,
ech : real;
code,combine : word;
begin
code_to_aspect(Etatsignal,code,combine); // et aspect
code_to_aspect(Etatsignal,code,combine);
rayon:=round(6*frX);
// récupérer les dimensions de l'image d'origine du feu
@@ -3476,7 +3459,7 @@ end;
branche_trouve:=NBranche;
IndexBranche_trouve:=i;
end;
procedure lit_config;
@@ -3524,6 +3507,8 @@ var s,sa,chaine,SOrigine: string;
aiguillage[adresse].inversion:=invers;
end;
end;
end;
until (adresse=0);
end;
begin
@@ -3751,12 +3736,28 @@ begin
if i<>0 then
begin
inc(nv);
delete(s,i,length(sa));
i:=0;
val(s,i,erreur);
ServeurRetroCDM:=i;
end;
sa:='NB_DET_DIST=';
i:=pos(sa,s);
if i<>0 then
begin
inc(nv);
trouve_NbDetDist:=true;
delete(s,i,length(sa));
i:=0;
val(s,i,erreur);
ServeurRetroCDM:=i;
end;
val(s,i,erreur);
if i<2 then i:=2;
Nb_Det_Dist:=i;
end;
inc(it);
until (Nv>=18) or (it>30);
//affiche(IntToSTR(Nv)+' variables',cyan);
if (it>30) then
begin
s:='ERREUR: manque variables dans config-gl.cfg';
@@ -5242,7 +5243,7 @@ begin
((aiguillage[actuel].modele=2) or (aiguillage[Actuel].modele=3)) then
begin
if nivDebug=3 then AfficheDebug('501 - Détection Précédent=TJD/S Suivant=TJD/S',clyellow);
// subsituer la pointe
// subsituer la pointe
actuel:=aiguillage[Actuel].APointe;
end;
end;
@@ -5345,7 +5346,7 @@ begin
AfficheDebug(s,clOrange);
end;
detecteur_suivant_El:=9999;exit;
end;
end;
IndexBranche_det2:=IndexBranche_trouve;
branche_trouve_det2:=branche_trouve;
j:=1; // J=1 test en incrément J=2 test en décrément
@@ -5386,10 +5387,10 @@ begin
2 : s:=s+' aiguillage';
3 : s:=s+' aiguillage bis';
end;
AfficheDebug(s,clorange);
AfficheDebug(s,clorange);
end;
AdrPrec:=AdrFonc;TypePrec:=TypeFonc;
AdrPrec:=AdrFonc;TypePrec:=TypeFonc;
AdrFonc:=Adr;TypeFonc:=typeGen;
inc(i);
sortie:=((typeDet2=TypeGen) and (Adr=el2)) or (Adr=0) or (Adr>=9996) or (i=15) or (N_Det=Nb_det_dist);
@@ -5397,7 +5398,7 @@ begin
if (i=15) and (Nivdebug=3) then afficheDebug('Pas trouvé',clyellow);
if (N_det=Nb_det_dist) and (Nivdebug=3) then afficheDebug('Détecteurs trop distants',clyellow);
end
else
begin
// déja trouvé
@@ -5422,6 +5423,7 @@ begin
end;
AfficheDebug(s,clorange);
end;
AdrPrec:=AdrFonc;TypePrec:=TypeFonc;
AdrFonc:=Adr;TypeFonc:=typeGen;
inc(i);
@@ -5437,6 +5439,7 @@ begin
end;
detecteur_suivant_el:=Adr;
exit;
end;
end;
if (i=10) then if NivDebug=3 then AfficheDebug('201 : Itération trop longue',clred);
inc(j);
@@ -6045,12 +6048,20 @@ function PresTrainPrec(AdrFeu : integer) : boolean;
end;
test_route_valide:=10 ;
end;
// présence train 3 détecteurs avant le feu
function PresTrainPrec(AdrFeu : integer) : boolean;
var PresTrain : boolean;
j,i,Det_initial,Adr_El_Suiv,Btype_el_suivant,DetPrec1,DetPrec2,DetPrec3,DetPrec4 : integer;
begin
i:=index_feu(Adrfeu);
if i=0 then
begin
Affiche('Erreur 602 - feu '+IntToSTR(adrFeu)+' non trouvé',clred);
if NivDebug=3 then AfficheDebug('Erreur 602 - feu '+IntToSTR(adrFeu)+' non trouvé',clred);
PresTrainPrec:=false;
exit;
begin
end;
// **** un feu peut être associé à 4 détecteurs (pour 4 voies convergentes) *****
// il faut donc explorer les 4 détecteurs probables
@@ -6084,25 +6095,28 @@ begin
begin
det_initial:=feux[i].Adr_det4;Adr_El_Suiv:=feux[i].Adr_el_suiv4;
if feux[i].Btype_suiv1=1 then Btype_el_suivant:=1;
if feux[i].Btype_suiv1=2 then Btype_el_suivant:=2;
if feux[i].Btype_suiv1=2 then Btype_el_suivant:=2;
if feux[i].Btype_suiv1=4 then Btype_el_suivant:=2;
end;
if (det_initial<>0) then
if (det_initial<>0) then
begin
DetPrec1:=detecteur_suivant(Adr_El_Suiv,Btype_el_suivant,det_initial,1);
if DetPrec1<9996 then // route bloquée par aiguillage mal positionné
if DetPrec1<1024 then // route bloquée par aiguillage mal positionné
begin
DetPrec2:=detecteur_suivant_El(det_initial,1,DetPrec1,1);
if DetPrec2<9996 then
begin
DetPrec3:=detecteur_suivant_El(DetPrec1,1,DetPrec2,1);
if DetPrec3<9996 then
if DetPrec2<1024 then
begin
DetPrec4:=detecteur_suivant_El(DetPrec2,1,DetPrec3,1);
if AffSignal or (NivDebug=3) then AfficheDebug('les détecteurs précédents au feu '+IntToSTR(Adrfeu)+' sont:'+intToSTR(Det_initial)+' '+intToSTR(DetPrec1)+' '+intToSTR(DetPrec2)+' '+intToSTR(DetPrec3)+' '+intToSTR(DetPrec4),clyellow);
PresTrain:=MemZone[DetPrec4,detPrec3] or
MemZone[DetPrec3,detPrec2] or MemZone[DetPrec2,detPrec1] or MemZone[DetPrec1,Det_initial] or presTrain ;
if AffSignal or (NivDebug=3) then
DetPrec3:=detecteur_suivant_El(DetPrec1,1,DetPrec2,1);
if DetPrec3<1024 then
begin
DetPrec4:=detecteur_suivant_El(DetPrec2,1,DetPrec3,1);
if DetPrec4<1024 then
begin
if AffSignal or (NivDebug=3) then AfficheDebug('les détecteurs précédents au feu '+IntToSTR(Adrfeu)+' sont:'+intToSTR(Det_initial)+' '+intToSTR(DetPrec1)+' '+intToSTR(DetPrec2)+' '+intToSTR(DetPrec3)+' '+intToSTR(DetPrec4),clyellow);
PresTrain:=MemZone[DetPrec4,detPrec3] or
MemZone[DetPrec3,detPrec2] or MemZone[DetPrec2,detPrec1] or MemZone[DetPrec1,Det_initial] or presTrain ;
if AffSignal or (NivDebug=3) then
begin
if MemZone[DetPrec4,detPrec3] then AfficheDebug('0.présence train '+IntToSTR(DetPrec4)+' '+IntToSTR(detPrec3),clyellow);
if MemZone[DetPrec3,detPrec2] then AfficheDebug('1.présence train '+IntToSTR(DetPrec3)+' '+IntToSTR(detPrec2),clyellow);
if MemZone[DetPrec2,detPrec1] then AfficheDebug('2.présence train '+IntToSTR(DetPrec2)+' '+IntToSTR(detPrec1),clyellow);
@@ -6676,10 +6690,6 @@ begin
if (AdrDetFeu=Adresse) and (feux[i].aspect<10) then
begin
AdrSuiv:=Feux[i].Adr_el_suiv1;TypeSuiv:=Feux[i].Btype_suiv1;
if AffSignal then AfficheDebug('Pour Feu '+intToSTR(AdrFeu)+' detecteursuivant('+intToSTR(AdrSuiv)+','+IntToSTR(typeSuiv)+','+intToSTR(AdrDetFeu)+',1)',clyellow);
AdrPrec:=detecteur_suivant(AdrSuiv,typeSuiv,AdrDetFeu,1) ; // détecteur précédent le feu
if AdrPrec=0 then
begin
if AffSignal then AfficheDebug('Pour Feu '+intToSTR(AdrFeu)+' detecteursuivant('+intToSTR(AdrSuiv)+','+IntToSTR(typeSuiv)+','+intToSTR(AdrDetFeu)+',1)',clyellow);
AdrPrec:=detecteur_suivant(AdrSuiv,typeSuiv,AdrDetFeu,1) ; // détecteur précédent le feu
if AdrPrec=0 then
@@ -7204,29 +7214,27 @@ var
// renvoie si un process EXE tourne. Renvoie le Handle du process dans CDMHd et l'Id du process dans ProcessID
// sExeName : Nom de l'EXE sans le chemin, et sans EXE }
function ProcessRunning(sExeName: String) : Boolean;
function ProcessRunning(sExeName: String) : Boolean;
var
hSnapShot : THandle;
ProcessEntry32 : TProcessEntry32; // pointeur sur la structure ProcessEntry32
hSnapShot : THandle;
ProcessEntry32 : TProcessEntry32; // pointeur sur la structure ProcessEntry32
processID : DWord;
begin
Result:=false;
hSnapShot:=CreateToolhelp32Snapshot(TH32CS_SNAPPROCESS,0);
begin
Result:=false;
hSnapShot:=CreateToolhelp32Snapshot(TH32CS_SNAPPROCESS,0);
Win32Check(hSnapShot <> INVALID_HANDLE_VALUE);
sExeName:=LowerCase (sExeName);
FillChar(ProcessEntry32,SizeOf(TProcessEntry32),#0);
ProcessEntry32.dwSize:=SizeOf(TProcessEntry32); // contient la structure de tous les process
if (Process32First(hSnapShot,ProcessEntry32)) then
repeat
//Affiche(ProcessEntry32.szExeFile,ClYellow);
if (Pos(sExeName,LowerCase(ProcessEntry32.szExeFile))=1) then
begin
processID:=ProcessEntry32.th32ProcessID;
CDMhd:=GetWindowFromID(processID);
Win32Check(hSnapShot <> INVALID_HANDLE_VALUE);
sExeName:=LowerCase (sExeName);
FillChar(ProcessEntry32,SizeOf(TProcessEntry32),#0);
ProcessEntry32.dwSize:=SizeOf(TProcessEntry32); // contient la structure de tous les process
if (Process32First(hSnapShot,ProcessEntry32)) then
repeat
//Affiche(ProcessEntry32.szExeFile,ClYellow);
if (Pos(sExeName,LowerCase(ProcessEntry32.szExeFile))=1) then
begin
processID:=ProcessEntry32.th32ProcessID;
CDMhd:=GetWindowFromID(processID);
Affiche('CDM rail processID='+IntToSTR(ProcessID)+' handle='+IntToSTR(CDMhd),clOrange);
Result:=true;
Break;
@@ -7460,10 +7468,9 @@ var
procedure TFormPrinc.FormCreate(Sender: TObject);
var
i,j : integer;
i,j : integer;
s,s2,Url,LocalFile : string;
V_utile : real;
trouve,AvecMaj : Boolean;
V_utile : real;
CibleHandle : Thandle;
begin
@@ -7573,8 +7580,6 @@ begin
begin
cree_image(i); // et initialisation tableaux signaux
end;
Tempo_init:=10; // démarre les initialisation des signaux et des aiguillages dans 1 s
Tempo_init:=10; // démarre les initialisation des signaux et des aiguillages dans 1 s
// initialisation de la chronologie des évènements détecteurs

BIN
UnitTCO.dcu
View File

Binary file not shown.

115
client-GL.cfg
View File

@@ -1,6 +1,6 @@
/******************************************
/ fichier de configuration de client-GL.log
/ JFP - 2020
/ gily - f1iwq - 2018
/******************************************
/ ce programme permet de commander les signaux complexes avec ou sans
/ CDM rail. Il a trois modes de fonctionnement:
@@ -28,7 +28,7 @@ IpV4_PC=127.0.0.1:9999
/ Adresse IP V4 de l'interface LI-USB Ethernet : port
/ par défaut le port est 5550
/ ne pas connecter le port ou mettre 0 si on travaille avec l'interface USB
IPV4_Interface=192.168.1.55:5550
IPV4_Interface=192.168.1.23:5550
/
/ port COM de l'adresse USB de l'interface LU-USB - LI100 - LI100F - LI101F - GENLI
/ attention de COM1 à 9 - Si le port de l'interface USB >9, il faut le changer
@@ -38,10 +38,11 @@ IPV4_Interface=192.168.1.55:5550
/ Com:vitesse,parité,nombre de bits,bits de stop,protocole: 0=aucun 1=Xon-Xoff 2=RTS-CTS 3=RTS-Xon-Xoff 4=CTS
/ voir notice page 29
/
Protocole_serie=COM5:9600,N,8,1,0
Protocole_serie=COM3:57600,N,8,1,2
/COM8:9600,N,8,1,0
/
/ Temporisation en ms d'envoi entre deux octets de la trame
Inter_Car=30
Inter_Car=50
/ Temporisation maximale de contrôle après non réponse de l'interface, en tranches de 100ms
/ à adapter en fonction de l'interface. Ex 7=700ms d'attente maxi
Tempo_maxi=7
@@ -50,7 +51,7 @@ Tempo_maxi=7
/ Entete=0 - n'ajoute rien aux trames - pour une interface RS232 ou GENLI
/ Entete=1 - Ajoute FF FE au début de chaque trame envoyée à l'interface : pour une interface USB, entete=1
/ Entete=2 - Ajoute E4 au début de chaque trame et 0D 0D 0A en fin de chaque trame : pour compatibilité arduino
Entete=0
Entete=1
/ ===============================================================================
/
/ Avec (1) ou sans (0) initialisation des aiguillages au démarrage selon le tableau ci après
@@ -59,6 +60,9 @@ Init_Aig=0
/ Fenêtre d'exécution en plein écran (1) ou réduite (0)
Fenetre=0
/
/ Nombre de détecteurs considérés comme trop distants dans la recherche d'un détecteur "suivant"
Nb_Det_Dist=3
/
/ Vérification des versions au démarrage
verif_version=1
/ Notification de nouvelle version
@@ -69,7 +73,7 @@ TCO=0
CDM=0
/ Nom du fichier LAY à ouvrir depuis CDM sans caractères spéciaux ( : / )
/reseau_gily_signal_ajoute.lay
lay=DJEFF252RETROSIGNALISATION23.LAY
LAY=RESEAU_GILY_SIGNAL_AJOUTE.LAY
/
/ Démarrage du serveur d'interface automatique
/ 0=ne pas démarrer automatiquement le serveur d'interfaces
@@ -81,7 +85,7 @@ lay=DJEFF252RETROSIGNALISATION23.LAY
/ 6=FIS88 FeedBack (S88/S88N)
/ 7=RS2PC (Rs FeedBack interface)
/ 8=DCC++
Serveur_interface=1
Serveur_interface=0
/
/ Interface de rétrosignalisation pour LENZ/DCC++
/ 1=auto
@@ -90,8 +94,7 @@ Serveur_interface=1
/ 4=LI-100F
/ 5=LI-100
/ 6=GENLI
retro=6
/
retro=1
/
/
/ Valeurs des initialisations des aiguillages au démarrage -----------------------------------------------
@@ -100,64 +103,38 @@ retro=6
/ une position différente de 1 ou 2 sera à 1. Une temporisation de 0 sera à 5.
/ la liste doit être terminée par 0,0,0
[section_init]
77,2,3,0
78,2,3,0
79,2,3,0
81,2,3,0
82,2,3,0
83,2,3,0
84,2,3,0
85,2,3,0
86,2,3,0
87,2,3,0
88,2,3,0
89,2,3,0
90,2,3,0
91,2,3,0
92,2,3,0
93,2,3,0
94,2,3,0
95,2,3,0
96,2,3,0
97,2,3,0
98,2,3,0
99,2,3,0
100,2,3,0
101,2,3,0
102,2,3,0
103,2,3,0
104,2,3,0
105,2,3,0
106,2,3,0
107,2,3,0
108,2,3,0
109,2,3,0
110,2,3,0
111,2,3,0
112,2,3,0
113,2,3,0
114,2,3,0
115,2,3,0
116,2,3,0
117,2,3,0
118,2,3,0
119,2,3,0
120,2,3,0
121,2,3,0
122,2,3,0
123,2,3,0
124,2,3,0
125,2,3,0
126,2,3,0
127,2,3,0
128,2,3,0
128,2,3,0
130,2,3,0
131,2,3,0
132,2,3,0
133,2,3,0
134,2,3,0
135,2,3,0
136,2,3,0
1,2,3,0
2,2,3,0
3,2,3,0
4,2,3,0
5,1,3,0
6,2,3,0
7,1,3,0
8,2,3,0
9,2,3,0
10,2,3,0
11,2,3,0
12,1,3,0
13,1,3,0
14,1,3,0
15,1,3,0
16,1,4,0
17,1,3,0
18,2,4,0
19,1,4,0
20,2,4,0
21,2,3,0
22,1,3,0
23,1,3,0
24,1,3,0
25,1,3,0
26,2,3,0
27,2,3,0
28,2,3,0
29,2,3,0
30,2,3,0
31,1,3,0
32,1,3,0
0,0,0,0
/
/

238
config.cfg
View File

@@ -1,158 +1,138 @@
/******************************************
/ fichier de configuration de signaux_complexes
/ JFP - 2020 - nouvelles tjd
/ gily - f1iwq - 2019
/******************************************
/ 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 LEB
RazSignaux=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 [TJS,TJD,TRI],P=élément vers pointe D=élément vers Droit, S=élément vers dévié, INV si aiguillage inversé
/ 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,D(connectD,DirectionD),S(connectS,DirectionS)
/ 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.
/77TJD,P78,D599,S600
/78TJD,P77,D598,S79D
77TJD,D(599,78D),S(600,78S),I1
78TJD,D(598,S77D),S(79D,77S),I1
79,P601,D78S,S597
81,P515,D513,S82S
82,P83P,D516,S81S
83,P82P,D514,S517
85,P524,D89D,S86D
86,P87P,D85S,S525
87,P86P,D88P,S89S
88,P87D,D548,S94D
89TJD,D(85D,90D),S(87S,90S),I1
90TJD,D(547,89D),S(91S,89S),I1
/89TJD,P90,D85D,S87S
/90TJD,P89,D547,S91S
/91TJD,P92,D540,S90S
/92TJD,P91,D546,S96S
91TJD,D(540,92D),S(90S,92S),I1
92TJD,D(546,91D),S(96S,91S),I1
/93TJD,P94,D95S,S549
/94TJD,P93,D88S,S542
93TJD,D(88S,94D),S(542,94S)
94TJD,D(549,93D),S(95S,93S)
95,P97S,D543,S93D
96,P545,D538,S92S
97,P102S,D544,S95P
98,P550,D555,S101S
99,P101D,D551,S100D
100,P552,D99S,S553
101,P556,D99P,S98S
102,P103D,D557,S97P
/103TJD,P104,D102P,S563
/104TJD,P103,D564,S109D
103TJD,D(102P,104D),S(563,104S),I1
104TJD,D(564,103D),S(109D,103S),I1
105,P558,D106P,S107D
106,P105D,D566,S568
/107TJD,P108,D105S,S559
/108TJD,P107,D110S,S581
107TJD,D(105S,108D),S(559,108S),I1
108TJD,D(110S,107D),S(581,107S),I1
109,P112S,D104S,S562
110,P111P,S108D,D560
111,P110P,D589,S113S
112,P113D,D561,S109P
113,P590,D112P,S111S
114,P603,D115P,S604
115,P114D,D116S,S606
116,P607,D605,S115D
117,P602,D591,S118P
118,P117S,D119P,S592
119,P118D,D120P,S593
120,P119D,D595,S594
121,P122D,D588,S587
122,P123D,D121P,S586
123,P124S,D122P,S585
124,P583,D584,S123P
125,P579,D577,S578
126,P580,D569,S127P
127,P126S,D128P,S570
128,P127D,D129P,S571
129,P128D,D130P,S572
130,P129D,D574,S573
131,P132D,D529,S530
132,P133D,D131P,S531
133,P134D,D132P,S532
134,P135D,D133P,S533
135,P523,D134p,S534
136,P522,D535,S536
1,P518,D523,S3P,30
2,P12S,D519,S5S
3,P1S,D4P,S5D
4,P3D,D6S,S514
5,P515,D3S,S2S
6,P516,D0,S4D
7,P527,D519,S520
8,P527,D521,S522
9,P526,D513,S515,60
10,P19P,D29P,S528,30
11,P18P,D30D,S525
12,P517,D20S,S2P
17,P525,D535,S528
18,P11P,D23P,S517
19,P10P,D22P,S531
20,P520,D21P,S12D
21,P20D,D28D,S28D
22,P19D,D537,S538
23,P18D,D538,S534
24,P538,D32S,S533
25,P31S,D529,S27P
26TJD,D(530,28D),S(529,28S),I0
27,P25S,D530,S537
28TJD,D(21D,26D),S(21S,26S),I0
29,P10D,D513,S30S,60
30,P524,D11D,S29D
31,P534,D0,S25P
32,P22S,D0,S24D
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 aiguilage ou un buttoir (0)
/ 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
/
A83,514,518,520,524,A85,A89,A90,547,560,A110,A111,589,597,A79
A77,599,590,A113,A112,561,548,A88,A87,A86,525,521,519,513,A81
A106,A105,558,545,A96,538,537,0
A108,581,582,0
A107,559,546,A92,A91,537,540,0
A112,A109,562,549,A93,A94,542,541,0
A104,564,565,0
A103,A102,A97,A95,543,528,0
A97,544,0
A102,557,555,A98,550,0
A103,563,556,A101,A99,551,0
A99,A100,552,0
A100,553,554,0
A106,566,567,0
A106,568,603,A114,604,0
A114,A115,606,608,0
A115,A116,607,0
A116,605,0
A135,534,574,A130
A134,533,573,A130
A133,532,572,A129
A132,531,571,A128
A131,530,570,A127
A82,516,527,576,580,A126,569,529,A131,A132,A133,A134,A135,523,515,A81
A136,536,578,A125
A77,600,579,A125,577,535,A136,522,517,A83
A79,601,596,583,A124,584,595,A120,A119,A118,A117,602,598,A78
A117,591,588,A121
A118,592,587,A121
A119,593,586,A122
A120,594,585,A123
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 signaux
/ 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 (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=virtuel 1=digital Bahn 2=CDF 3=LDT 4=LEB 5=NMRA 6=Unisemaf Paco
/ 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)
/ 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, 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)]
197,3,0,6,(598,A78),1,3
201,4,0,6,(597,A79),1,4
205,9,0,6,(590,A113),1,93
209,9,0,6,(560,A110),1,92
213,9,0,6,(548,A88),1,92
217,9,0,6,(524,A85),1,93
221,7,0,6,(518,520),1,73
225,3,0,6,(521,519),1,3
229,9,0,6,(516,A82),1,92
233,4,0,6,(513,A81),1,92
/ 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é]
/
/ signaux de test
/610,4,0,0,(521,a8),1
/615,5,0,0,(521,a8),1
/616,5,0,2,(521,a8),1
/617,5,0,3,(521,a8),1
/618,5,0,5,(521,a8),1
/619,5,0,6,(521,a8),1,52
176,7,0,1,(520,A20),1
190,7,0,1,(523,526),0
204,9,0,1,(527,A7),1
218,7,0,1,(525,A17),1
232,2,1,1,(516,A6),0
260,9,1,1,(518,A1),1
274,3,0,1,(524,521),0
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
1000,9,0,0,(530,A26),1
1001,9,0,0,(529,A26),1
0
/
/ Section actionneurs. Ne fonctionne qu'en mode connecté à CDM en run
/ Fonctions Fx à envoyer aux locomotives sur passage d'un actionneur
/ Uniquement en mode connecté à CDM
/ actionneur,état,Nom de la loco,fonction,temporisation en ms avant remise à 0
/ actionneur,état,Nom du train,fonction,temporisation en ms avant remise à 0
/
/ Passages à niveau (PN)
/ (act_ferme_voie1,act_ouvre_voie1),(act_ferme_voie2,act_ouvre_voie2),...,PN(adresse_ferme,adresse_ouvre)
/
/ Klaxon (F2)
/815,1,CC406526,F2,400
/
/ passage à niveau à 2 voies
/(815,830),(820,840),PN(121+,121-)
/
/ passage à niveau à 1 voie
/(815,809),PN(131+,131-)
/
813,1,CC406526,A613,2,Z
0

BIN
verif_version.dcu
View File

Binary file not shown.

2
verif_version.pas
View File

@@ -23,7 +23,7 @@ var
Lance_verif : integer;
verifVersion,notificationVersion : boolean;
Const Version='2.2'; // sert à la comparaison de la version publiée
Const Version='2.21'; // sert à la comparaison de la version publiée
implementation

5
versions.txt
View File

@@ -1,5 +1,5 @@
Version 1.0 : première version
Version 1.01 : gestion des trajectoires vers les buttoirs
Version 1.01 : gestion des routes vers les buttoirs
Version 1.02 : vérification automatique des versions
Version 1.1 : gestion des tableaux indicateurs de direction
gestion du décodeur de signaux Unisemaf Paco (expérimental)
@@ -40,6 +40,9 @@ version 2.11 : Suppression du message d'erreur "Element 9999 non trouv
Ajout de l'option fenêtre étendue dans le panneau de configuration
Version 2.2 : Correction d'un bug sur le verrouillage des signaux au carré sur les trains en approche.
Mise à jour du fichier de config.cfg si modification des signaux dans la configuration.
version 2.21 : Paramétrage du nombre de détecteurs considérés comme trop distants
Correction d'un bug de la 2.2