Ok, danke für deine Hilfe
nun, jetzt kommt das große ABER:
Es will auch so nicht so, wie wir wollen. Ich denke, dass das Prog so rechnet:
Code:
if (tiNow >= tiWecker) and (tiNow < (tiWecker+tiDiff)) then MediaPlayer1.Play
WENN (jetzige Zeit größer als Weckzeit aus INI) UND (jetzige Zeit kleiner als Weckzeit+Differenz) ist, dann Spiele lied ab...
das wäre vollkommen richtig. Er will nur nicht. Kann es sein, dass es an:
-ini.Readtime,
-If-Anweisung,
-Timerintervall (bei mir 1000),
-an Inifile selbst,
-Stringumrechnung
liegt? Hier nochmal mein Code, so wie er (berichtigt ist):
Code:
procedure TForm1.Timer1Timer(Sender: TObject);
var
tiWecker : TTime;
tiDiff : TTIme;
tiNow : TTIme;
ini : TInifile;
time1 : TTime;
time2 : TTime;
begin
ini:=Tinifile.Create('C:\Programme\SPM-APSS\settings.ini');
try
time1:=ini.Readtime('Wecker','Time1',time);
time2:=ini.Readtime('Wecker','Time2',time);
tiwecker := Time1;
tidiff := Time2;
tiNow := time;
if (tiNow >= tiWecker) and (tiNow < (tiWecker+tiDiff)) or (tiNow then MediaPlayer1.Play;
finally
ini.free;
end;
end;
end.
Achso, mein Ereignis liegt im OnTimer Ereignis.
Hm. kannst du es mal bitte versuchen, bei dir zu coden. Auch, wenn's geht mit Ini-File-Auslesung.
Da hast du deine Herausforderung *g*
Achso, danke nochmal. Bekommst auch mein ganzes Projekt, wenn du willst (nein, ist nicht nur der wecker *g*)
Achso, noch eins:
Was sind Delphi Tags. Werde sie benutzen, wenn ich weiss, was das ist
Ciao