Media file server

2026-07-15 20:48:58 +02:00
parent c6954f5109
commit 1884008dd6
5 changed files with 349 additions and 138 deletions
@@ -0,0 +1,35 @@
+#lang racket/base
+
+(require racket-upnp)
+
+(define files
+  (start-media-file-server
+   "http://10.7.3.118:8080/media/"
+   #:listen-ip "10.7.3.118"))
+
+(define current-uri
+  (media-file-server-publish!
+   files
+   "C:/muziek/current.flac"
+   "current.flac"))
+
+(define next-uri
+  (media-file-server-publish!
+   files
+   "C:/muziek/next.flac"
+   "next.flac"))
+
+(define renderer
+  (get-media-renderer "Denon"))
+
+(when renderer
+  (media-renderer-play-uri!
+   renderer
+   current-uri
+   #:next-uri next-uri))
+
+;; Call this after playback no longer needs the URLs:
+;;
+;; (media-file-server-unpublish! files current-uri)
+;; (media-file-server-unpublish! files next-uri)
+;; (media-file-server-stop! files)