Greetings to all, forgive my English, translated with google.
I'm using the FTPSERVER classes for B4A on a Tablet with Android 4.4.
Start the server with these parameters:
The subroutine in Visual Studio is
when I run the client to send the file to the Tablet it generates an error message:
Exception during the WebClient request
I run it again and the error changes to this:
error on remote server: 227 192,168,3,2,199,99
in debug mode, in the log, these messages emerge:
client: USER Test
client: PASS test
User logged in: Test
client: OPTS utf8 on
client: PWD
client: TYPE I
client: PASV
terminated
from a Windows window after two attempts:
client: USER anonymous
client: PASS User@nada.com
Error: Invalid username or password.
terminated
client: USER anonymous
client: PASS User@nada.com
Error: Invalid username or password.
terminated
client: USER Test
client: PASS test
User logged in: Test
client: opts utf8 on
client: syst
client: site help
client: PWD
client: USER Test
client: PASS
Error: Invalid username or password.
terminated
terminated
terminated
client: USER Test
client: PASS
Error: Invalid username or password.
terminated
client: USER Test
client: PASS test
User logged in: Test
client: opts utf8 on
client: syst
client: site help
client: PWD
client: CWD /Application/Inv1/Entrada/
CurrentPath: /Application/Inv1/Entrada
client: TYPE A
client: PASV
client: LIST
Data connection terminated: /Application/Inv1/Entrada
Thank you for your answers.
I'm using the FTPSERVER classes for B4A on a Tablet with Android 4.4.
Start the server with these parameters:
B4X:
Server.Initialize(Main, "FTPServer")
Server.SetPorts(51041, 51042, 51142)
Server.AddUser("Test", "test")
Server.BaseDir = File.DirRootExternal
Server.Start '
Lbl_IP_Wifi.Text = Server.ssocket.GetMyWifiIP
Lbl_IP_Ethernet.Text = Server.ssocket.GetMyIP
Lbl_Puerto.Text = Server.Port
Lbl_Path.Text = Server.BaseDir
The subroutine in Visual Studio is
B4X:
Private Sub Conectar_Copiar_Sqlite_FTP(ByVal XArchivo As String)
'
Try
'
Dim ArchivoSubir As String = Ruta_Salida_Local & XArchivo
'
Dim RutaFTPCel As String = "ftp://192.168.3.2:51041/Application/Inv1/Entrada/" & XArchivo
'
My.Computer.Network.UploadFile(ArchivoSubir,RutaFTPCel,"Test","test",True,1000,FileIO.UICancelOption.DoNothing)
'
Catch ex As Exception
'
MessageBox.Show("El siguiente error a ocurrido mientras se copiaba el SQLite." & _
vbCrLf & vbCrLf & ex.Message, "Error")
'
End Try
'
End Sub
when I run the client to send the file to the Tablet it generates an error message:
Exception during the WebClient request
I run it again and the error changes to this:
error on remote server: 227 192,168,3,2,199,99
in debug mode, in the log, these messages emerge:
client: USER Test
client: PASS test
User logged in: Test
client: OPTS utf8 on
client: PWD
client: TYPE I
client: PASV
terminated
from a Windows window after two attempts:
client: USER anonymous
client: PASS User@nada.com
Error: Invalid username or password.
terminated
client: USER anonymous
client: PASS User@nada.com
Error: Invalid username or password.
terminated
client: USER Test
client: PASS test
User logged in: Test
client: opts utf8 on
client: syst
client: site help
client: PWD
client: USER Test
client: PASS
Error: Invalid username or password.
terminated
terminated
terminated
client: USER Test
client: PASS
Error: Invalid username or password.
terminated
client: USER Test
client: PASS test
User logged in: Test
client: opts utf8 on
client: syst
client: site help
client: PWD
client: CWD /Application/Inv1/Entrada/
CurrentPath: /Application/Inv1/Entrada
client: TYPE A
client: PASV
client: LIST
Data connection terminated: /Application/Inv1/Entrada
Thank you for your answers.