MovieScreenShot

Синтаксис

Function MovieScreenShot(ByVal Movie As Integer) As HBITMAP

Описание

Делает снимок текущего кадра и возвращает в виде хендла битмапа, который впоследствии можно сохранить в файл при помощи функции Save_Image.

Параметры

Movie - хендл видео, загруженный с помощью LoadMovie

Платформы

Windows

Пример

#Include "window9.bi"
Dim As Integer full,Movie=LoadMovie(0,"1.wmv",100,100,0,0)
ResizeMovie(Movie,100,100,MovieSourseWidth(Movie),MovieSourseHeight(Movie))
PlayMovie(Movie)
Do
  If GetAsyncKeyState(&h1B)<0 Then Exit Do  'если клавиша ESC нажата, то конец программы
  If GetAsyncKeyState(&h20)<0 Then 'если клавиша Пробел нажата,делаем снимок
     SAVE_image(MovieScreenShot(Movie), "Скриншот.bmp")
  EndIf
Loop
FreeMovie(Movie)

Created with the Personal Edition of HelpNDoc: Full featured multi-format Help generator