27 lines
545 B
Racket
27 lines
545 B
Racket
#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))
|