[es] - Cd player

Ivan Tanasic
BGD-SRBIJA

Član broj: 220
Poruke: 965
*.111.EUnet.yu

Jabber: Autoexes@jabber.sk
ICQ: 129145438

Profil

^{24.04.2001. u 21:54}

Kako napraviti cd player u win, nemojte mi samo one fore MCI jer je to zivo sranj* , vec vi meni lepo kazite windows API funkcije za upravljanje diskom.

Ivan Tanasic - Autoexes

>cd pub
>more beer

^{24.04.2001. u 21:54}

jc denton

Član broj: 2358
Poruke: 1705
*.ptt.yu

Profil

Re: Cd player

^{17.02.2002. u 04:57}

prvo : MCI kontrola nije uopste za***ancija jer ona koristi bas te API fn koje trazis.

drugo : Ako hoces API funkcije malo vise ces morati da se pomucis da sve isprovaljujes kako treba. Evo nekih u atachmentu pa probaj kako to radi.

trece : da ne bi ginuo mnogo sa API fn predji ti prijatelju na DirectShow i uzivaj - sve je lepo objasnjeno u MSDN-u i nije tesko za koriscenje osim ako nisi koristio objekte nikad u zivotu, ako zapne pitaj ...

...za sada samo citam.

Prikačeni fajlovi

AVI API FUNKCIJE.txt - 21.88k

^{17.02.2002. u 04:57}

Krsta
Krstic Dejan
Licna firma za izradu i projektovanje inf. sistema, r..
Krusevac

Član broj: 2461
Poruke: 301
*.ptt.yu

Sajt: www.illusion.co.yu

Profil

Re: Cd player

^{26.02.2002. u 22:55}

Probaj sa Media Player Active X koji imas standardno
u Win-u, ili instaliraj MP6.4 (za sada se pokazao skoro dobro). Sa Mp3 i ostalim fajlovima radi mada nisam probao sa CDA fajlovima, a
i nije mnogo komplikovano.

Ako neznas kuda ides, sigurno ces tamo da stignes !!!

"Digital ILLUSION" - Krusevac
www.illusion.co.yu

^{26.02.2002. u 22:55}

zeljo

Član broj: 2965
Poruke: 143
195.252.78.*

Profil

Re: Cd player

^{21.06.2002. u 02:05}

Evo ti komplet kod :

Private Sub cmdPlay_Click()
MMControl1.Notify = False
MMControl1.Wait = True
MMControl1.Shareable = False
'specify CD Audio type (from CD-ROM drive)
MMControl1.DeviceType = "CDAudio"
MMControl1.Command = "Open"
Image1.Visible = True
End Sub

Private Sub cmdQuit_Click()
'stop CD audio if quit button clicked
MMControl1.Command = "Stop"
End
End Sub

Private Sub Form_Unload(Cancel As Integer)
'always close device when finished
MMControl1.Command = "Close"
End Sub

Private Sub MMControl1_PlayClick(Cancel As Integer)
'hide instruction bitmap before playing CD
Image1.Visible = False
End Sub

A ako si zainteresovan posalji E-Mail pod naznakom ES-Forumi Pomoc poslacu ti komplet sve sa Formom

E-Mial:zelja@rskoming.net

^{21.06.2002. u 02:05}