mediaplayer1 datei abspielen zur korrekten zeit

[danku]

Das Problem liegt bei if Now =StrToDateTime(WeckTime)

Delphi-Quellcode:

// 3 Editfelder
WeckTime:= edhours.Text + ':' + edmin.Text + ':' + edseconds.Text ;


//***********************************//
//Musikdatei via topendialog
  if cbsignal.checked  Then
  else begin
      cbsignal.Checked:=true;
      opendialog1.Execute;
      label2.Caption:=opendialog1.FileName;
      end;


Warum öffnet sich opendialog1 2x?
//**********************************//


//Radiogroup mit 3 Editfeldern
  if (rgzwei.Checked = true) then
  begin 
  //wenn nicht opendialog1
      if not (canvas.TextWidth(label2.Caption)>1) Then   
          begin
         // timer.Enabled:=false;
          opendialog1.Execute;
         // timer.Enabled:=true;
          end
          else begin
             if Now =StrToDateTime(WeckTime) then begin
              fileopen:= Label2.caption;
              With MediaPlayer1 do begin
               Filename := opendialog1.filename;
               Open;
               Play;
               timer.Enabled:=false;
               end;
             end
          end;
       end
    end;

[jakobwenzel]

Aha...
Dürften wir jetzt außer dem Ort des Problems noch das Problem selber erfahren?

[inherited]

Hi
Schonmal
  StrToTime(str); probiert

im übrigen gehörst du für deine Formatierung geteert und gefedert

€dit: bestimmt nicht

Zitat:

//Musikdatei via topendialog1

sondern wohl eher via TOpenDialog ODER OpenDialog1

[danku]

Zitat von jakobwenzel:

Aha...
Dürften wir jetzt außer dem Ort des Problems noch das Problem selber erfahren?

naja das problem ist das:
obwohl der die weckzeit mit der realen zeit vergleicht und diese übereinstimmen,
spielt die datei via topendialog nicht.

Zitat von inherited:

im übrigen gehörst du für deine Formatierung geteert und gefedert

€dit: bestimmt nicht

Zitat:

//Musikdatei via topendialog1

sondern wohl eher via TOpenDialog ODER OpenDialog1

oh man, die 1. ist die charakterisierung dafür das es der erste topendialog ist
das ist mir in der eile passiert zumal ich weiter unten es sogar richtig geschrieben habe und da habe ich mir was gedacht. reg ich mich über fehler der anderen auf?
-> aber bitte back to the topic

strtotime() geht übrigens nicht

[inherited]

Zitat von danku:

strtotime() geht übrigens nicht

Was heisst geht nicht?
Geht nicht im sinne von erkennt er nicht als zeit an?
€dit: Schon mal
  if TimeToStr(Now) =WeckTime then begin probiert?

[Sharky]

Hai,

zwei Punkte:

1. Wenn Du einen Zeitvergleich mit If (Now = xxx) Then machst muss diese Codezeile in genau dem Moment abgearbeitet werden in dem die Funktion Now genau die Zeit liefert die Du vorgegeben hast. Es ist also in der Regel besser auf Now >= xxx zu prüfen und dann z.B. den Timer zu beenden.
2. Man sollte Zahlenwerte (also auch ein Datum) nicht in einen String wandeln. Dafür gibt es ja eigene Datentypen.

[danku]

Zitat von Sharky:

Hai,

zwei Punkte:

1. Wenn Du einen Zeitvergleich mit If (Now = xxx) Then machst muss diese Codezeile in genau dem Moment abgearbeitet werden in dem die Funktion Now genau die Zeit liefert die Du vorgegeben hast. Es ist also in der Regel besser auf Now >= xxx zu prüfen und dann z.B. den Timer zu beenden.
2. Man sollte Zahlenwerte (also auch ein Datum) nicht in einen String wandeln. Dafür gibt es ja eigene Datentypen.

richtig.