-
Forum: Multimedia
Delphi
by danku,
17. Jul 2006
es sieht so aus, als hab ich erst mal ne lösung gefunden.
meld mich dann noch mal.
-
Forum: Multimedia
Delphi
by danku,
15. Jul 2006
ich hab mir mal den bsp.progg heruntergeloadet. du hast mich auf eine idee gebracht.
das mit dem "kalenderblatt" war mir klar. nur wusste ich noch nicht wie diese komponente heißt.
ich will ja nichts sagen: aber kann es sein das bei dir ein fehler im code ist?
ich habe das mal bei mir getestet und bei mir setzt der countdown nach 4sec aus, d.h. es wird nicht weiter nach unten gezählt
...
-
Forum: Multimedia
Delphi
by danku,
15. Jul 2006
kann mir einer helfen?
das proggie ist fertig, bis auf das nach 24uhr( 0uhr) problem.
-
Forum: Multimedia
Delphi
by danku,
14. Jul 2006
geht doch noch nicht 100pro,
denn jedesmal springt der sobald es größer 00:00:00 ist,
auf 23:##:## zurück.
-
Forum: Multimedia
Delphi
by danku,
14. Jul 2006
schön wärs aber passt leider nicht.
sobald die stunden-anzeige über '00':'00':'00' geht,
tut sich nichts.
ich habe im onchange stehen: if strtoint(edende.text) =24
then edende.text:='00';
denn 24:##:## nimmt der ja eh nicht an
Edit: ich habs gelöst ;)
-
Forum: Multimedia
Delphi
by danku,
14. Jul 2006
hm. ich habe ein problem wenn die real-time vor 24:00 (00:00) ist und der benutzer als weckzeit bspw. 00:30 einstellt. wie kann ich das problem wo in der methode lösen?
procedure Tfmclock.timerzeitTimer(Sender: TObject);
...
//////// ZEITDAUER IN MIN///////////////////////////////////////
procedure ShowRemainingTime2(dtAlarm2: TDateTime);
var s: String;
...
-
Forum: Multimedia
Delphi
by danku,
5. Jun 2006
das lied wird nicht geladen.
sobald ich if dtRemaining .. außerhalb schreib
if Now < dtAlarm then
ShowRemainingTime(dtAlarm);
if dtRemaining... ,
wirkt der timer auf die memofelder immer als 0. (also die memofelder haben einen 0-wert
-
Forum: Multimedia
Delphi
by danku,
5. Jun 2006
das geht aber nicht in deiner prozedur ..ShowRemainingTime(dtAlarm: TDateTime);
-
Forum: Multimedia
Delphi
by danku,
5. Jun 2006
ich hab noch in der showremainingtime procedure
das dazugefügt:
if Now =(dtRemaining) then begin
fileopen:= Label2.caption;
With MediaPlayer1 do begin
Filename := opendialog1.filename;
Open;
Play;
-
Forum: Multimedia
Delphi
by danku,
3. Jun 2006
hm so geht das.
bissel kürzer und effektiver.
danke
-
Forum: Multimedia
Delphi
by danku,
3. Jun 2006
Also würdest du das so machen?
...
function DateTimeToStr2(dt: TDateTime; daySep: string): string;
begin
Result := Format('%d%s%s', )
end;
begin
-
Forum: Multimedia
Delphi
by danku,
1. Jun 2006
hab das problem weckzeit in abhängigkeit vom weckdatum schon seit tagen versucht zu lösen und probiert.
obwohl ich dem timer zuweise:
WeckTime:= edhours.Text + ':' + edmin.Text + ':' + edseconds.Text ;
WeckDate:= cbdatum.Text;
if TimeToStr(Now) =WeckTime then begin
//now >= strToDateTime(WeckTime + WeckDate) selbst geht auch nicht für mein prob
...
DecodeTime(Time, aStd, aMin, aSec,...
-
Forum: Multimedia
Delphi
by danku,
31. Mai 2006
das passt aber mit dem datum immer noch nicht richtig.
wenn das weckdate (bsp: 06:45:00) ist und die relle zeit 14:15,
dann nimmt der ja anhand
now >= strToDateTime(WeckDatum + ' ' + WeckTime)
automatisch den nächsten tag an und in den tmemo (3 felder in stunden, minuten, sekunden)
wird die differenz geschrieben, aber sobald man eben nicht das datum von morgen sondern bspw. erst in 3tagen...
-
Forum: Multimedia
Delphi
by danku,
28. Mai 2006
if now >= strToDateTime(WeckTime + WeckDatum) then
ist vom ansatz her i.o. aber das now hat trotzdem zu der rechte seite (>=) einen zeitkompalierfehler. *wortneuschöpfung :roll:
fehlermeldung: *ist keine gültige datums und urhzeitangabe*
WeckTime:= edhours.Text + ':' + edmin.Text + ':' + edseconds.Text ;
WeckDate:= cbdatum.Text; //die combobox is stressing ...
-
Forum: Multimedia
Delphi
by danku,
27. Mai 2006
hat einer einen vorschlag? :gruebel:
-
Forum: Multimedia
Delphi
by danku,
26. Mai 2006
das steht in dem timer:
(update)
WeckTime:= edhours.Text + ':' + edmin.Text + ':' + edseconds.Text ;
WeckDate:= cbdatum.Text;
}
//**********Dauer vorgegeben
-
Forum: Multimedia
Delphi
by danku,
25. Mai 2006
naja ich will in dem memo die zeitdifferenz von wecktime und realer time wiedergeben.
wenn z.b. die weckzeit in 5min ist, dann soll der das so in die 4tmemos schreiben:
05:00
04:59... until 00:00
jo habs hier im letzten eintrag gefunden:
http://www.delphipraxis.net/internal_redirect.php?t=62196&highlight=differenz+datum
-
Forum: Multimedia
Delphi
by danku,
25. Mai 2006
var zeit1,zeit2:TTime;
Pufferhours,Pufferminutes,Pufferseconds:integer;
...
zeit1:=(Now);
zeit2:=strtotime(wecktime);
Pufferhours:= HoursBetween(zeit1,Zeit2);
Pufferminutes:= MinutesBetween(zeit1,Zeit2);
Pufferseconds:= SecondsBetween(zeit1,Zeit2);