Как получить n-ный кадр видео в виде картинки?

[Serge200803141927]

Прошу помощи.
В инете даже на импортных сайтах нет инфы.

Нужно выводить список видео файлов (avi,wmv...)
на экран в виде thumbnail view.
Т.е. как вытащить из видео файла 1-й (желательно не только 1-й, а любой по требованию) кадр в виде картинки, которую можно потом вывести на экран по loadpicture?

Заранее благодарю.

[Serge200803141927]

Сам нашел.
http://www.shrinkwrapvb.com/avihelp/avihlp_3.htm
Если есть более простое решение - велкам.

[BV]

Эм. Разве AVIStream* работает с WMV?
Я бы смотрел в сторону DirectShow, IBasicVideo2::GetCurrentImage.

[CodeName33]

В своё время делал через MPlayer, только его приходится таскать с собой

[TrueTrue]

Может у кого завалялся готовый кусок кода, создания превью с видео файла, буду очень признателен...

[TrueTrue]

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

Private m_objMediaPosition As IMediaPosition
Private m_objVideoWindow As IVideoWindow
Private m_objMediaControl As IMediaControl
Private m_objBasicAudio  As IBasicAudio

Private Declare Function GetAsyncKeyState Lib "user32" (ByVal vKey As Long) As Integer
Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)

Public Sub RunVideo(fName As String, ByVal Volume As Single)
Dim d1 As Double, d2 As Double
Dim meVol As Integer
  meVol = 67 - 67 * Exp((1 - Volume) * 5)
  If meVol < -9999 Then meVol = -9999
  If meVol > 0 Then meVol = 0

  Set m_objMediaControl = New FilgraphManager
  m_objMediaControl.RenderFile fName

  Set m_objVideoWindow = m_objMediaControl
  Set m_objBasicAudio = m_objMediaControl
  m_objVideoWindow.WindowStyle = CLng(&H6000000)
  m_objVideoWindow.Top = 0
  m_objVideoWindow.Left = 0
  m_objVideoWindow.Width = Screen.Width / Screen.TwipsPerPixelX
  m_objVideoWindow.Height = Screen.Height / Screen.TwipsPerPixelY
  m_objVideoWindow.HideCursor -1
  Set m_objMediaPosition = m_objMediaControl
  m_objBasicAudio.Volume = meVol
  m_objMediaControl.Run
  d2 = -1
  Do
    Sleep 50
    d1 = m_objMediaPosition.CurrentPosition
    If d1 = d2 Then Exit Do Else d2 = d1
    If GetAsyncKeyState(vbKeyEscape) < 0 Then Exit Do
  Loop
  DShowStop
End Sub

Public Sub DShowStop()
  If Not m_objMediaControl Is Nothing Then
    m_objMediaControl.Stop
    Set m_objBasicAudio = Nothing
    Set m_objMediaPosition = Nothing
    Set m_objVideoWindow = Nothing
    Set m_objMediaControl = Nothing
  End If
End Sub

ну может быть кто-то подскажет, как в этом коде добавить переход на определённый кадр и снятие скриншота. Пожалуйста, очень нужно.