[es] - POMOC - Player in Delphi

Vladica Savić
Software Developer
Toronto, Canada

Član broj: 26699
Poruke: 654

+5 Profil

^{05.06.2005. u 08:54 - pre 229 meseci}

Pozdrav ljudi

Evo mog problema:

Pravim player u delphi-u, ali sam naisao na problem kako da snimam i ucitavam playlist, tj. kako da snimim sve ono sto mi se nalazi u listbox-u, i kada se to snimi kada se program ponovo pokrene da ucita tu snimljenu playlistu ponovo u listbox.
A da, tu je i problem kako da kada se jedna pesma zavrsi da player predje automatski na drugu, odmah iza nje u listbox-u.
A da ne pominjem koliko me nervira slider koji pokazuje poziciju trenutne trake, i to sto sve pocne cudno da radi kada zadam komandu da mogu da premotavam pesmu, naime, kad postavim vrednosti:
SLIDER.MAXVALUE:=MEDIAPLAYER1.TRACKLENGTH[0]
SLIDER.VALUE:=MEDIAPLAYER1.POSITION
to je ok, medjutim problem pravi
MEDIAPLAYER1.STARTPOS:=SLIDER.VALUE;
MEDIAPLAYER1.PLAY;

Molim pomozite, NAJVAZNIJI PROBLEM MI JE PLAYLIST, ali naravno nisu na odmet ni odgovori na ostale probleme.

Vladica Savic

My IT View Of Life-BrLOG-Delphi for PHP

» LinkedIn

Odgovor na temu

Nemanja Avramović
Engineering Manager
MENU Technologies
Beograd, Srbija

Član broj: 32202
Poruke: 4391
*.yu1.net.

Sajt: https://avramovic.info

+46 Profil

Re: POMOC - Player in Delphi

^{05.06.2005. u 10:27 - pre 229 meseci}

snimanje:
listbox1.items.savetofile('c:\putanja\do\liste.lst');

ucitavanje po pokretanju:
listbox1.items.loadfromfile('c:\putanja\do\liste.lst');

a prelazak na sledecu pesmu... joj ne secam se kako to beshe... kazesh mu if mediaplayer1 (ako koristish taj plejer) .mode <> neshto onda prebacujesh na sledecu pesmu... mislim da je to... igraj se sa property-jem MODE od mediaplayer-a

Laravel Srbija.

_{[NE PRUŽAM PODRŠKU ZA PHP PREKO PRIVATNIH PORUKA!]}

Odgovor na temu

Rage Against the Machine
Valjevo

Član broj: 47362
Poruke: 8
213.244.197.*

Profil

Re: POMOC - Player in Delphi

^{09.06.2005. u 08:31 - pre 229 meseci}

Mozes i na dogadjaj klizaca OnChange da pitas da li je trenutni polozaj jednak MAX, ako jeste onda da pustis drugu pesmu.

Odgovor na temu

Peke
Ventis Media Inc.
Novi Sad

Član broj: 24103
Poruke: 66
*.dialup.neobee.net.

Sajt: www.mediamonkey.com

Profil

Re: POMOC - Player in Delphi

^{13.06.2005. u 23:38 - pre 229 meseci}

Rage,
to moze da bude varljivo i ima velik postotak greske.
To se resava tako sto uporedis cetiri stvari i ako se sve cetiri TRUE onda pustas sledecu.
1. Stanje player-a (Playing, Paused, .....)
2. Koliko je pusteno do sada
3. koliko jos ima da se pusti
4. trajanje pesme

Pozdrav, Peke
Speed IO ADSL+ Rezultat
SpeedTest.NET ADSL+ Rezultat

Odgovor na temu

Vladica Savić
Software Developer
Toronto, Canada

Član broj: 26699
Poruke: 654

+5 Profil

Re: POMOC - Player in Delphi

^{14.06.2005. u 08:35 - pre 229 meseci}

Ljudi, ovo sa playlistom nece da funkcionise. Znaci kad snimim ovo kako je JaHvram rekao, nastaje problem pri ucitavanju, tj. listbox1.items ne dobija lokaciju fajlova, odnosno salje mi obavestenje da nije mogao da pronadje dati fajl i da proverim ime i tako bla, bla, bla...

STA DA RADIM???

Ako ovo ne moze da se resi na jednostavan nacin ima li neko link za besplatnu komponentu koja radi ovo.

Citat:

JaHvram: snimanje:
listbox1.items.savetofile('c:\putanja\do\liste.lst');

ucitavanje po pokretanju:
listbox1.items.loadfromfile('c:\putanja\do\liste.lst');

a prelazak na sledecu pesmu... joj ne secam se kako to beshe... kazesh mu if mediaplayer1 (ako koristish taj plejer) .mode <> neshto onda prebacujesh na sledecu pesmu... mislim da je to... igraj se sa property-jem MODE od mediaplayer-a

My IT View Of Life-BrLOG-Delphi for PHP

» LinkedIn

Odgovor na temu

Burgos
Nemanja Borić
Amazon Web Services
Berlin

Član broj: 12484
Poruke: 1947
*.smin.sezampro.yu.

Sajt: stackoverflow.com/users/1..

+480 Profil

Re: POMOC - Player in Delphi

^{14.06.2005. u 12:38 - pre 229 meseci}

Mozda u listBoxu imas samo imena fajlova, a ne i putanju. Ja bih dodao jedan nevidljivi listBox u koga bih ucitavao i snimao listu, pa onda iz njega prebacio u drugi listBox.

Odgovor na temu

Srki_82
Srdjan Tot
Me @ My Home
Ljubljana

Član broj: 28226
Poruke: 1403
82.208.201.*

ICQ: 246436949

+10 Profil

Re: POMOC - Player in Delphi

^{14.06.2005. u 15:40 - pre 229 meseci}

Nema potrebe za dva list boxa... svaki string u list boxu ima uz sebe asociran i jedan objekat ili bolje receno pointer koji moze pokazivati na bilo sta. Jednostavno uz ime koje zelis da prikazes u list boxu asociraj i pointer na string koji sadrzi punu putanju. Jedino sto tada ne bi mogao da se oslonis na snimanje preko SaveToFile jer se tu asocirani objekti ne snimaju.

Play Store

Odgovor na temu

Nemanja Avramović
Engineering Manager
MENU Technologies
Beograd, Srbija

Član broj: 32202
Poruke: 4391
193.251.169.*

Sajt: https://avramovic.info

+46 Profil

Re: POMOC - Player in Delphi

^{14.06.2005. u 16:47 - pre 229 meseci}

srki, reci mi neshto vishe o tom asociranom objektu u vezi list box-a, daj neki code..

Laravel Srbija.

_{[NE PRUŽAM PODRŠKU ZA PHP PREKO PRIVATNIH PORUKA!]}

Odgovor na temu

Srki_82
Srdjan Tot
Me @ My Home
Ljubljana

Član broj: 28226
Poruke: 1403
82.208.201.*

ICQ: 246436949

+10 Profil

Re: POMOC - Player in Delphi

^{14.06.2005. u 18:40 - pre 229 meseci}

Pa... evo ovako nesto iz glave

Code:
procedure Button1Click(Sender: TObject);
var
  I: Integer;
  pI: ^Integer;
begin
  for I := 1 to 10 do
  begin
    New(pI);
    pI := I * 2;
    ListBox1.Add(IntToStr(I), TObject(pI));
  end;
end;

Ovo bi recimo u ListBox dodalo deset objekata koji imaju nazive '1', '2', '3', ..., '10', a asocirani objekti uz njih su njihova vrednost puta 2. Kasnije objektima mozemo pristupati preko

Code:
ListBox1.Items.Objects[X]

Gde je X redni broj Itema koji nam treba.
Samo ne smemo zaboraviti da pre brisanja Itema moramo obrisati asocirani objekat. U ovom slucaju bi to izgledalo

Code:
Dispose(ListBox1.Items.Objects[X]);

To je otprilike to.

Play Store

Odgovor na temu

Vladica Savić
Software Developer
Toronto, Canada

Član broj: 26699
Poruke: 654

+5 Profil

Re: POMOC - Player in Delphi

^{16.06.2005. u 09:24 - pre 229 meseci}

Ok, ali kako da ja to iskoristim konkretno za moj problem?
Ako nije problem detaljno mi objasnite, PLEASE.

My IT View Of Life-BrLOG-Delphi for PHP

» LinkedIn

Odgovor na temu