Ok, Christian...
du/ich oder wir zusammen haben es geschafft. Mein Wecker geht!!! (Auch im großen Projekt)... Der Fehler war.. hm.. keine Ahnung. Habe deinen Code von Seite 1 im Forum genommen und mit entsprechnder Ini-Angaben in das eine neue Programm eingefügt. Ging ja einwandtfrei... Nun kam mir die Idee, diesen Code das Projekt einzufügen und bitte frag mich nicht warum, aber es ging. Änderung gleich 0, aber es geht.
Hier nochmal für ALLE, die an diesem Problem hängen...
Delphi-Quellcode:
procedure TForm1.Timer1Timer(Sender: TObject);
var
tiWecker : TTime;
tiDiff : TTime;
tiNow : TTime;
time1 : String;
time2 : String;
ini : TInifile;
begin
ini:=TInifile.Create('C:\NAMEDERINI);
try
time1 :=ini.ReadString('Wecker','time1',text);
time2 :=ini.ReadString('Wecker','time2',text);
tiWecker := StrToTime(time1);
tiDiff := StrToTime(time2);
tiNow := Time;
if (tiNow >= tiWecker) and (tiNow < (tiWecker+tiDiff)) then MediaPlayer1.Play;
finally
ini.free;
end;
end;
end.
Christian...
wenn ich einen Member krönen könnte, würde ich bei dir Anfangen. Grund?
-unendliche (nervliche) Belastbarkeit
- -"- Hilfsbereitschaft
-und alles Weitere, was einen neten Menschen/Programmierer auszeichnet...
(
PS: Wenn du einen kleinen Lohn haben willst, und du dich als "BETA-TESTER" für mein Projekt bereiterklärst, dann melde dich doch einfach mal bei mir. Ich denke, es wird dir gefallen...
)
In diesem Sinne:
und
DANKE, THANKS, MERCI, GRACIE ...
Ciao
Sascha