LoadMovie

Синтаксис

Function LoadMovie(ByVal hWin As HWND, ByRef sFileName As String, ByVal x As Integer, ByVal y As Integer,ByVal w As Integer, ByVal h As integer) as integer

Описание

Загружает видеофайл в память. Поддерживаемые форматы(зависит от установленных кодеков в систему) : MP3,WAV,AVI,WMV,MPG,MP4,FLV,MOV,VOB,GIF и может быть еще какие нибудь(все не пробовал). После того как вы убедитесь, что проигрываемый видеофайл больше не востребован, необходимо освобождать ресурсы видеофайла с помощью FreeMovie

Параметры

hWin - Окно-родитель, за которым будет закреплено видео. Может быть 0, тогда родителем выступит "окно рабочего стола"

sFileName - Имя видеофайла с полным путем к нему

x,y,w,h - Расположение и размеры видео в окне-родителя

Платформы

Windows

Пример

#Include "window9.bi"
Dim As Integer Movie=LoadMovie(0,"1.avi",100,100,320,240)
PlayMovie(Movie)
Do
  If GetAsyncKeyState(&h1B)<0 Then Exit do
  'если клавиша ESC нажата, то конец программы
Loop
FreeMovie(Movie)

Результат

Created with the Personal Edition of HelpNDoc: Free PDF documentation generator