36 lines
695 B
Racket
36 lines
695 B
Racket
#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)
|