Autor Beitrag
ploRa
ontopic starontopic starontopic starontopic starontopic starontopic starontopic starontopic star
Beiträge: 59

Win XP
Delphi 6
BeitragVerfasst: Sa 22.01.05 21:34 
Hiho
ich habe eine Listbox5 und einen Mediaplayer auf der Form
und habe folgende Lieder untereinander in meine Liestbox5 eingetragen !
...
K:\Lied1.mp3
K:\Lied2.mp3
...

Diese Lieder sollen jetzt nacheinander wiedergegeben werden mit dem MediaPlayer.

Kann mir einer ein Quellcode dafür geben ?

Danke
Mfg
raziel
ontopic starontopic starontopic starontopic starontopic starontopic starofftopic starofftopic star
Beiträge: 2453

Arch Linux
JS (WebStorm), C#, C++/CLI, C++ (VS2013)
BeitragVerfasst: Sa 22.01.05 21:46 
Hi,

einen fertigen Sourcecode wird dir wohl niemand einfach so geben ;)

Aber hier im Swissdelphicenter gibt es ein Code-Snippet, der zeigt, wie man erkennen kann, wann der TMediaPlayer ein Lied fertig gespielt hat.

Alles andere "drumherum" müsstest du selbst implementieren, was allerdings nicht mehr so schwierig sein dürfte.

raziel

_________________
JSXGraph
Iron-Rose
Hält's aus hier
Beiträge: 5

Win XP, SuSe Linux 9.1.
D7 Prof
BeitragVerfasst: Do 03.02.05 21:12 
ich kann den Komonenten TMediaPlayer irgendwie nicht finden.
Wo ist der?
denn ich würde das mit dem Mediaplayer auch gerne mal versuchen.
jojo-sp
ontopic starontopic starontopic starontopic starontopic starontopic starofftopic starofftopic star
Beiträge: 317

Windows XP Prof, Vista Ultimate & Home Premium, Windows 7
Delphi 7 Enterprise, Delphi 2009
BeitragVerfasst: Do 03.02.05 21:38 
System - Mediaplayer (auf jeden Fall bei Delphi 4)

Musst aber noch je nach dem noch nen Animate (für Video z.B.) dazu benutzen.

_________________
Ist der Ruf erst ruiniert, lebts sich gänzlich ungeniert...
Wilhelm Busch (1832 - 1908)
Harry M.
ontopic starontopic starontopic starontopic starontopic starontopic starhalf ontopic starofftopic star
Beiträge: 754

Win 2000, XP
D2005
BeitragVerfasst: Do 03.02.05 21:54 
du könntest auch wenn den tiltel zuenden ist Mediaplayer1.Position den nächsten titel aus der liste holen
ausblenden Delphi-Quelltext
1:
2:
3:
4:
 if I + 1 = Playlistbox1.Items.Count then exit
  else Mediaplayer1.Filename := Playlistbox1.Items.Strings[I];
 Mediaplyer1.Open;
 Mediaplayer1.Play


sollte gehen...

Moderiert von user profile iconGausi: Code- durch Delphi-Tags ersetzt.