Nouvelle DLL: Player.dll

J'ai fait une nouvelle DLL: Player.dll. Elle permet d'avoir un Windows Media Player à) l'intéreur d'une form Panoramic ! Il est dans mon Webdav dossier DLLs, comme d'habitude, et la doc est mise à jour dans Autres_DLLs.rtf.

Pour le moment, le choix des fonctions accessibles est restraint:
- crèation/suppression du player
- gestion de la position à l'écran
- charger un fichier multi-media (image, son, vidéo)
- fonctions play, pause, stop
- gestion du son: muet/normal, niveau de volume

Il y a des dizaines d'autres fonctions possibles. Je pourrai les rajouter selon les besoins. Sachez qu'il s'agit du Player Multimedia de Microsoft, et en tant que tel, il digère TOUS les fichiers médias compatibles avec ce player, pas juste les BMP, WAV et AVI !

Un petit b-mol: j'ai encore un problème à la suppression. Elle s'effectue bien, mais on ne peut pas le recréer à nouveau, sous peine de crash. Il faut arrêter le programme et le relancer. Ceci sera corrigé bientôt.

Voici un programme de démo, affichant un fichier test.avi (renommez n'importe quef fichier AVI en test.avi, ou changez le nom de fichier dans le programme):

Code:: ' test_Player.bas

label cre, del, ld, pla, pse, stp, mt0, mt1, vol

dim i%, hnd%, nom$, flag%

button 1 : top 1,0 : left 1,0 : caption 1,"Create"
width 1,50 : on_click 1,cre
button 2 : top 2,0 : left 2,50 : caption 2,"Delete"
width 2,50 : on_click 2,del
button 3 : top 3,0 : left 3,110 : caption 3,"Load"
width 3,50 : on_click 3,ld
button 4 : top 4,0 : left 4,160 : caption 4,"Play"
width 4,50 : on_click 4,pla
button 5 : top 5,0 : left 5,210 : caption 5,"Pause"
width 5,50 : on_click 5,pse
button 6 : top 6,0 : left 6,260 : caption 6,"Stop"
width 6,50 : on_click 6,stp
button 7 : top 7,0 : left 7,310 : caption 7,"Mute"
width 7,50 : on_click 7,mt0
button 8 : top 8,0 : left 8,360 : caption 8,"Loud"
width 8,50 : on_click 8,mt1
scroll_bar 9 : top 9,5 : left 9,410 : width 9,150
min 9,0 : max 9,100 : on_change 9,vol

dll_on "player"
end

cre:
if flag%=1 then return
hnd% = handle(0)
i% = dll_call5("CreatePlayer",hnd%,30,10,400,300)
flag% = 1
return

del:
if flag% = 0 then return
i% = dll_call0("DeletePlayer")
flag% = 0
return

ld:
if flag% = 0 then return
nom$ = "test.avi"
i% = dll_call1("LoadFileIntoPlayer",adr(nom$))
return

pla:
if flag% = 0 then return
i% = dll_call0("PlayPlayer")
return

pse:
if flag% = 0 then return
i% = dll_call0("PausePlayer")
return

stp:
if flag% = 0 then return
i% = dll_call0("StopPlayer")
return

mt0:
if flag% = 0 then return
i% = dll_call1("MutePlayer",0)
return

mt1:
if flag% = 0 then return
i% = dll_call1("MutePlayer",1)
return

vol:
if flag% = 0 then return
i% = dll_call1("VolumePlayer",position(9))
return

Salut, Roi des DLL. king

Je verrais cette DLL un peu plus tard.

@ klaus,

Petit souci dans la doc de "Autres dll"

On voit dans le sommaire la dll "Region.dll" mais on ne trouve pas son titre par la suite Tout comme "Print.dll"
par contre ontrouve le titre "GVL.dll" mais il n'est pas dans le sommaire.

C'est surement des fautes de frappe mais bon....
je suis entrain de faire un récap de tes dll's dans un chm pour mieux les retrouver ( commence à y en avoir beaucoup Laughing

)
et du coup j'ai des chapitres vides Laughing

Dès que j'ai fini, et si cela t'intéresse, je te laisserai le projet helpNdoc sur mon webdav.

Je vais regarder cela.

» Nouvelle DLL SetWindowButtons
» transformer .frm en .bas
» PANORAMIC V 0.9.22 est disponible
» Nouvelle version 0.32
» Nouvelle Dll WindowsVersion