Datum/Zeit an Datenlogger senden

[Delphieinsteiger]

Hallo

Ich habe da ein kleines Problem und wollte Fragen ob jemand einen Tip für mich hätte!
Folgendes:
Ich möchte einen selbstgebauten Datenlogger die Zeit und das Datum übermitteln.Das ganze soll so Aussehen das ich den Logger an einer bestimmten Zeit auf Buttondruck aktivieren möchte(Er nimmt Temperaturen auf).z.B gebe ich in einem Editfeld ein 10.09.2007 13:02 und drücke danach meinem Aktivierungsbutton der diese zeit dann dem Logger übergibt.Also müsste ich einmal die aktuelle Zeit/Datum übergeben + die Zeit/Datum ab die er mit dem Auslesen beginnen soll.Übertragen werde ich das ganze mit der SerialNG Komponente.Gut währe es außerdem wenn ich das ganze noch in Integer-Werte wandeln könnte weil ich nicht unbedingt mehr als 10 bytes Speicherplatz zur Verfügung habe.Würde mich über jeden Vorschlag freuen.

[DGL-luke]

wenn dein selbstgebauter datenlogger n Timer-modul hat (haben soll?!), einfach die countdown-ticks rüberschicken. ein einziger Integer, zzgl. commandocodes.

[messie]

Schau Dir mal in der Hilfe die Funktion DateTimeToFileDate an - das Betriebssystem arbeitet auch mit Integer-Datum.

Delphi-Quellcode:

procedure TForm1.TntButton1Click(Sender: TObject);
var
  i : integer;
begin
  i := DateTimeToFileDate(now);
  ShowMessage(IntToStr(i));
  ShowMessage(FormatDateTime('dd.mm.yy  hh:mm:ss',FileDateToDateTime(i)));
end;

Grüße, Messie

[Delphieinsteiger]

Danke für die schnellen Antworten!
Nen Timermodul habe ich leider nicht eingebaut,danke aber trotzdem.Der Vorschlag von Messie trifft mein Problem genau.So kann ich die aktuelle Systemzeit übergeben.Brauche dann ja nur noch herausfinden wie man den Befehl ändern muss wenn ich den Logger ein wenig später als die aktuelle Zeit aktivieren möchte.

Also danke nochmal und gruß!

[messie]

Die Zeit ist in Delphi eine Fließkommazahl, wo ein Tag 1 ist. Wenn Du also später anfangen willst, setzt Du

Delphi-Quellcode:

DateTime := now + (1/24) //eine Stunde später
DateTime := now + (1/1440) // eine Minute später
DateTime := now + (1/86400) //eine Sekunde später
DateTime := now + 5 //fünf Tage später

ein.

Aus dem Eingabefenster nimmst Du

Delphi-Quellcode:

DateTime := now + StrToDateTime(InputBox('Eingabe','in wieviel Stunden willst Du anfangen?','0')); //ungetestet

Grüße, Messie

[Delphieinsteiger]

Vielen Dank Messie!

Hast mir echt weitergeholfen. :P

Viele Grüße vom Delphieinsteiger!