musik/video afspiller

Tags:    delphi

hej jeg er stadig ny til delphi og jeg ville sprøge om der er nogen som ved hvordan man laver en medieplayer som skal kunne afspille både musik og film. er der nogen som kan hjælpe mig



4 svar postet i denne tråd vises herunder
2 indlæg har modtaget i alt 3 karma
Sorter efter stemmer Sorter efter dato
Hmm
Men som jeg sagde havde jeg ikke lige prøvet koderne :D
Jeg har nemlig "lige" fået formatteret og havde ikke liget fået installeret igen. Men det har jeg nu, så det jeg skriver nu 100% tjekket at det virker...

Laver lige et eks.

Hent følge kompomenter:
3 knapper (Åben, Afspil, Stop)
Mediaplayer
Opendialog

Start med at usynligører mediaplayer kompomentet med propertiesen: Visible (sæt til false)
Lav evt. knappers caption om.




Kode til startknap:

if opendialog1.Execute then
begin
Mediaplayer1.FileName := opendialog1.FileName;
Mediaplayer1.open;
Mediaplayer1.play;
end;


Kode til stopknap:

Mediaplayer1.stop;


Kode til startknap:

Mediaplayer1.play;


Ønsker du at vide mere advanceret funktioner så søg på mediaplayer på udviklerens søgefunktion eller kik på disse links, fra andre tråde:

http://www.udvikleren.dk/thread.php?techid=2&f=2&t=1275&searchword=Mediaplayer
http://www.udvikleren.dk/thread.php?techid=2&f=2&t=1096&searchword=Mediaplayer
http://www.udvikleren.dk/thread.php?techid=2&f=2&t=732&searchword=Mediaplayer



Shafh
www.shafh.dk
Shafh@stofanet.dk
Theis F. Hinz

Make you glad to change the world



hej jeg er stadig ny til delphi og jeg ville sprøge om der er nogen som ved hvordan man laver en medieplayer som skal kunne afspille både musik og film. er der nogen som kan hjælpe mig



Til video kan du bruge DSPack:

http://www.progdigy.com/modules.php?name=Downloads&d_op=viewdownload&cid=1

Til musik kan du evt. bruge MMSystem (indsættes i uses) eller TMediaPlayer som er i Delphi!


Hilsen Morten



Brug MediaPlayer...

Skriv dette for at åbne musik:

if opendialog1.execute then
begin
mediaplayer1.filename := mediaplayer1.filename;
mediaplayer1.open;
mediaplayer1.play;
end;


For at stoppe

mediaplayer1.stop;

Har ikke lige tjekket koden. Men virker!


Shafh
www.shafh.dk
Shafh@stofanet.dk
Theis F. Hinz

Make you glad to change the world



Brug MediaPlayer...

Skriv dette for at åbne musik:

if opendialog1.execute then
begin
mediaplayer1.filename := mediaplayer1.filename;
mediaplayer1.open;
mediaplayer1.play;
end;


For at stoppe

mediaplayer1.stop;

Har ikke lige tjekket koden. Men virker!



Shafh
www.shafh.dk
Shafh@stofanet.dk
Theis F. Hinz

Make you glad to change the world



har lige prøvet og får denn fjl når jeg complier "enhedstypen kunne ikke bestemmes ud fra den angivne filytype"

hvad kan det skyldes



t