subclass of JvsBuffer for holding frames from a JVSource
INTERFACEJVFromSource ; IMPORT Ctypes, JVBuffer, Jvs, JvsBuffer, jvprotocol; TYPE StreamInfo = RECORD serial : JVBuffer.Serial := 0; (* timestamp for info *) kind : Ctypes.int := jvprotocol.JVP_KIND_JPEG; qfactor: Ctypes.int := 0; width, height: CARDINAL := 0; END; TYPE T_Public = JvsBuffer.T BRANDED OBJECT info: StreamInfo; END; T <: T_Public; TYPE Factory <: FactoryPublic; FactoryPublic = JvsBuffer.Factory OBJECT METHODS init (jvs: Jvs.T): Factory; (* the "jvs" is used to create shared memory buffers. It should already have been opened *) END; END JVFromSource.