DLNA playback

2026-07-31 17:03:19 +02:00
parent 727e0643af
commit e54f6f4a5f
7 changed files with 1325 additions and 6 deletions
@@ -0,0 +1,40 @@
+#lang racket
+
+(require racket-upnp)
+
+(provide check-dlna-players)
+
+(define running-sem (make-semaphore 1))
+(define running #f)
+
+(define (check-dlna-players gui)
+  (let ((can-check (begin
+                     (semaphore-wait running-sem)
+                     (let ((rng running))
+                       (if rng
+                           (begin
+                             (semaphore-post running-sem)
+                             #f)
+                           (begin
+                             (set! running #t)
+                             (semaphore-post running-sem)
+                             #t))))))
+    (if can-check
+        (void
+         (thread
+          (λ ()
+            (let ((r (query-media-renderers)))
+              (let ((r* (map (λ (r)
+                               (list (media-renderer-name r)
+                                     r))
+                             r)))
+                (send gui set-dlna-renderers! r*)
+                (semaphore-wait running-sem)
+                (set! running #f)
+                (semaphore-post running-sem)
+                )))))
+        (void
+         (send gui dlna-query-busy))
+        )
+    )
+  )