Buttons in Mediaplayer aktivieren

[Darkchild]

Hallo zusammen,

ich habe in meiner Oberfläche den Mediaplayer eingebunden und bei ereichen eines Wertes wird der Sound abgespielt den ich hören möchte.
Bi start ist dann auch der Play Button aktiv nur der Pause button ist erst nutzbar nachdem nochmals auf Play gedrückt wurde.

Wie kann ich das erreichen das sofort alle Buttons nutzbar sind ?
Muss ich expliziet nochmal Enable auf true setzten ?

Gruss
Darkchild

P.S: Wie kann ich noch die Tracklänge ermitteln und korrekt anzeigen ?
Habe das mit Tracklength gemacht, nur der wert der da rauskommt muss dann nochmal durch 1000 geteilt werden, dann habe ich den Wert in Sekunden, aber anzeigen möchte ich ja Minuten und sekunden in der Form 4:23 Minuten.

[Sunlight7]

Hallo!

Wenn Du im OI AutoEnabled auf False stellst, kannst Du die Buttons einstellen wie Du willst, zb:

Delphi-Quellcode:

MediaPlayer1.FileName:='C:\06 space debris.wav';
MediaPlayer1.Open;
MediaPlayer1.Play;
MediaPlayer1.EnabledButtons:=[btPause, btStop]; // < Hier alle reinschreiben, die Enabled sein sollen
...
MediaPlayer1.Stop;
MediaPlayer1.EnabledButtons:=[btPlay];

Und wegen der Zeit: Schau mal in der OH nach "TimeFormat", da steht ein Beispiel drinnen, wie das funktioniert :wink:

Grüßle!

PS: TrackLength ist eigentlich für CDs und VCDs, einfach Position und Length verwenden.

[Darkchild]

@Sunlight 7

Na, Du schon wieder :-D .

Thanks, mit den Buttons klappt einwandfrei und das mit Position und Length muss ich noch versuchen.


Gruss
Darkchild

P.S: Dann weisst Du bestimmt noch wofür ich die Funktionen brauche oder was ich da immer noch versuche zu Programmieren. :wink:

[Sunlight7]

Zitat:

Zitat von Darkchild

@Sunlight 7

An wen den sonst :mrgreen:

Zitat:

Zitat von Darkchild

Na, Du schon wieder :-D .

Ja ich schon wieder :mrgreen:

Zitat:

Zitat von Darkchild

P.S: Dann weisst Du bestimmt noch wofür ich die Funktionen brauche oder was ich da immer noch versuche zu Programmieren. :wink:

Ne keine Ahnung mehr, Du brauchst ja schon so lange dafür :mrgreen:

Grüßle!

[Darkchild]

Eine Frage habe ich da noch:

Wenn ich mit Position und Lenght Arbeite geht das, aber der Wert bei einem Lied das 46 Sekunden dauert ist dann 46256.
Wenn ich den jetzt durch 1000 teile habe ich zwar die 46 aber wenn dann das Lied länger ist habe ich alles in Sekunden und nicht Minuten Sekunden. Gibt es da eine Funktion die mir das Umrechnet?

Gruss
Darkchild

[Sunlight7]

Sagte ich ja, TimeFormat.

Alternativ hat MCI Makros dazu, als da wären: MCI_HMS_HOUR, MCI_HMS_MINUTE, MCI_HMS_SECOND und wieder zurück MCI_MAKE_HMS.

Grüßle!

[Darkchild]

Habe mir auch schon die Funktionen in der mmsystem angeschaut, muss da nur noch das passende finden, aber die Dateien die Du mir jetzt gerade genannt hast kommen doch aus aus der mmsystem, oder nicht ?

Gruss
Darkchild

[Sunlight7]

Äh, ja, ist das ein Problem?

[Darkchild]

Ne, kein Problem, hatte die nur vor Deiner Antwort gerade durchgesehen und hatte da jetzt was noch im Kopf.

War jetzt nur die Frage zwecks der Herkunft, also reine neugier :-D .

Gruss
Darkchild

[Flom]

Zitat:

Zitat von Darkchild

Hallo zusammen,

ich habe in meiner Oberfläche den Mediaplayer eingebunden und bei ereichen eines Wertes wird der Sound abgespielt den ich hören möchte.
Bi start ist dann auch der Play Button aktiv nur der Pause button ist erst nutzbar nachdem nochmals auf Play gedrückt wurde.

Wie kann ich das erreichen das sofort alle Buttons nutzbar sind ?
Muss ich expliziet nochmal Enable auf true setzten ?

Gruss
Darkchild

Habe genau das selbe Problem nur Funktioniert die Lösung von Sunlight7 nicht bei mir!
Hat noch wer eine andere Lösung?

Grüße

[Sunlight7]

Abend!

Definiere Dein Problem genau ;)

[Flom]

okay :)
Ich habe ein Listview wo Songs Samt Pfad gespeichert werden. Bei einem Doppelklick darauf soll er den Song Abspielen. Klappt soweit Prima, nur man muss wieder extra auf den Playbutton klicken damit der Stop und Pause Button erscheint. was ich A lästig finde und B ja nicht so Benutzer freundlich ist.
Und damit du nicht die Glaskugel raus holen musst hier etwas Code

Delphi-Quellcode:

procedure TForm1.ListView1DblClick(Sender: TObject);
var playdir,playfile:string;
    playItemIndex:integer;
begin
      playItemIndex:=ListView1.ItemIndex;
      ListView2.ItemIndex   := playItemIndex;
      playdir  := ListView2.Items.Item[ListView2.ItemIndex].SubItems[2];
      playfile :=  ListView2.Items.Item[ListView2.ItemIndex].SubItems[3];
      MediaPlayer1.FileName := playdir + playfile;
      MediaPlayer1.Open;
      MediaPlayer1.Play;
      MediaPlayer1.EnabledButtons:=[btPause, btStop]; 
      MediaPlayer1.Pause;
      MediaPlayer1.Stop;
      MediaPlayer1.EnabledButtons:=[btPlay]; 
      MediaPlayer1.Play; // damit er es gleich abspielt beim Doppelklicken
end;

[Sunlight7]

Abend!

Zuerst mal wundere ich mich etwas darüber, das Du .Play 2 x aufrufst, folgendes würde genügen:

Delphi-Quellcode:

MediaPlayer1.Open;
MediaPlayer1.Play;
MediaPlayer1.EnabledButtons:=[btPause, btStop];

Hast Du zufällig im OI die Eigenschaft AutoEnabled auf True?
Wenn ja, dann setz sie auf False, sonst werden die EnabledButtons ignoriert ;)

Grüßle!

[Flom]

danke geht jetzt :wall: lag am enabled