Delphi 类似“闹钟”的应用程序

Question

我需要制作一个简单的闹钟应用程序，它不是播放声音，而是将文件上传到 ftp（弄清楚了后者）。 事实证明，在执行线程时，计时器是无效的。

到目前为止，我得到的是：

var
ttime     : tDateTime;
timerstr  : string;
timealarm : string;
aThread : TMyThread;
begin
aThread := tMyThread.Create(false);
ttime := Now;
timestr := FormatDateTime('hh:nn:ss', ttime);
timealarm := '09:30:30';
if timestr = timealarm then
aThread.Resume; //The thread will execute once and terminate;
end;

你们能想出另一种方法来使该命令以更有效的方式每天发生一次吗？

谢谢。

Answer 1

找到解决方案：CRON Scheduler

谢谢 LU RD和跑步者。

Answer 2

这是我的示例代码。需要注意的是，比较是在 TDateTime 值之间而不是字符串之间进行的，比较是 >= 而不是 =，当我不想要它，我正在跟踪它运行的最后一天。

procedure TForm1.Timer1Timer(Sender: TObject);
var
  currentTime: TDateTime;
  alarmTime: TDateTime;
begin
  // Time is a floating point value with everything to the left of the zero
  // representing the days, and everything to the right of the decimal
  // point representing time of day

  // Date() gets just the day portion, and lastDateExecuted is a global TDateTime
  // variable where we store the last day the program ran
  // We only go further if it didn't execute today
  if (Date > lastDateExecuted) then
  begin
    // Use Time() instead of Now() to get just the time portion and leave the day
    // portion at 0
    currentTime := Time;
    // Covert our alarm string to TDateTime instead of TDateTime to string
    alarmTime := EncodeTime(9, 30, 30, 0);
    // Is it time to run?
    // Greater than or equal comparison makes the application still run in case
    // our timer happens to miss the exact millisecond of the target time
    if currentTime >= alarmTime then
    begin
      // Immediately set the last run date to keep the next timer event
      // from repeating this
      lastDateExecuted := Date;
      // Do your work here
      DoMyThing;
    end;
  end;
end;

请务必将 lastDateExecuted 值初始化为 0 之类的值。

根据您的粒度使用计时器间隔。如果您希望它在目标时间的一分钟内运行，请将间隔设置为一分钟。如果您希望它尝试在一秒钟内运行，请将计时器间隔设置为一秒。

Answer 3

如果我理解正确的话，您需要知道的是如何识别何时达到特定时间以便执行该线程。事实上，计时器不一定是用于此目的的理想工具，因为计时器实际上并不实时触发（您可以将间隔设置为 500 毫秒，但在 1 分钟或 60,000 毫秒后，它不会如您所愿，完美排列到精确的 120 次执行）。然而，这并不意味着我们不能使用计时器。

在计时器内（或者您也可以为此创建另一个重复线程），您只需获取当前日期/时间即可。重要提示：确保此计时器或线程的间隔小于半秒 - 这将确保您的时间不会被错过。所以你会这样读它......

uses
  DateUtils;

.....

var
  HasExecuted: Bool;

.....

constructor TForm1.Create(Sender: TObject);
begin
  HasExecuted:= False;
end;

procedure TimerOnTimer(Sender: TObject);
var
  N, A: TDateTime;
  Thread: TMyThread;
begin
  N := Now;
  A := StrToDateTime('11/20/2011 15:30:30'); //24 hour time
  //If now is within 1 second over/under alarm time...
  if (N >= IncSecond(A, -1)) and (N <= IncSecond(A, 1)) then
  begin
    if not HasExecuted then begin
      HasExecuted:= True;
      aThread := tMyThread.Create(true);
      aThread.Resume; //The thread will execute once and terminate;  
    end;
  end;
end;

它可能不适合你，因为你正在使用 = 运算符。如果这个计时器跳过那 1 秒怎么办？一次执行可能是前第二次执行，下一次执行可能是第二个答案，在这种情况下，它不会将此表达式计算为等于 true。

另一方面，您的 TMyThread 构造函数 - 您是否重写了它？如果是这样，False 仍然是原来的 CreateSuspished 参数吗？如果是这样，那么您就是在告诉该线程在创建后立即执行。在此参数中传递 True 使其在创建时暂停，因为我看到您还在该参数下面调用 Thread.Resume （如果参数保持 false，则它已经恢复） 。另一方面，除非时间已到，否则您也不需要创建该线程（至少我假设）。为什么在检查之前就创建它？每次执行该计时器时，它都会创建其中一个（我假设这是根据需要负责上传的线程）。另外，请确保线程在完成后正确地释放自身，而不仅仅是卡住......

constructor TMyThread.Create(CreateSuspended: Bool);
begin
  inherited Create(CreateSuspended);
  FreeOnTerminate:= True; //Make sure it free's its self when it's terminated
end;

编辑：

我错过了一些东西 - 如果，比方说，这个间隔timer 为 1（应该更像是 200-400），那么在这段时间内它可以很好地连续执行多次。我修改了上面的代码以确保它只执行一次。注意：此代码是凭记忆键入的，而不是在 delphi 环境中键入的。