Ce petit bout de code vous permet de lire un fichier au format real audio/video se trouvant sur votre machine ou sur un server distant(station de radio par exemple).
1) Placer sur votre Feuille (Form) une TextBox nomer la Text1, puis trois bouton Command1, Command2 et Command3
2)placer le control Active-X
3) Recopier le code ci-dessous
Inserer le control "RealPlayer control Active-X", les fichiers RMOC3260.oca et RMOC3260.dll contenu dans le zip sont a copier dans c:\windows\system\
Source / Exemple :
Private Sub Command1_Click()
RealAudio1.Source = Text1.Text 'Recupere la source
RealAudio1.DoPlay 'Lis le fichier source
End Sub
Private Sub Command2_Click()
RealAudio1.DoPause 'Fait une pause
End Sub
Private Sub Command3_Click()
RealAudio1.DoStop 'Arrete la lecture
End Sub
Conclusion :
(RealAudio1 correspond au non du composant Active-X)
Vous n'êtes pas encore membre ?
inscrivez-vous, c'est gratuit et ça prend moins d'une minute !
Les membres obtiennent plus de réponses que les utilisateurs anonymes.
Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.
Le fait d'être membre vous permet d'avoir des options supplémentaires.