mirror of
https://github.com/QB64-Phoenix-Edition/QB64pe.git
synced 2024-08-05 13:30:25 +00:00
18 lines
289 B
QBasic
18 lines
289 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
|
|
|