Forum: Multimedia
Delphi
by marabu,
15. Jul 2006
Natürlich ist das möglich. Läuft meine Demo bei dir nicht?
Bevor du meinen Code verbaust, solltest du ihn Zeile für Zeile analysiert haben. Du musst ihn so gut verstehen, dass du ihn zur Not auswendig wieder hinschreiben könntest, ansonsten besteht die Gefahr, dass du lauter copy-and-paste Fehler produzierst.
Mein Konzept in der Demo ist die pauschale Deaktivierung des Timers im...
Forum: Multimedia
Delphi
by marabu,
15. Jul 2006
Hallo Daniel,
dein in Beitrag #23 gezeigter Code ist in Ordnung, dein Problem scheint woanders zu liegen. Damit man dir helfen kann, musst du den relevanten Quellcode zeigen, den Input und den (falschen und erwarteten) Output beschreiben. Am Besten klappt das, wenn du deinen Code funktional entworfen hast. Wenn du alles in irgendwelche event handler reinquetschst, dann wird die Beschreibung...
Forum: Multimedia
Delphi
by marabu,
14. Jul 2006
Vergiss meinen Beitrag #24 - du arbeitest ja mit Datumsanteilen, da geht das so nicht. Der gezeigte Code sollte mit Now = 23:30 (heute) und Alarm = 00:30 (morgen) zurecht kommen. Kann es sein, dass dein Problem irgendwo anders auftritt?
marabu
PS: Vergiss diesen Beitrag auch ...
Forum: Multimedia
Delphi
by marabu,
14. Jul 2006
Hallo Daniel,
vielleicht reicht dir schon das:
dtRemaining2 := dtAlarm2 - Now;
if dtRemaining2 < 0 then
dtRemaining2 := dtRemaining2 + 1;
Grüße vom marabu
Forum: Multimedia
Delphi
by marabu,
5. Jun 2006
Ist vielleicht besser, wenn du deinen Code in der Prozedur unterbringst, welche ShowRemainingTime() aufruft:
procedure TDemoForm.SingHaleluja;
begin
fileopen := Label2.caption; // ??
with MediaPlayer1 do
begin
Filename := OpenDialog1.Filename;
Open;
Forum: Multimedia
Delphi
by marabu,
5. Jun 2006
Hallo Daniel,
die reale Zeit (Now) wird wohl in absehbarer Zeit nicht Null werden. Probiere es mal so:
begin
if dtRemaining < 0 then
begin
fileopen:= Label2.caption;
with MediaPlayer1 do
Forum: Multimedia
Delphi
by marabu,
3. Jun 2006
Hallo Daniel,
ich würde es so oder ähnlich machen - nur den Rechenteil, nicht die Ablaufsteuerung:
procedure TDemoForm.???
var
dtAlarm: TDateTime;
begin
dtAlarm := StrToTime(edhours.Text + ':' + edmin.Text + ':' + edseconds.Text) + StrToDate(cbdatum.Text);
Forum: Multimedia
Delphi
by marabu,
1. Jun 2006
Hallo.
Du hast einen dicken Fehler in deiner Rechnung:
Uhrzeit_Verbleib := Time - Uhrzeit_ende;
Du rechnest hier mit TDateTime-Werten. Diese Werte geben den Zeitabstand zu einem Referenzdatum in Tagen an. Nur mit den Uhrzeitanteilen -- Time und UhrzeitEnde sind Werte kleiner 1 -- rechnest du effektiv mit einer Uhrzeit am 30. Dez 1899, was gewiss nicht dein Wunsch ist. Um den zeitlichen...
Forum: Multimedia
Delphi
by marabu,
28. Mai 2006
Andere Reihenfolge und ein Leerzeichen:
if now >= strToDateTime(WeckDatum + ' ' + WeckTime) then
Grüße vom marabu