IMcStreamReadFrames Method |
![]() |
Namespace: MediaCy.IQL.IO
Sub ReadFrames ( image_range As Object, stream_range As Object, Flags As mclfLoadFlags, <OutAttribute> ByRef Destination As McImage )
Dim image As McImage Dim stream As McStream Dim imrange(3) As Long Set stream = ThisApplication.Images.File stream.Open "d:\images\movies\big_shock.avi" stream.ReadFrames imrange, , mclfNoFlags, image stream.Close stream.Open "d:\images\jpeg\milan.jpg" imrange(0) = 3 stream.ReadFrames imrange, , , image stream.Close stream.Open "d:\images\jpeg\brithane.jpg" imrange(0) = 4 stream.ReadFrames imrange, , , image stream.Close stream.Open "d:\images\jpeg\c.jpg" imrange(0) = 5 stream.ReadFrames imrange, , , image stream.Close stream.Open "d:\images\jpeg\nyc_ash.jpg" imrange(0) = 6 stream.ReadFrames imrange, , , image stream.Close