Navigacija
Lista poslednjih: 16, 32, 64, 128 poruka.

problem sa music playerom

[es] :: Pascal / Delphi / Kylix :: problem sa music playerom

Strane: 1 2

[ Pregleda: 4337 | Odgovora: 27 ] > FB > Twit

Postavi temu Odgovori

Autor

Pretraga teme: Traži
Markiranje Štampanje RSS

Mythbuster
Darko Stojkovic
student
Beograd

Član broj: 204745
Poruke: 35
93.87.137.*



Profil

icon problem sa music playerom12.04.2009. u 15:48 - pre 184 meseci
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...
Mythbuster
 
Odgovor na temu

savkic
Igor Savkić

Moderator
Član broj: 92186
Poruke: 2739



+92 Profil

icon Re: problem sa music playerom13.04.2009. u 13:57 - pre 184 meseci
> 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.
 
Odgovor na temu

bojan21
Bojan Zukic
Beograd

Član broj: 101113
Poruke: 251
92.244.134.*



+6 Profil

icon Re: problem sa music playerom14.04.2009. u 00:41 - pre 184 meseci
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 :|.
 
Odgovor na temu

Mythbuster
Darko Stojkovic
student
Beograd

Član broj: 204745
Poruke: 35
93.86.145.*



Profil

icon Re: problem sa music playerom14.04.2009. u 15:14 - pre 184 meseci
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...
Mythbuster
 
Odgovor na temu

bojan21
Bojan Zukic
Beograd

Član broj: 101113
Poruke: 251
92.244.134.*



+6 Profil

icon Re: problem sa music playerom14.04.2009. u 19:43 - pre 184 meseci
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.

[Ovu poruku je menjao bojan21 dana 14.04.2009. u 23:19 GMT+1]
Prikačeni fajlovi
 
Odgovor na temu

bojan21
Bojan Zukic
Beograd

Član broj: 101113
Poruke: 251
92.244.134.*



+6 Profil

icon Re: problem sa music playerom16.04.2009. u 02:26 - pre 184 meseci
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.
 
Odgovor na temu

Mythbuster
Darko Stojkovic
student
Beograd

Član broj: 204745
Poruke: 35
93.86.198.*



Profil

icon Re: problem sa music playerom19.04.2009. u 16:47 - pre 184 meseci
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 !!!
Mythbuster
 
Odgovor na temu

bojan21
Bojan Zukic
Beograd

Član broj: 101113
Poruke: 251
92.244.134.*



+6 Profil

icon Re: problem sa music playerom19.04.2009. u 19:58 - pre 184 meseci
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.
Prikačeni fajlovi
 
Odgovor na temu

Mythbuster
Darko Stojkovic
student
Beograd

Član broj: 204745
Poruke: 35
79.101.74.*



Profil

icon Re: problem sa music playerom20.04.2009. u 12:07 - pre 184 meseci
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... :)
Mythbuster
 
Odgovor na temu

bojan21
Bojan Zukic
Beograd

Član broj: 101113
Poruke: 251
92.244.134.*



+6 Profil

icon Re: problem sa music playerom20.04.2009. u 16:38 - pre 184 meseci
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
 
Odgovor na temu

Mythbuster
Darko Stojkovic
student
Beograd

Član broj: 204745
Poruke: 35
79.101.71.*



Profil

icon Re: problem sa music playerom21.04.2009. u 12:14 - pre 184 meseci
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...
Mythbuster
 
Odgovor na temu

bojan21
Bojan Zukic
Beograd

Član broj: 101113
Poruke: 251
92.244.134.*



+6 Profil

icon Re: problem sa music playerom22.04.2009. u 01:07 - pre 184 meseci
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;


 
Odgovor na temu

Mythbuster
Darko Stojkovic
student
Beograd

Član broj: 204745
Poruke: 35
93.86.93.*



Profil

icon Re: problem sa music playerom22.04.2009. u 15:42 - pre 184 meseci
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.
Mythbuster
 
Odgovor na temu

bojan21
Bojan Zukic
Beograd

Član broj: 101113
Poruke: 251
92.244.134.*



+6 Profil

icon Re: problem sa music playerom22.04.2009. u 23:17 - pre 184 meseci
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.
Prikačeni fajlovi
 
Odgovor na temu

savkic
Igor Savkić

Moderator
Član broj: 92186
Poruke: 2739



+92 Profil

icon Re: problem sa music playerom23.04.2009. u 02:03 - pre 184 meseci
> 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.
 
Odgovor na temu

bojan21
Bojan Zukic
Beograd

Član broj: 101113
Poruke: 251
92.244.134.*



+6 Profil

icon Re: problem sa music playerom23.04.2009. u 13:00 - pre 184 meseci
U tom slucaju bi morao sam da pise Mouse properties-e, ne verujem da bi se snasao.
 
Odgovor na temu

savkic
Igor Savkić

Moderator
Član broj: 92186
Poruke: 2739



+92 Profil

icon Re: problem sa music playerom23.04.2009. u 13:46 - pre 184 meseci
> 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.
 
Odgovor na temu

bojan21
Bojan Zukic
Beograd

Član broj: 101113
Poruke: 251
92.244.134.*



+6 Profil

icon Re: problem sa music playerom23.04.2009. u 14:59 - pre 184 meseci
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.
 
Odgovor na temu

tkaranovic
Tomislav Karanović
Beograd

Član broj: 220507
Poruke: 307



+18 Profil

icon Re: problem sa music playerom23.04.2009. u 16:19 - pre 184 meseci
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;


 
Odgovor na temu

savkic
Igor Savkić

Moderator
Član broj: 92186
Poruke: 2739



+92 Profil

icon Re: problem sa music playerom24.04.2009. u 00:27 - pre 184 meseci
> 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.
 
Odgovor na temu

[es] :: Pascal / Delphi / Kylix :: problem sa music playerom

Strane: 1 2

[ Pregleda: 4337 | Odgovora: 27 ] > FB > Twit

Postavi temu Odgovori

Navigacija
Lista poslednjih: 16, 32, 64, 128 poruka.