mirror of
https://github.com/QB64-Phoenix-Edition/QB64pe.git
synced 2024-09-17 03:13:55 +00:00
17 lines
291 B
QBasic
17 lines
291 B
QBasic
$Console:Only
|
|
Option _Explicit
|
|
Option _ExplicitArray
|
|
|
|
Dim f As Long: f = FreeFile
|
|
Open "./test.mp3" For Binary Access Read As f
|
|
|
|
Dim buffer As String: buffer = Input$(LOF(f), f)
|
|
Print "Size ="; Len(buffer)
|
|
|
|
Close f
|
|
|
|
Dim h As Long: h = _SndOpen(buffer, "memory")
|
|
Print "Handle ="; h
|
|
|
|
System
|
|
|