Timer offline laufen

[Uwe Raabe]

Zielzeit := now + 1; setzt die Zielzeit auf einen Tag nach jetzt. Ist das wirklich, was du willst? Wenn ja, musst du ca. 24 Stunden warten, bis die Zielzeit erreicht ist.

[chiller4fun1990]

@Uwe

Ja das ist schon richtig mit 24Stunden.

Zum testen kann ich ja in der Ini das Gespeicherte Datum ändern.

Allerdings hört der Countdown nicht auf zum rennen.
lg

[Sir Rufo]

In FormActivate ist ein Speicherleck, das solltest du auf jeden Fall mal schließen

[himitsu]

Ach egal .... im Button1Click ist das Try-Finally auch nicht grade "optimal" platziert.

Ich bin mir Sicher der Countdown fängt nur einmal von vorne an ... Man nehme einfach mal DateTimeToStr, um das zu prüfen.
Und ja FormActivate wird wirklich erneut gefeuert, da ja zwischenzeitlich eine Messagebox angezeigt und somit die Form den Fokus verlor, womit dann die neue zielzeit geladen wird und es 2*24 Stunden dauert, da der Button die Zeit ja schon geändert hatte.
Außerdem sollte man den Timer besser noch vor der MessageBox deaktivieren.

[DeddyH]

[OT] Werden Forenregeln eigentlich nicht mehr gelesen bzw. EULA-technisch einfach nur abgenickt? 2 * nacheinander pushen, Crossposts nicht verlinken usw. wird allgemein nicht gern gesehen. [/OT]

[SirThornberry]

@chiller4fun1990: Pushen ist erst nach 24 Stunden erlaubt. Innerhalb dieser Zeit gibt es die Edit-Funktion. Wie DeddyH bereits geschrieben hat, hast du diesen Nutzungsbedingungen auch bei der Anmeldung zugestimmt.

[chiller4fun1990]

Hallo,
Merke gerade wenn ich den Countdown starte, Programm beende und neustarte das nichts Passiert.

Wenn ich folgenden Code benutze wird die Restzeit nach einen Neustart des Programms zwar richtig angezeigt und runtergezählt, allerdings rennt der timer auch wieder.

Delphi-Quellcode:

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, IniFiles, ExtCtrls, StdCtrls;

type
  TForm1 = class(TForm)
    Button1: TButton;
    Label1: TLabel;
    Timer1: TTimer;
    procedure Button1Click(Sender: TObject);
    procedure Timer1Timer(Sender: TObject);
    procedure FormActivate(Sender: TObject);
      private
    Zielzeit: TDateTime;
    { Private declarations }
  public                        
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
var
  ini: TIniFile;
  filename: String;
begin
  filename := ExtractFilePath(ParamStr(0)) + 'zeit.ini';
  ini := TIniFile.Create(filename);


  Zielzeit := now + 1;  
  

  try

    ini.WriteDateTime('Daten','Zielzeit',Zielzeit);
         finally
      ini.Free;
  end;



  Timer1.Enabled:=true;

end;

procedure TForm1.Timer1Timer(Sender: TObject);
var
  ini: TIniFile;
  filename: String;
begin
  filename := ExtractFilePath(ParamStr(0)) + 'zeit.ini';
  ini := TIniFile.Create(filename);

  Label1.Caption:= TimeToStr(zielzeit - now);


  
  if now >= Zielzeit then

  begin
  Timer1.enabled:=false;
     end;


end;


procedure TForm1.FormActivate(Sender: TObject);
var
  ini: TIniFile;
  filename: String;
begin
  filename := ExtractFilePath(ParamStr(0)) + 'zeit.ini';
  ini := TIniFile.Create(filename);

Zielzeit:=StrtoDateTime(ini.ReadString('Daten','Zielzeit',''));
timer1.Enabled:=true;
  end;

Was mach ich falsch damit der Countdown immer wieder von neu anfängt?


Nachtrag://

Wenn ich aus
Label1.Caption:= TimeToStr(zielzeit - now); das hier mach:
Label1.Caption:= DateTimeToStr(zielzeit - now); und das Programm starte, ist irgendwie das Datum verkehrt.
Hier mal ein Screen davon:

http://www.pic-upload.de/view-11082279/timer.jpg.html