Pb doc KGF

' demo_VideoCapture.bas


' constantes de pilotage de la fonction VideoCapture
dim VideoCapture_Action_Close%    : VideoCapture_Action_Close%    = 0
dim VideoCapture_Action_Connect%  : VideoCapture_Action_Connect%  = 1
dim VideoCapture_Action_VideoFile% : VideoCapture_Action_VideoFile% = 2
dim VideoCapture_Action_Capture%  : VideoCapture_Action_Capture%  = 3
dim VideoCapture_Action_Geometry%  : VideoCapture_Action_Geometry%  = 4
dim VideoCapture_Action_Preview%  : VideoCapture_Action_Preview%  = 5
dim VideoCapture_Action_Photo%    : VideoCapture_Action_Photo%    = 6
dim VideoCapture_Action_Audio%    : VideoCapture_Action_Audio%    = 7
dim VideoCapture_Action_Info%      : VideoCapture_Action_Info%      = 8

dim VideoCapture_Audio_Channels_Mono%    : VideoCapture_Audio_Channels_Mono%    = 0
dim VideoCapture_Audio_Channels_Stereo%  : VideoCapture_Audio_Channels_Stereo%  = 1
dim VideoCapture_Audio_Frequency_8000Hz%  : VideoCapture_Audio_Frequency_8000Hz%  = 0
dim VideoCapture_Audio_Frequency_11025Hz% : VideoCapture_Audio_Frequency_11025Hz% = 1
dim VideoCapture_Audio_Frequency_22050Hz% : VideoCapture_Audio_Frequency_22050Hz% = 2
dim VideoCapture_Audio_Frequency_44100Hz% : VideoCapture_Audio_Frequency_44100Hz% = 3
dim VideoCapture_Audio_Resolution_8Bit%  : VideoCapture_Audio_Resolution_8Bit%  = 0
dim VideoCapture_Audio_Resolution_16Bit%  : VideoCapture_Audio_Resolution_16Bit%  = 1

dim VideoCapture_Show%  : VideoCapture_Show%  = 1
dim VideoCapture_Hide%  : VideoCapture_Hide%  = 0
dim VideoCapture_Start% : VideoCapture_Start%  = 1
dim VideoCapture_Stop%  : VideoCapture_Stop%  = 0

label connecter, fermer, demarrer, arreter, visualiser, photo, audio

dim res%, VC%, index%, preview%, video$, photo$, img%, vid%, audio%, i%, largeur%, hauteur%

full_space 0
list 1 : left 1,700 : top 1,60 : width 1,400 : height 1,100
memo 2 : hide 2 : bar_both 2
alpha 3 : top 3,40 : left 3,700 : caption 3,"Sources vidéo disponibles:"

button 11 : top 11,10 : left 11,10  : caption 11,"Connecter" : on_click 11,connecter
button 13 : top 13,10 : left 13,100 : caption 13,"Démarrer" : on_click 13,demarrer
button 14 : top 14,10 : left 14,190 : caption 14,"Arrêter" : on_click 14,arreter : inactive 14
button 15 : top 15,10 : left 15,280 : caption 15,"Fermer" : on_click 15,fermer
button 16 : top 16,10 : left 16,370 : caption 16,"Visualiser" : on_click 16,visualiser
button 17 : top 17,10 : left 17,460 : caption 17,"Photo" : on_click 17,photo
button 18 : top 18,10 : left 18,550 : caption 18,"Audio on" : on_click 18,audio

dll_on "KGF.dll"

res% = dll_call1("GetCaptureDriverNames",handle(2))
index% = 0
if count(2)>0
  for i%=1 to count(2)
    item_add 1,item_read$(2,i%)
  next i%
end_if
end


connecter:
  if item_index(1)>0 then index% = item_index(1) - 1
  VC% = dll_call6("VideoCapture",VC%,VideoCapture_Action_Connect%,handle(0),index%,VideoCapture_Hide%,0)
message "VC%="+str$(VC%)
  res% = dll_call6("VideoCapture",VC%,VideoCapture_Action_Geometry%,10,40,600,400)
  if (VC%=0) or (res%<0) then message "Connexion: "+str$(VC%)+"  Géometrie: "+str$(res%)
  res% = dll_call6("VideoCapture",VC%,VideoCapture_Action_Info%,adr(largeur%),adr(hauteur%),0,0)
  message "Format videp "+str$(largeur%)+"x"+str$(hauteur%)
  return

fermer:
  VC% = dll_call6("VideoCapture",VC%,VideoCapture_Action_Close%,0,0,0,0)
  if VC%<>0 then message "Fermeture: "+str$(VC%)
  caption 16,"Visualiser"
  preview% = 0
  return

demarrer:
  vid% = vid% + 1
  video$ = "MaVideo_"+right$("000"+str$(vid%),4)+".avi"
  res% = dll_call6("VideoCapture",VC%,VideoCapture_Action_Capture%,VideoCapture_Start%,adr(video$),0,0)
  inactive 13
  active 14
  return

arreter:
  res% = dll_call6("VideoCapture",VC%,VideoCapture_Action_Capture%,VideoCapture_Stop%,0,0,0)
  inactive 14
  active 13
  return
 
visualiser:
  select preview%
    case 0
      preview% = 1
      res% = dll_call6("VideoCapture",VC%,VideoCapture_Action_Preview%,VideoCapture_Start%,VideoCapture_Show%,0,0)
      caption 16,"Bloquer"
    case 1
      preview% = 0
      res% = dll_call6("VideoCapture",VC%,VideoCapture_Action_Preview%,VideoCapture_Stop%,VideoCapture_Hide%,0,0)
      caption 16,"Visualiser"
  end_select
  return
 
photo:
  img% = img% + 1
  photo$ = "MaPhoto_"+right$("000"+str$(img%),4)+".bmp"
  res% = dll_call6("VideoCapture",VC%,VideoCapture_Action_Photo%,adr(photo$),0,0,0)
  return

audio:
  if audio%=0
    res% = dll_call6("VideoCapture",VC%,VideoCapture_Action_Audio%,1,VideoCapture_Audio_Channels_Mono%,VideoCapture_Audio_Frequency_8000Hz%,VideoCapture_Audio_Resolution_8Bit%)
    if res%=0
      audio% = 1
      caption 18,"Audio off"
    end_if
  else
    res% = dll_call6("VideoCapture",VC%,VideoCapture_Action_Audio%,0,0,0,0)
    if res%=0
      audio% = 0
      caption 18,"Audio on"
    end_if
  end_if
  return