V3.03 du 27/04/2014: GetPlayerInfo code 3 et corr. bug

' test_MediaPlayer_Multi.bas

dim res%, PL1%, PL2%, f$, temps%, w%, h%
label load1, info1, load2, info2

dll_on "KGF.dll"
full_space 0

open_dialog 1
button 10 : top 10,10 : left 10,0 : caption 10,"Load 1" : on_click 10,load1
button 12 : top 12,40 : left 12,0 : caption 12,"Info 1" : on_click 12,info1
button 21 : top 21,410 : left 21,0 : caption 21,"Load 2" : on_click 21,load2
button 22 : top 22,440 : left 22,0 : caption 22,"Info 2" : on_click 22,info2

PL1% = dll_call5("CreateMultiPlayer",handle(0),0,150,280,280)
PL2% = dll_call5("CreateMultiPlayer",handle(0),400,150,280,280)

end

load1:
  f$ = file_name$(1)
  if f$="_" then return
  res% = dll_call2("LoadFileIntoMultiPlayer",PL1%,adr(f$))
  res% = dll_call1("PlayMultiPlayer",PL1%)
 return

info1:
  temps% = dll_call2("GetMultiPlayerInfo",PL1%,2)
  res% = dll_call2("GetMultiPlayerInfo",PL1%,3)
  w% = int(res%/32768)
  h% = bin_and(res%,32767)
  message "Durée: "+str$(temps%)+" secondes  Largeur: "+str$(w%)+" pixels  Hauteur: "+str$(h%)
  return

load2:
  f$ = file_name$(1)
  if f$="_" then return
  res% = dll_call2("LoadFileIntoMultiPlayer",PL2%,adr(f$))
  res% = dll_call1("PlayMultiPlayer",PL2%)
 return

info2:
  temps% = dll_call2("GetMultiPlayerInfo",PL2%,2)
  res% = dll_call2("GetMultiPlayerInfo",PL2%,3)
  w% = int(res%/32768)
  h% = bin_and(res%,32767)
  message "Durée: "+str$(temps%)+" secondes  Largeur: "+str$(w%)+" pixels  Hauteur: "+str$(h%)
  return