home *** CD-ROM | disk | FTP | other *** search
/ DP Tool Club 16 / CD_ASCQ_16_0994.iso / news / 4611 / fw16d.ins / SAMPLES / TESTVID.PRG < prev    next >
Text File  |  1994-04-11  |  2KB  |  59 lines
  1. // En este ejercicio vamos a utilizar las extensiones de Microsoft Windows
  2. // para Video. No necesitas de ningún hardware adicional, pero sí tienes que
  3. // haber instalado los drivers de video.
  4.  
  5. // Esto es una muestra de cómo debes de configurar tu SYSTEM.INI
  6. // en WINDOWS para tener VIDEO
  7.  
  8. // Copy the DRVs and DLL we provide to your WINDOWS\SYSTEM directory
  9. // Those DRV and DLL are (c) Microsoft. But they can be freely
  10. // distributed.
  11.  
  12. // You should include those lines in your SYSTEM.INI
  13. /*
  14.  
  15. [mci]
  16. WaveAudio=speaker.drv
  17. Sequencer=mciseq.drv
  18. CDAudio=mcicda.drv
  19. avivideo=mciavi.drv                     <---------  Esta es la que importa
  20.  
  21. [drivers]
  22. timer=timer.drv
  23. midimapper=midimap.drv
  24. Wave=speaker.drv
  25. VIDC.MSVC=msvidc.drv                    <---------  Esta es la que importa
  26.  
  27. */
  28.  
  29. #include "FiveWin.ch"
  30.  
  31. static oWnd
  32.  
  33. //----------------------------------------------------------------------------//
  34.  
  35. function Main()
  36.  
  37.    DEFINE WINDOW oWnd FROM 1, 5 TO 20, 60 TITLE "Video Support!!!"
  38.  
  39.    SET MESSAGE OF oWnd TO "FiveWin 1.5 - Media Control Interface"
  40.  
  41.    ACTIVATE WINDOW oWnd ;
  42.       ON INIT SayVideo()
  43.  
  44. return
  45.  
  46. //----------------------------------------------------------------------------//
  47.  
  48. function SayVideo()
  49.  
  50.    local oVideo
  51.  
  52.    @ 2,  2 VIDEO oVideo FILE "pajaro.avi" SIZE 200, 200 OF oWnd
  53.  
  54.    @ 2, 40 BUTTON "&Play" SIZE 50, 20 OF oWnd ACTION oVideo:Play( 1, 100 )
  55.  
  56. return
  57.  
  58. //----------------------------------------------------------------------------//
  59.