7 Example🔗ℹ

(define renderer

(get-media-renderer "Denon"))

(define player

(make-dlna-player renderer))

(dlna-player-play!

player

"/muziek/radiohead/in-rainbows.flac")

(dlna-player-set-next-file!

player

"/muziek/radiohead/bodysnatchers.flac")

(define info

(dlna-player-info player))

(printf "~a: ~a / ~a seconds, volume ~a\n"

(dlna-info-state info)

(dlna-info-position info)

(dlna-info-duration info)

(dlna-info-volume info))