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/readyThread.pas | 126 ++++++++++++++++++++++++++++++++++++++++++
1 files changed, 126 insertions(+), 0 deletions(-)
diff --git a/src/thread/readyThread.pas b/src/thread/readyThread.pas
new file mode 100644
index 0000000..ad63aad
--- /dev/null
+++ b/src/thread/readyThread.pas
@@ -0,0 +1,126 @@
+{------------------------------------------------------------------------------}
+{单元名称：ReadyThread.pas }
+{模块名称：准备线程 }
+{模块说明：线程创建后自动运行，完成粮种下发 }
+{建立日期：2023-11-08 }
+{修改修改：2023-11-08 }
+{版权所有：李良庭 liangtingli@outlook.com }
+{------------------------------------------------------------------------------}
+unit readyThread;
+
+interface
+
+uses
+ Windows, Classes, SysUtils, PubUtils, DateUtils, ActuatorLib;
+
+type
+ TReadyThread = class(TThread)
+ private
+ { Private declarations }
+ t_ret : Integer; //返回值
+ t_nDatas : array[0..3] of Word; //暂存水分仪数据
+
+ procedure UpdateStartClock;
+ procedure UpdateStopClock;
+ procedure UpdateGrain;
+ procedure UpdateGrainError;
+ protected
+ procedure StartReady();
+ procedure Execute; override;
+ public
+ constructor Create(param: Boolean=false);
+ procedure Terminate;
+ end;
+
+implementation
+
+uses
+ uMain, uDM, uInit, uSaveData, Global, log4me;
+
+{ TReadyThread }
+//--------线程初始化----------------------------------------
+//线程初始化
+constructor TReadyThread.Create(param: Boolean=false);
+begin
+ //线程停止后自动释放
+ inherited Create(param); //设置线程运行, False-自动运行, True-手动启动
+ FreeOnTerminate := True; //设置线程退出自动销
+ //返回值
+ t_ret := 0;
+ //初始化水分仪数组
+ t_nDatas[0] := 0;
+ t_nDatas[1] := 0;
+ t_nDatas[2] := 0;
+ t_nDatas[3] := 0;
+end;
+
+//线程销毁事件
+procedure TReadyThread.Terminate;
+begin
+ inherited;
+ m_ReadyThread := 0; //清理线程句柄
+end;
+
+//--------界面处理函数--------------------------------------
+//计数器开始
+procedure TReadyThread.UpdateStartClock;
+begin
+ //启动检测计时器动画
+ glStartTest := GetMillisecondTimeStamp;
+ dm.tmManTest.Enabled := true;
+end;
+
+//计数器结束
+procedure TReadyThread.UpdateStopClock;
+begin
+ dm.tmManTest.Enabled := false;
+ frmMain.mtManClock.Value := 0;
+end;
+
+//正常显示--修改粮种信息
+procedure TReadyThread.UpdateGrain;
+begin
+ //更新界面信息
+ frmMain.lblManTest.Caption := '粮食品种修改成功，准备就绪！';
+end;
+
+//出错显示--修改粮种出错
+procedure TReadyThread.UpdateGrainError;
+begin
+ //更新界面信息
+ frmMain.lblManTest.Caption := '粮食品种修改失败，水分仪故障！';
+end;
+
+//------- 执行线程 ----------------------------------------
+procedure TReadyThread.StartReady();
+begin
+ //返回值
+ t_ret := 0;
+ //下发粮种修改指令
+ Synchronize(UpdateStartClock);
+ t_ret := SendCommands(hWrDev, WR_GOODS, Grain.Code, 3); //这里指令阻塞时间=3s
+ Synchronize(UpdateStopClock);
+ if t_ret<0 then begin
+ Synchronize(UpdateGrainError);
+ Exit;
+ end
+ else
+ Synchronize(UpdateGrain);
+end;
+
+//------- 线程入口 ----------------------------------------
+procedure TReadyThread.Execute;
+begin
+ { Place thread code here }
+ try
+ //执行准备动作
+ StartReady();
+ //防止线程阻塞CPU
+ Sleep(1);
+ finally
+ //手动退出线程
+ m_ReadyThread := 0;
+ end;
+end;
+
+end.
--
Gitblit v1.9.3