ub Process_Globals
Public Serial1 As Serial
Private wifi As ESP8266WiFi
Dim SSID As String = "xxx"
Dim PWD As String = "yyy"
End Sub
Private Sub AppStart
Serial1.Initialize(115200)
Log("AppStart")
If wifi.Connect2(SSID,PWD) Then
Log("Connected to wireless network.")
Log("My ip: ", wifi.LocalIp)
Else
Log("Failed to connect.")
Return
End If
Connect(0)
End Sub
Private Sub Connect(u As Byte)
FTPClient.ConnectToServer2("www.orologissimi.it", 21, "user", "password")
End Sub
Public Sub FTP_LogIn (Success As Boolean)
Log("Logged in: ", Success)
If Success Then
FTPClient.Download("/download/Test.txt")
Else
Log("Failed to connect.")
'CallSubPlus("Connect", 1000, 0)
End If
End Sub
Public Sub FTP_DownloadComplete (Success As Boolean, Path() As Byte, Data() As Byte)
Log("Download complete: ", Success, ", path: ", Path)
If Success Then
Log(Data)
End If
FTPClient.Upload("/download/FileFromESP.txt", "Hello!!!!")
End Sub
Public Sub FTP_UploadComplete (Success As Boolean, Path() As Byte)
Log("Upload complete: ", Success, ", path: ", Path)
FTPClient.Close
End Sub