Probleme mit DB und Schleife

[mkinzler]

Wenn die Abarbeitung länger dauert, könnte es passieren (und passiert scheinbar auch), dass es 11 Minuten sind. Dann greift der Vergleich auf Gleichheit nicht mehr. Auf Größer aber schon. Dann kannst du dir auch das SameTime() sparen

[aaaaaaaaaa_10]

if (StrToTime(WL.Strings[1])-StrToTime(Time)) > StrToTime('00:01:00') then Also so, ja?

Da schreibt er jetzt gar nix mehr rein.

[mkinzler]

if (StrToTime(WL.Strings[1])-StrToTime(Time)) >= 600 then sollte reichen

[hazard999]

nein.

600 wären 600 Tage.

10 / 24 / 60 wären dann 10 Minuten.

[aaaaaaaaaa_10]

An sich schreibt er jetzt wenigstens etwa alle z.B. 2 Minuten einen Wert in die Datenbank,aber die sind ja nun nicht genau 2 Minuten auseinander. Bsp :
07:21:35
07:23:40
07:25:40
07:27:45
usw.

Ist natürlich nicht so gut. Und nun?

[alzaimar]

Rechne die Zeit in Sekunden um und vergleiche dann:

Delphi-Quellcode:

Function TimeToSeconds (aTime : TDateTime) : Integer;
Begin
  Result := Trunc (0.5 + Fract(aTime)*86400);
End;

Function TimeToMinutes (aTime : TDateTime) : Integer;
Begin
  Result := Trunc (0.5 + Fract(aTime)*1440);
End;

...
  If TimeToSeconds(Now) - TimeToSeconds(LastTime) >= 120 Then Begin // 120 Sekunden = 2 Minuten
    LastTime := Now;
    DoSomething;
  End;

// Oder 

  If TimeToMnutes(Now) - TimeToMinutes(LastTime) >= 2 Then Begin 
    LastTime := Now;
    DoSomething;
  End;

[divBy0]

Ich kapiere das nicht...

Was spricht denn hier gegen den Einsatz von TTimer? Ein Intervall auf 2 Minuten und fertig...

[aaaaaaaaaa_10]

Hallo,
hab das jetzt mit Timer probiert.

Delphi-Quellcode:

  //Timer für Datenbank zur Laufzeit erstellen
          MyTimer3 := TTimer.Create(nil);
          MyTimer3.Enabled := True;
          MyTimer3.Interval := 120000;    // alle 2 Minuten die Datenbank aktualisieren
          MyTimer3.OnTimer :=  DatenbankFuellen;

Delphi-Quellcode:

procedure TFiles.DatenbankFuellen(Sender: TObject);
var Werte, Datei  : string;
    i : integer;
    WerteList, WL : TStringList;
begin
      Datei := extractfilepath(application.exename)+'Mom10min_'+Kennung+'.txt';
      WerteList := TStringList.Create;
      WL        := TStringList.Create;
      try
        WerteList.LoadFromFile(Datei);
        if WerteList.Count >=2 then                 
        begin
          Werte := WerteList.Strings[WerteList.count-1];   
          WL.Delimiter := #9;
          WL.DelimitedText := Werte;                                
          if count = WL.Count then
          begin
            with t do      
            begin                                                    
                    t.Open;
                    t.Append;
                    for i := 0 to WL.Count - 1 do
                    begin
                      t.Fields[i].Value := WL.Strings[i];
                    end;
                    t.Post;
                    t.Close;     
            end;
          end;

         WerteList.SaveToFile(Datei);
        end;
      finally
        Free;
        WerteList.Free;
        WL.Free;
      end;
end;

Das Problem dabei, dass er dann erst nach 2 Minuten den ersten Wert reinschreibt. Er soll aber sofort anfangen.

[himitsu]

du kannst DatenbankFuellen auch z.B. auch noch über OnCreate der Form aufrufen, dann fängt er sofort an.

[aaaaaaaaaa_10]

Was muss denn bei dem TimerEreignis in Datenbankfuellen(?). Da steht ja Sender:TObject drin,aber beim Aufruf? t für die Datenbank?