Воспроизведение видео

[Mario]

Что здесь не правильно?
Или может правильно но у меня не работает!
И есть ли более простой способ просмотра видео через pictureBox!

Код: Выделить всё

Sub PlayAVIPictureBox(FileName As String, ByVal Window As PictureBox)
Dim RetVal As Long
Dim CommandString As String
Dim ShortFileName As String * 260
Dim deviceIsOpen As Boolean

'Короткое имя файла
RetVal = GetShortPathName(FileName, ShortFileName, Len(ShortFileName))
FileName = Left$(ShortFileName, RetVal)

'Открываем файл
CommandString = "Open " & FileName & " type AVIVideo alias AVIFile parent " _
& CStr(Window.hWnd) & " style " & CStr(WS_CHILD)
RetVal = mciSendString(CommandString, vbNullString, 0, 0&)
If RetVal Then GoTo error

'Запоминаем, что файл открыт
deviceIsOpen = True

'Изменяем размеры видио в соответствии с Picture
CommandString = "put AVIFile window at 0 0 " & CStr(Window.ScaleWidth / _
Screen.TwipsPerPixelX) & " " & CStr(Window.ScaleHeight / _
Screen.TwipsPerPixelY)
RetVal = mciSendString(CommandString, vbNullString, 0, 0&)
If RetVal <> 0 Then GoTo error

'Проигрываем файл
CommandString = "Play AVIFile wait"
RetVal = mciSendString(CommandString, vbNullString, 0, 0&)
If RetVal <> 0 Then GoTo error

'Закрываем файл
CommandString = "Close AVIFile"
RetVal = mciSendString(CommandString, vbNullString, 0, 0&)
If RetVal <> 0 Then GoTo error

Exit Sub

error:
' Ошибки...
Dim ErrorString As String
ErrorString = Space$(256)
mciGetErrorString RetVal, ErrorString, Len(ErrorString)
ErrorString = Left$(ErrorString, InStr(ErrorString, vbNullChar) - 1)

'закрываем в случае необходимости
If deviceIsOpen Then
CommandString = "Close AVIFile"
mciSendString CommandString, vbNullString, 0, 0&
End If
Err.Raise 999, , ErrorString
End Sub

[Odrick]

Конкретнее можно? У меня все прекрасно работает.

[BV]

http://bbs.vbstreets.ru/viewtopic.php?t=19356

[Odrick]

Дааааа. Прикольный класс. Интересно, можно ли его присобачить к DirectDraw? Нужно попробовать...

[Odrick]

Интересно, а можно ли заставить MCI рисовать непосредственно на заданном DC?

[Mario]

У меня пишет что невозможно воспроизвести файл! Типа не найдена система распаковки "vids"
Может ошибка не в коде а моей бошке?!
Просто в wind'e чего не хватает...

[Mario]

Все я разобрался!!!
Всем спасибо....