efim/scratch-screen-share
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

still not getting data from buffer

Browse Source 
but the error is in gir::map-c-array
length is NIL, not sure what's up with that
This commit is contained in:
efim
2024-08-23 12:44:11 +00:00
parent 5575db018e
commit 73316581a0
2 changed files with 251 additions and 8 deletions
Download Patch File Download Diff File Expand all files Collapse all files

13
gstreamer/capturing-frames.lisp
View File

@@ -6,9 +6,9 @@
(:use :cl))
(in-package :capturing-frames)
(gir:require-namespace "GLib")
(defvar *gstreamer* (gir:require-namespace "Gst"))
(defvar *gstapp* (gir:require-namespace "GstApp"))
;(defvar *gstapp* (gir:require-namespace "GstApp"))
(defun cast-with-videobox (&optional stream-num)
(gir:invoke (*gstreamer* 'init) '())
@@ -50,7 +50,6 @@
(gir:invoke (pipeline 'set-state) (gir:nget *gstreamer* "State" :playing))
;; Example: Move the video 10 pixels down and 20 pixels to the right
(values pipeline appsink)))
(defun process-frame (sample)
@@ -61,6 +60,7 @@
(caps-struct (gir:invoke (caps 'get-structure) 0))
(width (gir:invoke ((gir:invoke (caps-struct 'get-value) "width") 'get-int)))
(height (gir:invoke ((gir:invoke (caps-struct 'get-value) "height") 'get-int))))
(multiple-value-bind (found map-info) (gir:invoke (buffer 'map) (gir:nget *gstreamer* "MapFlags" :read))
(format t ">>>> the buffer has offset ~A~%" (gir:field buffer 'offset))
(format t ">>>> what's in struct? ~A~%" (gir:invoke (caps-struct 'to-string)))
@@ -70,11 +70,8 @@
(let ((data (gir:field map-info 'data))
(size (gir:field map-info 'size)))
(format t ">>>> and struct info? ~A~%" map-info)
; (format t ">>>> and data has size ~A and buf ~A~%" size (or data "empty data"))
)))
;; Unmap the memory when done
;; (gir:invoke (info 'unmap) map-info)
))
(gir:invoke (buffer 'unmap) map-info)
(format t ">>>> and data has size ~A and data is ~A~%" size (or data "empty data")))))))
(defun start-processing (appsink)
(gir:connect appsink "new-sample"