PureBasic Forums - English

Posted: **Thu Feb 12, 2004 9:39 am**

strange that's what I tested it with, worked everytime.

Posted: **Thu Feb 12, 2004 11:07 am**

Works fine for me.

Posted: **Thu Feb 12, 2004 12:14 pm**

Works with some codecs, but not all... OS WinXP Pro SP1, GForce3, DirectX 9.0a

Posted: **Mon Mar 08, 2004 8:02 pm**

Hi.

I was the one who asked for AVI capture.

This is exacly what i need BUT
the code give me an Eroor message
(cannot allocate memory)

Maybe there is some kind of library i must instal ?

Or maybe there is an optimuzed version of this code ?

WIN98 128RAM PIII TNT2

Posted: **Sun May 22, 2005 2:18 pm**

Hi,
works fine under XP but the self source doesn't make an Image on
OS Windows 9x.

I have installed Direktx 9c.

Posted: **Wed Sep 24, 2008 10:13 pm**

Update this part of codes for PB4.x .. thx Fr34k for your help!!

Code: Select all

Structure PB_StructureMovie 
  Movie.IGraphBuilder 
  MediaControl.IMediaControl 
  MediaEvent.IMediaEventEx 
  Window.IVideoWindow 
  Audio.IBasicAudio 
  Video.IBasicVideo 
  MediaSeeking.IMediaSeeking 
  state.l 
EndStructure 

Procedure.l CaptureFrame(MovieNumber, ImageNumber)
  Protected *Movie.PB_StructureMovie, *Video.IBasicVideo, *Window.IVideoWindow
  Protected *ImageData.BITMAPINFOHEADER, DataSize, Parent, Result
  
  *Movie  = IsMovie(MovieNumber)  
  *Movie  + MovieNumber * SizeOf(PB_StructureMovie)
  *Window = *Movie\Window
  *Video  = *Movie\Video
  
  Result  = 0 
  
  If *Video\GetCurrentImage(@DataSize, 0) = #S_OK
    
    *ImageData = AllocateMemory(DataSize)
    If *ImageData
      
      If *Video\GetCurrentImage(@DataSize, *ImageData) = #S_OK
        
        If IsImage( ImageNumber )
          hBmp  = ImageID( ImageNumber )
          
          w = ImageWidth(ImageNumber)
          h = ImageHeight(ImageNumber)
          
          bmi.BITMAPINFO
          bmi\bmiHeader\biSize   = SizeOf(BITMAPINFOHEADER) 
          bmi\bmiHeader\biWidth  = w
          bmi\bmiHeader\biHeight = h 
          bmi\bmiHeader\biPlanes = 1 
          
          bmi\bmiHeader\biBitCount = ImageDepth(ImageNumber) 
          bmi\bmiHeader\biBitCount = 32
          bmi\bmiHeader\biCompression = #BI_RGB 
          
          hdc = StartDrawing(ImageOutput(ImageNumber))
          If hdc
            SetDIBits_( hdc, hBmp, 0, h, *ImageData, @bmi, #DIB_RGB_COLORS) 
            StopDrawing()
          EndIf
        EndIf
      EndIf
      
      FreeMemory(*ImageData)
    EndIf
    
  EndIf   
  
  *Window\get_Owner(@Parent) 
  RedrawWindow_(Parent,0,0,#RDW_INVALIDATE)
  ProcedureReturn Result
EndProcedure

Posted: **Wed Sep 28, 2011 4:08 am**

Slight change to the above:

Code: Select all

Structure PB_StructureMovie
  Movie.IGraphBuilder
  MediaControl.IMediaControl
  MediaEvent.IMediaEventEx
  Window.IVideoWindow
  Audio.IBasicAudio
  Video.IBasicVideo
  MediaSeeking.IMediaSeeking
  state.l
EndStructure

Procedure.l CaptureFrame(MovieNumber, ImageNumber)
  Protected *Movie.PB_StructureMovie, *Video.IBasicVideo, *Window.IVideoWindow
  Protected *ImageData.BITMAPINFOHEADER, DataSize, Parent, Result
  Protected hBmp, w, h, hdc
  Protected bmi.BITMAPINFO

  *Movie  = IsMovie(MovieNumber)
  *Window = *Movie\Window
  *Video  = *Movie\Video

  Result  = 0

  If *Video\GetCurrentImage(@DataSize, 0) = #S_OK

    *ImageData = AllocateMemory(DataSize)
    If *ImageData

      If *Video\GetCurrentImage(@DataSize, *ImageData) = #S_OK

        If IsImage( ImageNumber )
          hBmp  = ImageID( ImageNumber )

          w = ImageWidth(ImageNumber)
          h = ImageHeight(ImageNumber)

          bmi.BITMAPINFO
          bmi\bmiHeader\biSize   = SizeOf(BITMAPINFOHEADER)
          bmi\bmiHeader\biWidth  = w
          bmi\bmiHeader\biHeight = h
          bmi\bmiHeader\biPlanes = 1

          bmi\bmiHeader\biBitCount = ImageDepth(ImageNumber)
          bmi\bmiHeader\biBitCount = 32
          bmi\bmiHeader\biCompression = #BI_RGB

          hdc = StartDrawing(ImageOutput(ImageNumber))
          If hdc
            SetDIBits_( hdc, hBmp, 0, h, *ImageData, @bmi, #DIB_RGB_COLORS)
            StopDrawing()
          EndIf
        EndIf
      EndIf

      FreeMemory(*ImageData)
    EndIf

  EndIf

  *Window\get_Owner(@Parent)
  RedrawWindow_(Parent,0,0,#RDW_INVALIDATE)
  ProcedureReturn Result
EndProcedure

Removed the line

Code: Select all

*Movie  + MovieNumber * SizeOf(PB_StructureMovie)

as per Freak's reply to the posting Detecting CurrentMovie. Also declared variables w, h, etc as I always use EnableExplicit.

Very useful procedure.

PureBasic Forums - English

Capture a movie frame

Re: Capture a movie frame