Automatische Update von Zeit zur zeit

[thomas2009]

Hallo

die Update bei mir funktioniert nur Manuel, indem der Anwender über Menu "Hilfe"
auf Update Online überprüfen anklickt

Aber viele Anwender machen das nicht, darum möchte ich zum Beispiel einmal in der Woche, dass das Programm von alleine nach Update sucht

Was schlägt Ihr vor ?

Ich möchte den System-Datum in txt oder in ini Datei speichern und dann vergleichen

[mkinzler]

-Dienst
-Geplanter Task
-aus dem Programm heraus

Zitat:

Ich möchte den System-Datum in txt oder in ini Datei speichern und dann vergleichen

Gute Idee. Was ist dann das Problem?

[jaenicke]

Dabei musst du dann aber auch die Benutzerrechte beachten, denn ab Windows 2000 kannst du nicht einfach so in das eigene Programmverzeichnis schreiben.
Dazu musst du den Updater mit Adminrechten starten, am einfachsten geht das ohne Tricks mit einem Zusatzprogramm als Updater, das ein Manifest für Adminrechte enthält.

[thomas2009]

Wie kann ich vergleichen zwischen Values ?

Delphi-Quellcode:

altdatum:='01.03.09';
neudatum:= FormatdateTime('dd.mm.yy',now);
diff:= ???

[quendolineDD]

neudatum - altdatum :-)

[Keldorn]

Hallo

warum als String vergleichen? Tdate sind doch Double-Werte, die du auch problemlos speichern kannst. Der Vorkomma-Wert sind die Tage, da läßt sich doch prima damit rechnen.

Gruß Frank

[jaenicke]

Du musst wenn, dann den Zeitwert vergleichen, nicht die entsprechenden Strings. Das kannst du normal, weil das nur normale Zahlen sind.

Aber eigentlich willst du doch wohl die Versionen vergleichen, oder? Also z.B. 1.1.2.8 und 1.2.0.0 zum Beispiel.
Dafür habe ich hier mal einen Code geschrieben:
http://www.delphi-forum.de/viewtopic...=547664#547664

[thomas2009]

Zitat:

Zitat von jaenicke

Du musst wenn, dann den Zeitwert vergleichen, nicht die entsprechenden Strings. Das kannst du normal, weil das nur normale Zahlen sind.

Aber eigentlich willst du doch wohl die Versionen vergleichen, oder? Also z.B. 1.1.2.8 und 1.2.0.0 zum Beispiel.
Dafür habe ich hier mal einen Code geschrieben:
http://www.delphi-forum.de/viewtopic...=547664#547664

wie kann ich das tDateTime in Tagen vergleichen ?

>>Aber eigentlich willst du doch wohl die Versionen vergleichen
Nein

[mkinzler]

Wie meinst du das mit Tagen? DateUtils.DaysBetween()

[nuclearping]

Zitat:

Zitat von thomas2009

Was schlägt Ihr vor ?

Nachdenken, rumexperimentieren, Fehlschläge akzeptieren, neue Wege finden ...

[thomas2009]

Zitat:

Zitat von mkinzler

Wie meinst du das mit Tagen? DateUtils.DaysBetween()

kannst Du mir eine beispiel geben ?
ich habe nun diese Lösung :

Delphi-Quellcode:

procedure TForm1.Button3Click(Sender: TObject);
var
  Dat1: TDateTime;
  Dat2: TDatetime;
begin
  Dat1:= Now();
  Dat2:= StrToDateTime(Edit1.Text);
  edit3.Text:= inttoStr(round((Dat1)-(Dat2)));

end;

Der Code gibt mir den Unterschied in Tagen

[mkinzler]

Delphi-Quellcode:

Tage := DaysBetween( Now(), Datum1);

[thomas2009]

Zitat:

Zitat von mkinzler

Delphi-Quellcode:

Tage := DaysBetween( Now(), Datum1);

Ich bekomme keine Tage sondern 03.03.1900

Delphi-Quellcode:

//uses  DateUtils;
procedure TForm1.Button4Click(Sender: TObject);
begin
//Tage := DaysBetween( Now(), Datum1);
Caption := DateToStr(Round(DaysBetween( Now(), StrToDateTime('01.01.09'))));
end;

[mkinzler]

Tage ist ja auch ein Integer. Was dir dein Delphi auch gesagt haben wird.

[thomas2009]

Zitat:

Zitat von mkinzler

Tage ist ja auch ein Integer. Was dir dein Delphi auch gesagt haben wird.

Stimmt
also so

Delphi-Quellcode:

Caption := IntToStr(Round(DaysBetween( Now(), StrToDateTime('01.01.09'))));

Danke

[mkinzler]

Das Round() ist dann auch unnötig