Android Question Base64 String to (mp3) file?

Multiverse app

Active Member
Licensed User
Currently, I am receiving a JSON response from an API having audio data, from which I need to play the MP3 file.

This is the code I am using to save the .MP3 file:

B4X:
    'strAudio contains the audio data
    Dim out As OutputStream = File.OpenOutput(File.DirRootExternal, "CloudTTS.mp3", False)
    Dim Data() As Byte=strAudio.GetBytes("UTF8")
    out.WriteBytes(Data, 0, Data.Length)
    out.Close
But the file seems to be corrupt.
Attached is the JSON response which is being parsed.

What is the correct way to do this?
 

DonManfred

Expert
Licensed User
B4X:
    Dim json As String =$"{
  "audioContent": "//NExAASSC4AAAhGAGAAEb9EED4PlHKOCc+oMEIODQfygIf3fLh+UOT+JxxzLh8RvKHFhgTwQcJz6ygfE4f6gQg/E4PgQYCEHy4fBAIh7E5QHwfPiceqDPCEMNaAnSwd//NExAkQYC4MABBGACcShoiHaCsFRmIhKGv0fJcSiXxFrOlnkcJlXKCp2DQsDU74iHgsEgqCpG0qCowNFjwKgiWqDvEpCj+GIcZiwVuEhqwIrxAIHkCB4fBMEYPigwMX//NExBoQYDoEAH4MBF4otRwEF85/gh6eEAgoEwQda7KKOVU2lLsPifDCMVbWmEX2OIFzeXowKwPzA2ADMn1PE1aTDzBUCaMGMAcwnAfB0B8wCALB6bps4nIy1uHqGX2a//NExCsbmI4MAPYGTZUwEIaZC3cwMfAo5Ed05yPApYGkeJ8vyZX/18piu5X9tA1t3ee43Q8le2BLrjKNPKh0Pv/2g2s9tT3a5nuxYjmGole1RJLLiJWnUUuJLsaHhpQ///NExA8UqV5QAOIKlAOWhiMCmGwmno3N9njnqiad7StNPRBRPLHg0UJAWSWwfwgo30AAUEGOMFKz1Ofn/U56i4MID4YKcTv/+p3rkOicyfy6vTiqpkQsRGaGgIGDApE6//NExA8U+XKEANvQlFRxUlMPA0IkrILft/e/pSmf//r/f9JJ3jGn1MsKQbgmCXT7mXFOyC59kg3c8JAgssXe6////4S0SKQXcPixyqr//9P/0cMeKrGKgDil3hGBAyMO//NExA4VoW6YANvSlGmozICYS/KTLJ4+qTa19Xz///95rakeKgi5m8GoLsW0YZezICk0GSnPTAgRhIDAi0G1yDNy/X//v/1m7sNUpouGQfcLP6v//rX/+nXKDmD60xgw//NExAoT4YKkANNalch4caKNFmrSKmGGLHqWh6fp9E6fRKyWBTgAUCTCGKIfjFiMYmp+iYlAli4bCNBygsRtMSaiYaC6/V6m0UUnSrPoxqYnr9X/3ksAVS7rzDjNKNTu//NExA0TKRakANHecAUzEQkaeEr8avWY3VPn5Xo75OsBzAfULV7grlvXzqLXFoLW0NbYh0clMFQM04VZ2aLTxUFTSyqmnTq0f/o//1LVm3GkGDlcbd+pa0l5GHReiv87//NExBMUsoacAMlEufzf/po5SlIAQm6CxW/uvtEWN////9ezL7PbJnpPV6IQIALMQWHFqd4AITSRkIVyFFoANDnkV6j+dG+fiMPEXD6isKKCfX//////////////f/qr//NExBMV4xKkABASudyGeccs+nb5fV5IIsJWiiqwXRF0ckc0K1vMaUkOROBBfJrnGyM23KAboGEsm97KaKiQkVPw3F1Vkcl20cNnS8SSDDSY6v/////////////ubr+u//NExA4R6vq4AAAMufuZ37eHg5OTz3NKDoOMMNNB00yCk1hFEOVImUAnMsmgrqqTSQ1KTNAsIo+4x6Rimg1HXfX/SOEWh13iAEUXRg43////9f///////XtXS+urGQpV//NExBkR+tK8AChKuYqSIDTihxyiIuQ5ihJxdmdjFUocFzyOZGQPGxyOHTKLKxMScrV3RxkFYWbjDtKoyu0iwQqOxV9hCqeNZflvKZ/L3///9DGiIAwi88+3/eiuzf////NExCQSWeakAMnEmP9aMqEa+XoZLG2QxUFK5ITMnQEaWCtyzqzpUSnSOCpb9BG7EqUV/tK/Q0ehbeAHOYtkmatSDGH2clN1dXbUys4T0zYOgbJIGgXQljJI/W0QigoK//NExC0RaZ6cANNKlQAiyGM///tqqoIDFFxQWIFiwgJBQK2GXELLG0kQiVZRmMkjwAEsvSdC4Uwa179Ho6+roJImg9xyichcAc4jIjJTQNkXQ1SxUHylhOBYUkiTf/////NExDoSWa6cANtOlTTCUoOEyxcTGDgqPeXOb7XP2xmJKYVUqDvtku4HEAVfoYPvtr//VBYgeAweBg6AL2/mdHEj8l/7qxYRBwOIkiM64u8vZyBRzyCmq1SDf6/qZhVA//NExEMQAPKYANFKcAxNTgVIeZ4yN0f////1000ZJCodEUPgcXqISEFDuhSLucTFztORkYPh8OCm5EY5BQcqERrMkPnF/k+CXWwnPwD34CHkL///////9/n//X9QjD+e//NExFYRcqaoAGgKuUKrMpT3kEcKLyaLvFd+KNhIjZLGV3kZMclJdFBMjbwh1GsnYm6zm5ksk9x6NU8sJ1VmN+2YOpPjSM9DGXbOf2M7aqTbKv////////3//bvG5j73//NExGMVGxasAAgSuEvXuUrUWEsg9WCkE0UHS1AcRIThYBBAyTgRLOlsdNoyVSXIoWNKnDXN0aRQTI82eRRIw2czTiS/3TX4v////+L/Vf2ZVi+V54vbg6loOjmJi1JN//NExGER6sqwAAAMuSh4ciAC4mQ6H0ws4ckB81ipppRzOUHw1DmhuwdD2iTGYqpFRWNtbU0FFFb/0kmGuhLLMwnIen5/r/////n////L+3+GxJz8rXSfDIMIFzYCqEw6//NExGwSarqEAAgQuf1gwXWCtaMglGNwuaupAhVWnC0cjoZLFRcsOLRVu1c5peygxcpohOSIjnEpO57nd//roZO5om6F0DPQGACOJ4ZcKhk9/g3CM9/UYRo0YrbbpBhI//NExHUQOopIABBGuEbaDIKMLsMTEYGxWjBMN3ULmXFZPq4XAtG2XFbaNRjwCgYFABAMH8QMZ/RATkbZcEw2u3RRknIDBGtFIVtz85qR0jRyhAuT14Wox8w+dYyQF5HT//NExIcgYwpwABjSueyfeJMhbd110Hz9//3+7EB4WwPicXBoHp9P6fdC72jnzJ4/rwy6uc19+5OF7hwgwjggUGDDUkLeNRpnJoKJ1mwsrMWQJighQEypRIiEYoskkjbU//NExFggyxKMAEoSudIjLdkS7Hk1ZxkhNED4PJkiHlkM5EWsbGDTCSr4xvyVSjLWMTW/Xc/cirIqz7aITnUcommyGqgLfJ6RCYHAeNBcJCvNu2/OUmc1/O+7nn4TgPeS//NExCcZcdqgAMMQmOCwfIpV2Yc9txOZ0OD8PwuIohJNC91/y/8vM3E2NF7QthhApMRaUMSkMWG1WbpiYVxKGp3vH74FOrMN/+e2Ivx1BKTMpszQXGBAbcqbsI4oYzZs//NExBQWoaasANPQlT4MuPtrUqPbIEsebPkZ6alJ3HMMMk5AA2YA0xYUzGYRjAWc40IwWBAJBcRQVkiYo42x/K9fxXOkRStMtLq+6nQztdmRZB26//wZlIM9yomrJ6sS//NExAwTWYK0AMPOlREUVkXmzwMUytYw2M9LSvXesTuT2JQzxvRdBUktDDUDcfsg+eUMFQwcKBJAQEjqYL2Ma/f/t1dESexhFKQCyR9Ctf/7rK5Dng7AG9SyuOLUPyaS//NExBERQQK4AMYecOWGjubvKxHqPX3q2f4e91C6JLzHXlIfASpxouEQm2RWTMaxRWKRTwI8OHJhxb/4tI5qocj/+UCQO6scHJgdbhpxBXMjuKvIbFzWFb6xXXz/94gx//NExB8RKP6oAMvecHLDETyqaksO0BFcjuRR/On7w5kcuFe0Ic+V2RKV/9k9ERpp6ItCs24SDUGsDzStaBz8jC37MCyTO29nozU5lll//l//9fuuv8WrlWtxgi3CZJNK//NExC0SiQp4AVh4AK7QwcQ5RwxmE7jiYVahrLSFG3//30eV//////T01T9FKYzoLohRoD/yQwNQBpj9dGJRDGVfqKk6P47Pi2cJDoaPQG8lFJsalg7TWHEQ6CaN4npK//NExDUfYyo8AY9YAGPmu+RoUYvmnP///66tuZRvP///TOvmGIVJMOxP/9vmef/m/9hfBoaMBPQagccPH//zVVd/8RH1c1cV5MYwpJ5LPD4NhMpdM3WOUwMhT2YVTMuq//NExAoUcyqgAYEoAOdTkG7nH2xEEKhAUev/X2///9bJ/9FOznZVqgfOov/2xs5TibnA51HIEIBh45AGEggOf//3OH3ZCOR1nfFB4kHxEecXWJmEGf/ujLT//////6f///NExAsQ+s60AcAoAaXtWLiZVEznAM4kKnD4mw+dUMKCDEUY7niDOIoc6sjoKHF1OYcdDIhA+RMQFBjHs53FGsnwEbIM5v///L////////////9v97/7++/4+YSp2yDU//NExBoSitqwAABMuUxJZEhCVAZGWGwo81GE1MuUnzogLaeWZd9zGdRNE5Ldk6VG5F02+prvJr/pLXz8itX//////a5/mmuVZmY74G2MD7KdYOFr+OAbAuRxUVUkcUJQ//NExCIReq6MAAAQuRYPrFTZJNoVposVNWKKBsHzCzSbJIqjTAs2QUNCgqKC/1b/FOZA4JfMBv+f8v///Nxr/r3+n19z6yIkTiIT/EIOLSFWGeeBuhGILiFErwAAEh7u//NExC8SKqp8AAhGuWWiTwhO78QAV4IJD0osOLgm/vzdAnpLj3h9+chnZcX///PxP//r//z/8rxqRsx1hZFG75KTLJqFGjPmF2FAhQlMMwpxNJwooEBU2UEesnmAqAgh//NExDkSOnJ8AAhGuUBBSUymEMF5BJoLW7+fZ2TjfkQFly51/8FyB/z+xj///C/Qu+7uHMkREru70DO+igYAIBuVMAG3oMXQ4G6RbCoP0TTfRzTQtEOIouHAIGFqFAs6//NExEMSCn6AAAhGuEylbdb11fc7A1CBVQNgdCvV7ZFv////0XKv/MXXb//bWWVZUV0Q7NWVnuUxUZTsOwJ7qdgQdl68X2hNCyRVFEaRNZqBJvmy3f9S3b+772/qyxYw//NExE0SafKcAHhEmWiO9i5ScsMpZUIRwd/Alf+uujf/U9TyB54+E46jW9EYkTD4xAma7f/Sz2nORzuNFznY4uQTF2KC5Kr/vXXHTxhUApUyTHIEOB2RgQEAWXN35PpB//NExFYP2Y6YAMnKlM0aYaldXxog3B0CIUA4B4kDJey+YulNHA0F4cNr1f///zyv49msdbDJHDokQVJLtihQLXXfVoD12qrGKXhJGmiSuAVydHu+M+e1H09XZhEAJFo8//NExGkSYaKYANnQlQBEm/8zmoY7FK///11qWm+Uj1NR7sCZXyH636up2v6FhEDxWwEkHJELwQh1Hv///////4Vpf0/+nxCQoT6JwnFsmiEENEiIERPzN3hbm5ziAZu9//NExHIPobKUANHElLhCVwECP8Pfn84iMBvZ2vv////+9/v/1koZ1PalxnObeP3UCs3QUNmXRvV5k42TN/UUW3w8EUHZyNKLZQoSSpgjNsYWK9RZA44SpuLn4kcYQww1//NExIYQaoqoAFgGualStFZqKSQY3DYX2pbk5wSZUv/+/b/+0J7xzp83rW0OSXtfRFJ/nMraG7Jh1F2bXKxVGPt2dKObMGXBq/RR5JJ0VGEU8wxTJYSTRY1aTb5zLney//NExJcVcxKoAAgSudpSbbQb5Kr//////lh//t5Mc+gQ8YUolQY+oCAgJcEw9QwpSwESCFRmaM19VJfY6WFZjPh4ZQEBUEKtUCpARxrIKCiVCoBHVAS5ynmFVVC/lc7m//NExJQR0ua0AAAMuRRM1/8n/////0f6S/M5WVjI6CwiQPB4InZWMrTMbUqsJENSjlmUvNypSVBJ3wn0BX7qJLFYXwv6SyK7i2x/rvNGgqpagVOF0BNDv8l4JtAZy1DQ//NExJ8SWuagAABGueLQcEYeFpPv+nFJXU20PB6cP+5MInYe6dN2QPTY44CAATpicoTKROQajl58n68h///JlJPf/TVrb2rAm3zZjJgYAABQCNsjjRAYyMrMxEwIHF8H//NExKgRCh5YAAhKmVIbfRY8R481Df334E17w8UgOoqvhQ0WWNDC7kvP0AnCLAJABgfi7LnZchDwMaXhH44worqPhgZK0hz+lPiHH9395G1D2d/jTx5BV9qUePJFZN9w//NExLYRmPJAAMIMcB4YCJ8EP7upu+7znUUR4Yy4EVIKpYkSAKYBFKYBAexEwFF4wHsIwaEoKA8uAeCeHaWml1Nnlf7+eWW99/8e6zzx+loo1GriqKlqqSGhwCo0ECOk//NExMIgmapoANvelImQ11hyCj72clVk5YOS4L0Om3Vw4VLKLWOss7XN41NWsI1Io3K3yquPRw29TgPzG7c3P3+SidlnaSSUmG6fFD///93/0LMp9Cb+U4EAyYblAWBz//NExJIh8bp4AO4wlHHDGjl4gUBEwDvH2769v/9HRwdBZWAt3UiLGeq365cb1T6pjwT9bnWZfvX/z9Zz/5Md9FkxDcps9yiebOMUTe3XqAh0UATWxwEPGci8dKXZXXf7//NExF0SKZKUANleleu8v//3gmTKeauqFQWpwwDRfqTCpUsiQWo0VgjR723/T/P/3W12/7jRsPOzR9QJ1Znb3Wf0ykAQGIBzCog2dFMDCmSEIEPA9/mNL////3gzMS+d//NExGcRgY6QANhelc+TwnQcRfnxZNsdiU7KkF5XrLyWD9x/rP9dfOtUtrHeva4rGtp9tjHO8OhpnQCugy9tP/vDcSIxoEM5AFBYakV7GP////RAa2fsFmUaRUw3ySnm//NExHQSQY6MANielXs7XmGCf6pZ9+akeDvPrrfz/nWt43CnrLAfM17Wi/UqlTRwuzMwFBR86TY1JY5kgQnxYvBrEb38/////CX5a6k5QxCywG2N4vqdP5qVMGGwxY0f//NExH4SiZKAANhelM8v1XVs6zjFvi9cxMa1SENNvjWgFQqE4cGG81m2nh+M1SUOFAUIEBpsI6f///////PnSYZjwKIpgAkABseQEieSHMTOEolyz/3+UzcJkTUuriq0//NExIYRWXp4ANBelThIpmM3QPcpMEqOJBMcFL8upJQ63/////WqUxBSREFCgBbw/gkQMIOUL0OUc5KmyyRKIUd+V5nu6rJKSbqjCEUFBRlCSYzEGqiRraAAQwx0Od2A//NExJMPORJsANCWcR7kL/////7mSysQUZQOYJIBTh5AmoXElQupCLsuqAR4asaiLEREOFCW7////9f19rdo5NFwgag6mQTgZB9cCLlkEf3fZ9B4KHivbl0///poimCs//NExKkP4RZcANHacT8F0QwEoqCcDaaIksBZIiWI94rEVsjZ////+ne1j7+7fcMVvQ4Oi3oBAgAhP1HNERE9w4uSFo4f/rt2kiBDFIv68yAEBQKHUQCiMSMnRtzX1RGB//NExLwSeRJIANhacAPkA+UE4PioHZIf60ZfnFn/I////qX9t8mw8glhbExg8My+SBfdotWFqis0Ct2HcHHf4iyXXjKUZNC9m0lhuDgWTsJ+F+eY6DnhHyoHRwSwrJkA//NExMUQUPooAMFUcCJyApMdJSjlyecYgkJJLu/6U+7j73e6qd80ikw9B2QCL/0+Dy2n/DMumz7B/djU8b9XRamk7v5v8z9H8EycxkX9EccI8CeqK+lkq2266qphAeOB//NExNYRYSZQABjScHIDoUiHl9SRumqj4oSYZxOWEzlp5LNbb3GdWzb//P3iDUJiI8x4SLfkVgs9wlc/KjBwSHp2NX6f+tX7GKTVxQ2Ig06HUYKAiVgMT+RfLTttrVmJ//NExOMfImJgADPMuXFUQRKQzw+KoilwAI3hYehASBmBolUjCRa0kmCr2QVBZ/zvGAWIn/grsK+SJf//6WPFMBVgyOVIS3M3dljq9yYvnnwzXsUSXzahS6Fi4P3xO+qL//NExLkTEU5oABKelAQXRN3/tx3sk0Mpv2f7jnWx/yutzDbAuorikUFxWi5BqmXPhfWzF5zHioXhXhP9FdG+N+D/TWznf+OXeNtu/WMLWX+b81oU1v80423zf9mDmH/F//NExL8SQQY8AEjYcHRTsjsjvBXRXwjshngrgXwobkMxBegvhQ3IZiK6CyQ5KVoiLBNNQ5KVoiLBNNQ5KVoiLBNNQ5LTRMlK01LBNNGkpWm6xWm2ktNPrU0//af/tNv+//NExMkTGMH8ABmGTZt/02/+0//abf2mlX6aVVe0yqpMQU1FMy45OS41qqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqTEFNRTMu//NExM8RuAHgABBGuTk5LjWqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqTEFNRTMu//NExNsR6AEMABjGcTk5LjWqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqTEFNRTMu//NExKwAAANIAAAAADk5LjWqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqTEFNRTMu//NExKwAAANIAAAAADk5LjWqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqTEFNRTMu//NExKwAAANIAAAAADk5LjWqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqTEFNRTMu//NExKwAAANIAAAAADk5LjWqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqq//NExKwAAANIAAAAAKqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqq//NExKwAAANIAAAAAKqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqq"
}"$
    Dim parser As JSONParser
    parser.Initialize(json)
    Dim root As Map = parser.NextObject
    Dim audioContent As String = root.Get("audioContent")

    ' You are missing to DECODE the base64 String.....
    Dim su As StringUtils ' Tested in B4J using jStringUtils / use Stringutils for B4A
    Dim decoded() As Byte = su.DecodeBase64(audioContent)
  
  
    Dim out As OutputStream = File.OpenOutput(File.DirApp, "CloudTTS.mp3", False)
    out.WriteBytes(decoded, 0, decoded.Length)
    out.Close
 
Top