Cd player
Zaključano
Zakačeno
prvo : MCI kontrola nije uopste zajebancija 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 ...
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 ...
Potpis
fire, walk with me
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.
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.
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:[email protected]
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:[email protected]