windows - needs to preload ffmpeg libraries

ffmpeg-ffi.rkt

@@ -17,6 +17,18 @@
 
   ;; Adjust the names below if your shared library has another basename.
   ;; get-lib is used in the same style as libmpg123-ffi.rkt.
+  (when (eq? (system-type 'os) 'windows)
+    ; preload ffmpeg dlls.
+    (void
+     (begin
+       (get-lib '("avutil-60.dll") '(#f))
+       (get-lib '("swresample-6.dll") '(#f))
+       (get-lib '("avformat-62.dll") '(#f))
+       (get-lib '("avcodec-62") '(#f))
+       )
+     )
+    )
+  
   (define lib (get-lib '("ffmpeg_audio" "libffmpeg_audio") '(#f)))
 
   (define-ffi-definer define-ffmpeg-audio lib

play-test.rkt

@@ -19,8 +19,8 @@
   (when (eq? os 'unix)
     ;(set! test-file3 "/muziek/Klassiek-Viool/Alina Ibragimova/Paganini_24 Caprices (2021)/24. 24 Caprices, Op 1 - No. 24 in A minor- Tema con variazioni. Quasi presto.flac")
     ;(set! test-file3 "/tmp/test.mp3")
-    (set! test-file3 (build-path tests "mahler-1.mp3"))
-    (set! test-file4 (build-path tests "mahler-2.mp3"))
+    (set! test-file3 (build-path tests "mahler-1.ogg"))
+    (set! test-file4 (build-path tests "mahler-2.ogg"))
     )
   (when (eq? os 'windows)
     ;(set! test-file3 "C:\\Muziek\\Klassiek-Strijkkwartet\\Quatuor Zaïde\\Franz\\01 Erlkönig, D. 328 (Arr. For String Quartet by Eric Mouret).flac")

private/utils.rkt

@@ -73,7 +73,7 @@
       (download-soundlibs))
     (if (null? libs-to-try)
         (begin
-          (displayln (format "Warning: Cannot find library, tried ~a" orig-libs))
+          (displayln (format "Warning: Cannot find library, tried ~a in ~a" orig-libs (build-lib-path)))
           #f)
         (ffi-lib (car libs-to-try) versions
                  #:get-lib-dirs (λ () (cons (build-lib-path) (get-lib-search-dirs)))