Port of the espresso ESP32 Bluetooth A2DP_Source to compile and log to Serial using Arduino https://github.com/espressif/esp-idf/tree/master/examples/bluetooth/a2dp_source
The following link is another modification of the espressif source (which I found after uploading this): https://github.com/markingle/a2dp_source
Ideally this could be merged with a more complete library which includes decoding of other codecs, etc
As it stands the code can often (see below) connect to my BNX-60 bluetooth headset and play white noise or one of a couple of other patterns as per the original example, but playing a proper audio file isn't yet implemented...
Unfortunately I have found this can require multiple reboots of the ESP32 and/or BT headset before it will pair (although it seems stable once it does), so I may also try the Blue Kitchen btstack https://github.com/bluekitchen/btstack which has a port for ESP-32 and rumour has it might be better...
BTW in case it's helpful the following script can be run in Microsoft Word to convert binary files (such as mods or wav files) into text format for use with progmem if using eg ESP8622Audio library https://github.com/earlephilhower/ESP8266Audio
Sub modsToText()
curFilename = "C:\Users\dgm3333\Downloads\1_channel_moog.it" ' change this to your file name
Dim intFileNum%, bytTemp As Byte, intCellRow%
intFileNum = FreeFile
intCellRow = 0
Open curFilename For Binary Access Read As intFileNum
linecount = 0
Selection.TypeText ("const unsigned char converted_mod[] PROGMEM = {" & vbCrLf & " ")
Do While Not EOF(intFileNum)
Get intFileNum, , bytTemp
'Selection.End.Select
a = Hex(bytTemp)
If Len(a) = 1 Then a = "0" & a
Selection.TypeText (" 0x" & a)
If Not EOF(intFileNum) Then
linecount = linecount + 1
If linecount = 9 Then linecount = 0
If linecount = 0 Then
Selection.TypeText ("," & vbCrLf & " ")
Else
Selection.TypeText (",")
End If
End If
Loop
Selection.TypeText (vbCrLf & "};")
Close intFileNum
End Sub