Initial commit - Delphi MES client project

2026-05-07 20:25:34 +08:00
commit 819b4824f6
466 changed files with 1176403 additions and 0 deletions
@@ -0,0 +1,175 @@
+unit uAlarmLed;
+
+interface
+
+uses uSafeLog,uErrorInfo,SPComm,System.SysUtils,System.Classes;
+
+type
+    //串口通讯速率为 9600bps，数据位 8，校验位 无，停止位 1，16 进制
+    //控制灯信号开启 控制灯信号闪烁 控制灯信号关闭
+    //11：红灯亮 41：红灯闪烁 21：红灯关闭
+    //12：黄灯亮 42：黄灯闪烁 22：黄灯关闭
+    //14：绿灯亮 44：绿灯闪烁 24：绿灯关闭
+    //18：蜂鸣器响 48：蜂鸣器间断响 28：蜂鸣器关闭
+    TAlarmLed=class
+       private
+          Comm:TComm;
+          FCommName:STRING;
+          function IsError(var sError:string):boolean;
+       public
+          constructor Create; virtual;
+          destructor  Destroy; override;
+          procedure Close();
+          function Open(CommName:string;var sError:string):boolean;
+          function YellowLed(var sError:string):boolean; //黄灯
+          function RedLed(var sError:string):boolean;    //红灯
+          function GreenLed(var sError:string):boolean;  //绿灯
+          function CloseRedAndBuzzer(var sError:string):boolean;  //红灯 蜂鸣器响
+          function RedAndBuzzer(var sError:string):boolean;  //红灯 蜂鸣器响
+          function SparkGreen(var sError:string):boolean; //闪绿 蜂鸣器
+          function CloseAllLed(var sError:string):boolean;  //全关
+          function OpenBuzzer(var sError:string):boolean;   //蜂鸣器响
+          function CloseBuzzer(var sError:string):boolean;   //蜂鸣器关闭
+    end;
+
+var
+  AlarmLed:TAlarmLed;
+
+implementation
+
+constructor TAlarmLed.Create;   //参数固定
+begin
+  inherited;
+  WorkLog.Debug('创建报警灯');
+  Comm:=TComm.Create(nil);
+  comm.BaudRate:=9600;
+  comm.StopBits:=_1;
+  comm.ByteSize:=_8;
+  //comm.Parity:=None;
+end;
+
+destructor TAlarmLed.Destroy;
+begin
+  WorkLog.Debug('销毁报警灯');
+  Comm.Free;
+  inherited Destroy;
+end;
+
+function TAlarmLed.IsError(var sError:string):boolean;
+begin
+   TRY
+        If Comm.Handle=0 then
+        begin
+          WorkLog.Debug('重新打开报警灯通讯');
+          Comm.StopComm;
+          Comm.StartComm;  //打开端口要延时一段时间才能往缓存发送数据
+          Sleep(200);
+        end;
+        Result:=true;
+   EXCEPT
+        on e:Exception do
+        begin
+          Result:=false;
+          WorkLog.Error('报警灯出错:'+ChangeErrorInfo(E.Message));
+          sError:=ChangeErrorInfo('报警灯出错:'+ChangeErrorInfo(E.Message));
+        end;
+   END;
+end;
+
+function TAlarmLed.YellowLed(var sError:string):boolean; //黄灯
+begin
+   Result:=IsError(sError);
+   WorkLog.Debug('报警灯:黄灯');
+   Comm.SendHex('122124');
+end;
+
+function TAlarmLed.RedLed(var sError:string):boolean;    //红灯
+begin
+   Result:=IsError(sError);
+   WorkLog.Debug('报警灯:红灯');
+   Comm.SendHex('112224');
+end;
+
+function TAlarmLed.GreenLed(var sError:string):boolean;  //绿灯
+begin
+   Result:=IsError(sError);
+   WorkLog.Debug('报警灯:绿灯');
+   Comm.SendHex('142122');
+end;
+
+function TAlarmLed.RedAndBuzzer(var sError:string):boolean;  //红灯 蜂鸣器响
+begin
+   Result:=IsError(sError);
+   WorkLog.Debug('报警灯:红灯 蜂鸣器响');
+   Comm.SendHex('22241148');
+end;
+
+function TAlarmLed.CloseRedAndBuzzer(var sError:string):boolean;  //红灯 蜂鸣器响
+begin
+   Result:=IsError(sError);
+   WorkLog.Debug('报警灯:关闭红灯和蜂鸣器');
+   Comm.SendHex('12212428');
+end;
+
+function TAlarmLed.SparkGreen(var sError:string):boolean; //闪绿 蜂鸣器
+begin
+   Result:=IsError(sError);   //设备没有响一下,亮一下的功能，只能在线程中延时关闭
+   WorkLog.Debug('报警灯:闪绿 蜂鸣器');
+   Comm.SendHex('4448');
+   TThread.CreateAnonymousThread(
+      procedure
+      begin
+        Sleep(1000);
+        Comm.SendHex('2428');
+      end
+    ).Start;
+end;
+
+function TAlarmLed.CloseAllLed(var sError:string):boolean;  //全关
+begin
+   Result:=IsError(sError);
+   WorkLog.Debug('报警灯:全关');
+   Comm.SendHex('21222428');
+end;
+
+function TAlarmLed.OpenBuzzer(var sError:string):boolean;   //蜂鸣器响
+begin
+   Result:=IsError(sError);
+   WorkLog.Debug('报警灯:蜂鸣器响');
+   Comm.SendHex('18');
+end;
+
+function TAlarmLed.CloseBuzzer(var sError:string):boolean;   //蜂鸣器关闭
+begin
+   Result:=IsError(sError);
+   WorkLog.Debug('报警灯:蜂鸣器关闭');
+   Comm.SendHex('28');
+end;
+
+procedure TAlarmLed.Close();
+begin
+   WorkLog.Debug('关闭报警灯');
+   comm.StopComm;
+end;
+
+function TAlarmLed.Open(CommName:string;var sError:string):boolean;
+begin
+   TRY
+      WorkLog.Debug('打开报警灯:'+CommName);
+      Comm.StopComm;
+      comm.CommName:=CommName;
+      comm.StartComm;
+      Result:=true;
+   EXCEPT
+      on e:Exception do
+      begin
+        Result:=false;
+        WorkLog.Error('报警灯出错:'+ChangeErrorInfo(E.Message));
+        sError:=ChangeErrorInfo('报警灯出错:'+ChangeErrorInfo(E.Message));
+      end;
+   END;
+end;
+
+
+
+end.