Wish MP3-TF-16P

#If C
#include <DFPlayer_Mini_Mp3.h>

void Mp3_set_serial(B4R::Object* o) {
   SoftwareSerial* soft = (SoftwareSerial*)b4r_main::_softserial->getStream()->wrappedStream;
   mp3_set_serial(*soft);
}

void Mp3_send_cmd2(B4R::Object* o) {
mp3_send_cmd(b4r_main::_cmd, b4r_main::_arg);
}

//void Mp3_send_cmd(B4R::Object* o) {
// mp3_send_cmd(b4r_main::_cmd);
//}

void Mp3_set_volume(B4R::Object* o) {
mp3_set_volume(b4r_main::_volume);
}

void Mp3_next(B4R::Object* o) {
mp3_next();
}

void Mp3_prev(B4R::Object* o) {
mp3_prev();
}


void Mp3_sleep(B4R::Object* o) {
mp3_sleep();
}

void Mp3_reset(B4R::Object* o) {
mp3_reset();
}

void Mp3_pause(B4R::Object* o) {
mp3_pause();
}

void Mp3_random_play(B4R::Object* o) {
mp3_random_play();
}

void Mp3_stop(B4R::Object* o) {
mp3_stop();
}

void Mp3_play(B4R::Object* o) {
mp3_play();
}

//void Mp3_play_num(B4R::Object* o) {
// mp3_play(b4r_main::_num);
//}

void Mp3_single_play(B4R::Object* o) {
mp3_single_play(b4r_main::_num);
}

void Mp3_single_loop(B4R::Object* o) {
mp3_single_loop(b4r_main::_state);
}

void Mp3_get_tf_sum(B4R::Object* o) {
mp3_get_tf_sum();
}

void Mp3_get_tf_current(B4R::Object* o) {
mp3_get_tf_current();
}

void Mp3_get_state(B4R::Object* o) {
mp3_get_state();
}

#End If

Sub Astream_NewData (Buffer() As Byte)
    Private st As String
    Log(st)
    If Buffer(0) = 0x76 Then  ' "v"
        Private buf(2) As Byte 
        bc.ArrayCopy2(Buffer,1,buf,0,2)
        st = bc.StringFromBytes(buf)
        Log(st)
        Volume = st
        RunNative("Mp3_set_volume", Null)
               
    Else   
        st = bc.StringFromBytes(Buffer)

        Log(st)
       
        Select st
           
            Case "Cont"
                State = False
                RunNative("Mp3_single_loop", Null)
                continuous = True
                Log("cont = ",continuous)
               
            Case  "Next"
                RunNative("Mp3_next", Null)
                play = True
           
            Case  "Prev"
                RunNative("Mp3_prev", Null)
                play = True

               
            Case  "Vol0"
                Volume = 0
                RunNative("Mp3_set_volume", Null)
           
            Case  "Loop"
                    State = True
                    RunNative("Mp3_single_loop", Null)
                    continuous = False
               
            Case  "Playpause"
                If play Then
                    RunNative("Mp3_pause", Null)
                    play = False
                Else
                    RunNative("Mp3_play", Null)
                    play = True
                End If
               
            Case "Random"
                State = False
                RunNative("Mp3_single_loop", Null)
                Delay(1000)
                RunNative("Mp3_random_play", Null)
                play = True
                continuous = False
               
            Case "Stop"
                RunNative("Mp3_stop", Null)
                play = False
                continuous = False
                Delay(1000)
                State = False
                RunNative("Mp3_single_loop", Null)
               
            Case "watch"
               
            Case Else  ' song number
                Arg = st
                Log("song ",Arg)
                Cmd = 0x03
                RunNative("Mp3_send_cmd2", Null)
                play = True
                Delay(1000)
                State = False
                RunNative("Mp3_single_loop", Null)

        End Select
        watchtmr.Enabled = False
        watchtmr.Enabled = True
    End If
   
End Sub

Private Sub AppStart

   Serial1.Initialize(115200)
   Log("AppStart")


   If wifi.Connect2("xxxxx","xxxxxxxxx") Then  ' change to your wifi
        server.Initialize(55055, "server_NewConnection")
        server.Listen
        Log("Waiting for connection.")
        Log("My ip: ", wifi.LocalIp)
    Else
        Log("Failed to connect to Wifi.")
    End If
    timer1.Initialize("timer1_Tick", 2000)


    Softserial.Initialize(9600,d1.d3,d1.d4) 'in wemos - pins 8 rx,9 tx or any other pair
    Softserial.Listening = False
 
    pstream.Initialize(Softserial.Stream, "pstream_NewData", "pstream_Error")