Novo

Forum kao aplikacija na telefonu

Dodajte forum na početni ekran i koristite ga kao aplikaciju, sa menijem na dnu ekrana.

  • 9 odgovora
  • 4.160 pregleda

Najnovija ↓

POMOC - Player in Delphi 05.06.2005. u 09:54 · pre 260 meseci #1
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
Potpis

My IT View Of Life-BrLOG-Delphi for PHP


» LinkedIn
Re: POMOC - Player in Delphi 05.06.2005. u 11:27 · pre 260 meseci #2
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
Potpis
Laravel Srbija.

[NE PRUŽAM PODRŠKU ZA PHP PREKO PRIVATNIH PORUKA!]
Re: POMOC - Player in Delphi 14.06.2005. u 00:38 · pre 260 meseci #4
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
Potpis
Pozdrav, Peke
Speed IO ADSL+ Rezultat
SpeedTest.NET ADSL+ Rezultat
Re: POMOC - Player in Delphi 14.06.2005. u 09:35 · pre 260 meseci #5
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
Potpis

My IT View Of Life-BrLOG-Delphi for PHP


» LinkedIn
Re: POMOC - Player in Delphi 14.06.2005. u 13:38 · pre 260 meseci #6
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.
Re: POMOC - Player in Delphi 14.06.2005. u 16:40 · pre 260 meseci #7
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.
Potpis
Play Store
Re: POMOC - Player in Delphi 14.06.2005. u 19:40 · pre 260 meseci #9
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.
Potpis
Play Store
Prijavite se da biste odgovorili u ovoj temi.PrijavaRegistracija

Premeštanje teme