From 868daf94f29ce1ffdd799a68c07bb668cd373bcd Mon Sep 17 00:00:00 2001
From: HP\李良庭 <liliangting@lanpucloud.cn:1111>
Date: 星期二, 08 七月 2025 11:49:03 +0800
Subject: [PATCH] 提交分辨率自适应版本V3.1.0.1500
---
src/thread/statusThread.~pas | 87 +++++++++++++++++++++++++++++++++++++++++++
1 files changed, 87 insertions(+), 0 deletions(-)
diff --git a/src/thread/statusThread.~pas b/src/thread/statusThread.~pas
new file mode 100644
index 0000000..11e7a01
--- /dev/null
+++ b/src/thread/statusThread.~pas
@@ -0,0 +1,87 @@
+{------------------------------------------------------------------------------}
+{单元名称：statusThread.pas }
+{模块名称：仪器状态检测线程 }
+{模块说明：线程创建后自动运行，读水分仪错误代码后退出 }
+{建立日期：2025-01-20 }
+{修改修改：2025-01-20 }
+{版权所有：李良庭 liangtingli@outlook.com }
+{------------------------------------------------------------------------------}
+unit statusThread;
+
+interface
+
+uses
+ Classes, SysUtils, PubUtils, ActuatorLib;
+
+type
+ TStatusThread = class(TThread)
+ private
+ { Private declarations }
+ t_ret : Integer; //返回值
+ procedure UpdateCaption;
+ protected
+ procedure readStatus();
+ procedure Execute; override;
+ public
+ constructor Create(param: Boolean=false);
+ procedure Terminate;
+ end;
+
+implementation
+
+uses
+ uMain, Global, log4me;
+
+{ TStatusThread }
+
+//--------线程初始化----------------------------------------
+//线程初始化
+constructor TStatusThread.Create(param: Boolean=false);
+begin
+ //线程停止后自动释放
+ inherited Create(param); //设置线程运行, False-自动运行, True-手动启动
+ FreeOnTerminate := True; //设置线程退出自动销
+ t_ret := 0; //返回值
+end;
+
+//线程销毁事件
+procedure TStatusThread.Terminate;
+begin
+ inherited;
+ m_StatusThread := 0; //清理线程句柄
+end;
+
+//--------界面处理函数--------------------------------------
+//更新仪器错误代码到自动/手动检测界面
+procedure TStatusThread.UpdateCaption;
+begin
+ //
+end;
+
+//------- 执行线程 ----------------------------------------
+procedure TStatusThread.readStatus();
+begin
+ //返回值
+ t_ret := 0;
+
+ //读取水分仪错误代码指令
+ t_ret := SendCommands(hWrDev, WR_DETECT, 0, glTime2);
+
+ //输出计算含水率
+ if t_ret<0 then
+ Synchronize(UpdateCaption);
+end;
+
+//------- 线程入口 ----------------------------------------
+procedure TStatusThread.Execute;
+begin
+ { Place thread code here }
+ try
+ readStatus();
+ Sleep(1);
+ finally
+ Terminate;
+ end;
+end;
+
+end.
--
Gitblit v1.9.3