problem sa music playerom

problem sa music playerom 12.04.2009. u 16:48 · pre 213 meseci #1

napravio sam player koji moze da pusta samo po jednu pesmu, a ne znam da napravim playlistu, pa ako bi neko mogao da mi posalje kod i da mke uputi koje komponente da koristim u pravljenju...
a i sto se tice ovog mog, imam problem, jer dugme Stop kada pritisnem, pesma se samo pauzira, kao da sam stisnuo Pause...kod za dugme stop mi je samo

Code:

procedure TForm1.BitBtn2Click(Sender: TObject);
begin
mp1.Stop;
end;

za pokazivanje dokle je stiglo koristim Gauge komponentu...

Potpis

Mythbuster

Re: problem sa music playerom 13.04.2009. u 14:57 · pre 213 meseci #2

> napravio sam player koji moze da pusta samo po jednu pesmu, a ne znam da napravim playlistu, pa ako bi neko mogao da mi posalje kod i
> da mke uputi koje komponente da koristim u pravljenju...

Pre nekoliko dana je bilo slično pitanje (maturski rad), on je koristio ListBox. Ako ti treba vizuelni prikaz playliste onda je ListBox sasvim adekvatan. Ali pretpostavljam da tebe više muči kako kada se završi jedna pesma da se pređe na narednu? Treba ti jedan integer properti koji će čuvati indeks (u ListBoxu) trenutne pesme, kada MP javi da je pesma završena, povećaš indeks za jedan, vidiš koja je to pesma iz ListBoxa i pustiš je.

> a i sto se tice ovog mog, imam problem, jer dugme Stop kada pritisnem, pesma se samo pauzira, kao da sam stisnuo Pause...

Postavi i Position na 0.

Potpis

Do not be a help vampire (http://slash7.com/pages/vampires), use the google.

How to ask questions the smart way:
http://www.catb.org/~esr/faqs/smart-questions.html
http://solair.eunet.rs/~fangor...stions/smart-questions.sr.html

Re: problem sa music playerom 14.04.2009. u 01:41 · pre 213 meseci #3

Citat:

savkic:
> a i sto se tice ovog mog, imam problem, jer dugme Stop kada pritisnem, pesma se samo pauzira, kao da sam stisnuo Pause...

Postavi i Position na 0.

Kod mene se cuje neki iritirajuci zvuk pre ponovnog pustanja pesme (posle stiskanja Play), ukoliko postavim Position na 0. Ne znam do cega je, na drugom kompjuteru (sa XPom) nemam tih problema :|.

Re: problem sa music playerom 14.04.2009. u 16:14 · pre 213 meseci #4

ja nemam tih problema, hvala Bogu, uspelo mi je sve lepo...
Bojane, da li si ti uspeo da odradis playlistu za tvoj program, posto meni nesto ne ide, a bio bih ti zahvalan ako bi mi poslao kod, bosto sam u skripcu s vremenom, pa ne mogu da pokusavam i eksperimentisem...

Potpis

Mythbuster

Re: problem sa music playerom 14.04.2009. u 20:43 · pre 213 meseci #5

Ne pravim nikakav program, samo sam isprobavao kako radi kontrola

. Ne znam sta je problem sa playlistom, napisacu sad neki sample pa cu da okacim.

edit: Evo okacio sam, nisam stigao da stavim komentare, pitaj za sve sto ti nije jasno.

playlist.zip223.25k

Re: problem sa music playerom 16.04.2009. u 03:26 · pre 213 meseci #6

Ako budes koristio TMediaPlayer kontrolu, samo da ti napomenem da neke muzicke datoteke jednostavno nece da reprodukuje (dok iste datoteke normalno 'prolaze' u audio plejeru). Zbog cega se to desava stvarno ne znam, mada je sigurno do formata samog fajla.

Re: problem sa music playerom 19.04.2009. u 17:47 · pre 213 meseci #7

bojane, nisam siguran da li si slucajno to prevideo,ali tvoj program po zavrsetku pesme ne pusta odma sledecu pesmu, nego rucno moram da kliknem na NEXT, pa onda na PLAY, kako bi prebacilo na sledecu pesmu...
Da li bi mogao da ponovo bacis pogleda na kod, i da mi kazes sta bi trebalo da izmenim?
Unapred hvala !!!

Potpis

Mythbuster

Re: problem sa music playerom 19.04.2009. u 20:58 · pre 213 meseci #8

Nisam imao vremena da proveravam, sigurno je problem u Notify proceduri. Evo resio sam to preko Timer-a, valjda ce da radi, nisam testirao. A Notify metodu slobodno obrisi.

playlist.zip223.58k

Re: problem sa music playerom 20.04.2009. u 13:07 · pre 213 meseci #9

a kada napravim da moj program bude providan , koristeci AlphaBlend funkciju

Code:

AlphaBlend:= true;
AlphaBlend:= 90;

ono mi kaze da ne moze tako jer je to promenljiva tipa int64, a ne boolean...
kod prosle verzije programa, bez playliste, to mi je bez problema radilo bez prethodnog navodjenja bilo kakve promenjive, pa ne znam sta je u pitanju...

P.S. sada normalno radi ono menjanje pesama, pomocu Timera... :)

Potpis

Mythbuster

Re: problem sa music playerom 20.04.2009. u 17:38 · pre 213 meseci #10

Pa iz ovog tvog koda sledi da je AlphaBlend svosjtvo ujedno i "boolean" i "integer" tipa.
Ovako napisi:

Code:

AlphaBlend:= true; //ovo aktivira providnost
AlphaBlendValue:= 90; //a ovo je nivo providnosti

Re: problem sa music playerom 21.04.2009. u 13:14 · pre 213 meseci #11

ok, radi i to...:)
imam jos jedan problem...
naime, ja hocu da prevedem program i na engleski, a posto imam dve forme u programu ne mogu da isprogramiram da mi se na klik na dugme iz prve forme i dugmici iz druge forme prevedu na engleski...
za prvu formu nema problema, sve radi

Code:

button2.caption:= 'next';

ali posto imam vise dugmica u drugoj formi, i treba mi da prevedem samo 17. dugme (koje nemam u prvoj formi), pokusao sam sa:

Code:

button17.caption:= 'back';

ali mi prijavljuje da to dugme ne postoji u prvoj formi (kao sto i ne postoji), pa ne znam kako to da izvedem...

Potpis

Mythbuster

Re: problem sa music playerom 22.04.2009. u 02:07 · pre 213 meseci #12

Otvori kod prve forme (ona forma na kojoj se nalazi dugme za promenu jezika) i u uses listu dodaj 'Unit2' (naravno, unit2 zameni sa imenom unit-a druge forme ako je drugacije, bez apostrofa). Na taj nacin omogucavas kodu iz Unit1 (Form1) da vidi kod iz Unit2 (Form2), samim tim i dugme na drugoj formi.

I onda pises:

Code:

procedure TForm1.Button1Click(Sender: TObject); //Button1 je dugme za menjanje jezika
begin
button2.Caption:= 'next'; //dugme na prvoj formi
Form2.Button17.Caption:= 'back'; //dugme na drugoj formi
end;

Re: problem sa music playerom 22.04.2009. u 16:42 · pre 213 meseci #13

i taj problem je resen...

procitao sam na forumu da su mnogi imali problema sa tim da na klik menjaju deo pesme (ne znam kako se to zove, ali pretpostavljam da znasda mislim na onu traku po kojoj ide pokazivac dokle je stiglo), pa me zanima da li si to uspeo da uradis (ili bar mislis da znas kako bi to uradio)...
ja kao pokazivac koristim Gauge komponentu.

Potpis

Mythbuster

Re: problem sa music playerom 23.04.2009. u 00:17 · pre 213 meseci #14

Nemoj Gauge kontrolu da koristis, nema MouseClick i MouseDown event. Umesto nje mozes ProgressBar da stavis na formu.Dodao sam par linija koda koji omogucavaju da klikom na progressBar promenis MediaPlayer.Position:

Code:

procedure TForm1.ProgressBar1MouseDown(Sender: TObject;
Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
begin
Timer1.Enabled:= false;
MediaPlayer1.Pause;
ProgressBar1.Position:= Round(x/ProgressBar1.ClientWidth*ProgressBar1.Max);
MediaPlayer1.Position:= ProgressBar1.Position;
MediaPlayer1.Play;
Timer1.Enabled:= true;
end;

I jos ove dve linije na Button6.Click (to je dugme next):

Code:

procedure TForm1.Button6Click(Sender: TObject);
begin
//pre ovog ide neki kod, ali necu da ga prepisujem, sve je u primeru
ProgressBar1.Max:= MediaPlayer1.Length;
ProgressBar1.Position:= 0;

Button3.Click; //ovo nisam menjao, samo sam ostavio da vidis gde sam ubacio gornje dve linije

Imas u attachmentu izmenjenu aplikaciju.

playlist.zip225.85k

Re: problem sa music playerom 23.04.2009. u 03:03 · pre 213 meseci #15

> Nemoj Gauge kontrolu da koristis, nema MouseClick i MouseDown event. Umesto nje mozes ProgressBar da stavis na formu.Dodao sam par linija
> koda koji omogucavaju da klikom na progressBar promenis MediaPlayer.Position:

Prava kontrola za tu svrhu je TTrackBar.

Potpis

Do not be a help vampire (http://slash7.com/pages/vampires), use the google.

How to ask questions the smart way:
http://www.catb.org/~esr/faqs/smart-questions.html
http://solair.eunet.rs/~fangor...stions/smart-questions.sr.html

Re: problem sa music playerom 23.04.2009. u 14:00 · pre 213 meseci #16

U tom slucaju bi morao sam da pise Mouse properties-e, ne verujem da bi se snasao.

Re: problem sa music playerom 23.04.2009. u 14:46 · pre 213 meseci #17

> U tom slucaju bi morao sam da pise Mouse properties-e, ne verujem da bi se snasao.

Nisam te ovde shvatio. On je do sada koristio Gauge a ti si prebacio na ProgressBar i napisao primer, ništa teže ne bi bilo da se Gauge zameni sa TTrackBarom i napiše primer.

Potpis

Do not be a help vampire (http://slash7.com/pages/vampires), use the google.

How to ask questions the smart way:
http://www.catb.org/~esr/faqs/smart-questions.html
http://solair.eunet.rs/~fangor...stions/smart-questions.sr.html

Re: problem sa music playerom 23.04.2009. u 15:59 · pre 213 meseci #18

Gauge, isto kao i TrackBar nema Mouse event-e u dizajneru (OnMouseMove, OnMouseDown, OnMouseUp), dok ProgressBar to ima. Nije meni nikakav problem da dodam par svojstava TrackBar-u koja bi omogucila 'hvatanje' ovih event-a, ali mislim da Mythbuster ne bi shvatio o cemu se radi.
Nadam se da je sad jasnije.

Re: problem sa music playerom 23.04.2009. u 17:19 · pre 213 meseci #19

Moglo je i ovako da radi:

Code:

procedure TForm1.NotifyProc(Sender: TObject);
const
  ModeStr: array[TMPModes] of string = ('Not ready', 'Stopped', 'Playing', 'Recording', 'Seeking', 'Paused', 'Open');
begin
   with Sender as TMediaPlayer do
   begin
     Form1.Caption := ModeStr[Mode];
     case Mode of
       mpStopped: if not stopFlag then Button6.Click;
       mpPlaying: if Position = Length then Stop;
                                  //ili Position := 0;
     end;
     Notify := True;
   end;
end;

Re: problem sa music playerom 24.04.2009. u 01:27 · pre 213 meseci #20

> Gauge, isto kao i TrackBar nema Mouse event-e u dizajneru (OnMouseMove, OnMouseDown, OnMouseUp), dok ProgressBar to ima.

Tačno je to ali nije ni bitno jer ti eventi nisu potrebni. Sve što treba za upotrebu TTrackBara su Max i Position propertiji i OnChange event i dobija se funkcionalan slider za pesmu.

Potpis

Do not be a help vampire (http://slash7.com/pages/vampires), use the google.

How to ask questions the smart way:
http://www.catb.org/~esr/faqs/smart-questions.html
http://solair.eunet.rs/~fangor...stions/smart-questions.sr.html

Forum kao aplikacija na telefonu

Srodne teme