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

V1.71

Browse Source
This commit is contained in:
f1iwq2
2020-05-02 14:02:20 +02:00
parent ee3872d8a4
commit 86485b0585
7 changed files with 51 additions and 40 deletions
Download Patch File Download Diff File Expand all files Collapse all files

BIN
UnitConfig.dcu
View File

Binary file not shown.

34
UnitConfig.dfm
View File

@@ -1691,10 +1691,10 @@ object FormConfig: TFormConfig
Caption = 'Mode autonome' Caption = 'Mode autonome'
ImageIndex = 1 ImageIndex = 1
object Label9: TLabel object Label9: TLabel
Left = 0 Left = 8
Top = 368 Top = 352
Width = 305 Width = 297
Height = 18 Height = 13
Caption = 'Ces param'#232'tres sont utilis'#233's en fonctionnement sans CDM Rail' Caption = 'Ces param'#232'tres sont utilis'#233's en fonctionnement sans CDM Rail'
WordWrap = True WordWrap = True
end end
@@ -1702,19 +1702,19 @@ object FormConfig: TFormConfig
Left = 8 Left = 8
Top = 8 Top = 8
Width = 297 Width = 297
Height = 129 Height = 113
Caption = 'Acc'#232's USB - S'#233'rie '#224' l'#39'interface vers la centrale LENZ' Caption = 'Acc'#232's USB - S'#233'rie '#224' l'#39'interface vers la centrale LENZ'
TabOrder = 0 TabOrder = 0
object Label3: TLabel object Label3: TLabel
Left = 16 Left = 16
Top = 24 Top = 24
Width = 140 Width = 142
Height = 13 Height = 13
Caption = '1. Protocole s'#233'rie USB (COM)' Caption = '1. Protocole s'#233'rie USB / COM'
end end
object Label4: TLabel object Label4: TLabel
Left = 16 Left = 16
Top = 48 Top = 45
Width = 126 Width = 126
Height = 26 Height = 26
Caption = '2. Temporisation d'#39'envoi des octets de la trame (ms)' Caption = '2. Temporisation d'#39'envoi des octets de la trame (ms)'
@@ -1722,7 +1722,7 @@ object FormConfig: TFormConfig
end end
object Label5: TLabel object Label5: TLabel
Left = 16 Left = 16
Top = 88 Top = 75
Width = 152 Width = 152
Height = 26 Height = 26
Caption = Caption =
@@ -1731,9 +1731,9 @@ object FormConfig: TFormConfig
WordWrap = True WordWrap = True
end end
object EditcomUSB: TEdit object EditcomUSB: TEdit
Left = 160 Left = 168
Top = 24 Top = 22
Width = 121 Width = 118
Height = 21 Height = 21
TabStop = False TabStop = False
TabOrder = 0 TabOrder = 0
@@ -1741,7 +1741,7 @@ object FormConfig: TFormConfig
end end
object EditTempoOctetUSB: TEdit object EditTempoOctetUSB: TEdit
Left = 232 Left = 232
Top = 56 Top = 48
Width = 49 Width = 49
Height = 21 Height = 21
TabStop = False TabStop = False
@@ -1750,7 +1750,7 @@ object FormConfig: TFormConfig
end end
object EditTempoReponse: TEdit object EditTempoReponse: TEdit
Left = 232 Left = 232
Top = 88 Top = 80
Width = 49 Width = 49
Height = 21 Height = 21
TabStop = False TabStop = False
@@ -1760,7 +1760,7 @@ object FormConfig: TFormConfig
end end
object GroupBox4: TGroupBox object GroupBox4: TGroupBox
Left = 8 Left = 8
Top = 144 Top = 128
Width = 297 Width = 297
Height = 81 Height = 81
Caption = '4. Ent'#234'te des trames vers l'#39'interface' Caption = '4. Ent'#234'te des trames vers l'#39'interface'
@@ -1792,7 +1792,7 @@ object FormConfig: TFormConfig
end end
object GroupBox3: TGroupBox object GroupBox3: TGroupBox
Left = 8 Left = 8
Top = 232 Top = 216
Width = 297 Width = 297
Height = 73 Height = 73
Caption = 'Acc'#232's r'#233'seau '#224' l'#39'interface vers la centrale LENZ Ethernet' Caption = 'Acc'#232's r'#233'seau '#224' l'#39'interface vers la centrale LENZ Ethernet'
@@ -1905,7 +1905,7 @@ object FormConfig: TFormConfig
end end
object GroupBox9: TGroupBox object GroupBox9: TGroupBox
Left = 8 Left = 8
Top = 312 Top = 296
Width = 297 Width = 297
Height = 41 Height = 41
Caption = 'Divers' Caption = 'Divers'

9
UnitConfig.pas
View File

@@ -529,6 +529,11 @@ begin
if RadioButton1.checked then Valeur_entete:=0; if RadioButton1.checked then Valeur_entete:=0;
if RadioButton2.checked then Valeur_entete:=1; if RadioButton2.checked then Valeur_entete:=1;
if RadioButton3.checked then Valeur_entete:=2; if RadioButton3.checked then Valeur_entete:=2;
case Valeur_entete of
0 : begin entete:='';suffixe:='';end;
1 : begin entete:=#$FF+#$FE;suffixe:='';end;
2 : begin entete:=#228;suffixe:=#13+#13+#10;end;
end;
if changeCDM then connecte_CDM; if changeCDM then connecte_CDM;
if changeInterface then if changeInterface then
@@ -619,10 +624,6 @@ begin
if Valeur_entete=2 then RadioButton3.checked:=true; if Valeur_entete=2 then RadioButton3.checked:=true;
LabelInfo.Width:=253;LabelInfo.Height:=25; LabelInfo.Width:=253;LabelInfo.Height:=25;
if Valeur_entete=0 then RadioButton1.checked:=true;
if Valeur_entete=1 then RadioButton2.checked:=true;
if Valeur_entete=2 then RadioButton3.checked:=true;
CheckVerifVersion.Checked:=verifVersion; CheckVerifVersion.Checked:=verifVersion;
CheckInfoVersion.Checked:=notificationVersion; CheckInfoVersion.Checked:=notificationVersion;
CheckLanceCDM.Checked:=LanceCDM; CheckLanceCDM.Checked:=LanceCDM;

BIN
UnitPrinc.dcu
View File

Binary file not shown.

4
UnitPrinc.dfm
View File

@@ -1324,8 +1324,8 @@ object FormPrinc: TFormPrinc
SimplePanel = True SimplePanel = True
end end
object MSCommUSBLenz: TMSComm object MSCommUSBLenz: TMSComm
Left = 1144 Left = 720
Top = 120 Top = 144
Width = 32 Width = 32
Height = 32 Height = 32
OnComm = MSCommUSBLenzComm OnComm = MSCommUSBLenzComm

42
UnitPrinc.pas
View File

@@ -1300,24 +1300,26 @@ begin
i:=1; i:=1;
valto:=10; valto:=10;
//Affiche('envoi en tenant compte cts',clyellow); //Affiche('envoi en tenant compte cts',clyellow);
repeat
timeout:=0;
repeat repeat
timeout:=0; //Application.ProcessMessages;
repeat inc(timeout);
//Application.ProcessMessages; Sleep(20);
inc(timeout); until (Formprinc.MSCommUSBLenz.CTSHolding=true) or (timeout>valto);
Sleep(20); if timeout<=valto then
until (Formprinc.MSCommUSBLenz.CTSHolding=true) or (timeout>valto); begin
if timeout<=valto then //if formprinc.MSCommUSBLenz.CTSHolding then sa:='CTS=1 ' else sa:='CTS=0 ';
begin FormPrinc.MSCommUSBLenz.Output:=s[i];
//if formprinc.MSCommUSBLenz.CTSHolding then sa:='CTS=1 ' else sa:='CTS=0 '; //if terminal then Affiche(sa+s[i],clyellow) else Affiche(sa+chaine_hex(s[i]),clyellow);
FormPrinc.MSCommUSBLenz.Output:=s[i]; inc(i);
//if terminal then Affiche(sa+s[i],clyellow) else Affiche(sa+chaine_hex(s[i]),clyellow); end;
inc(i); until (i=length(s)+1) or (timeout>valto);
end; if timeout>valto then affiche('Erreur attente interface trop longue',clred);
until (i=length(s)+1) or (timeout>valto);
if timeout>valto then affiche('Erreur attente interface trop longue',clred);
end; end;
// protocole Rts Cts ou sans temporisation
if (protocole=2) or (tempoOctet=0) then begin FormPrinc.MSCommUSBLenz.Output:=s;exit;end; if (protocole=2) or (tempoOctet=0) then begin FormPrinc.MSCommUSBLenz.Output:=s;exit;end;
// sans procotole ou xon xoff ou xon-rts
if (protocole=0) or (protocole=1) or (protocole=3) then if (protocole=0) or (protocole=1) or (protocole=3) then
begin begin
for i:=1 to length(s) do for i:=1 to length(s) do
@@ -6580,13 +6582,21 @@ end;
end; end;
FreeLibrary(DLL); FreeLibrary(DLL);
end; end;
Result:=IsWow64;
end; end;
{$J-} {$J-}
// initialisation de la comm USB // initialisation de la comm USB
procedure connecte_USB; procedure connecte_USB;
procedure connecte_USB; var i,j : integer;
begin
if NumPort<>0 then
begin
With Formprinc.MSCommUSBLenz do
begin
i:=pos(':',portCom);
j:=pos(',',PortCom); j:=pos(',',PortCom);
j:=posEx(',',PortCom,j+1);
j:=posEx(',',PortCom,j+1); j:=posEx(',',PortCom,j+1);
j:=posEx(',',PortCom,j+1); j:=posEx(',',PortCom,j+1);

2
verif_version.pas
View File

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