play local files to a DLNA Renderer

2026-07-30 23:27:55 +02:00
parent 5fe5ae2976
commit 07ed0917e9
7 changed files with 1056 additions and 1 deletions
@@ -0,0 +1,26 @@
+#lang racket/base
+
+(require racket-audio-dlna
+         racket-upnp)
+
+(define renderer
+  (get-media-renderer "Denon"))
+
+(unless renderer
+  (error 'racket-audio-dlna "Denon renderer not found"))
+
+(define player
+  (make-dlna-player renderer))
+
+(dlna-player-play!
+ player
+ "/muziek/radiohead/in-rainbows.flac")
+
+(define info
+  (dlna-player-info player))
+
+(printf "State: ~a, position: ~a, duration: ~a, volume: ~a\n"
+        (dlna-info-state info)
+        (dlna-info-position info)
+        (dlna-info-duration info)
+        (dlna-info-volume info))