Hola a todos.
Muchísimo tiempo sin aparecer por aquí.
Una pregunta, si es posible.
Una App con mucho tiempo, recompilada con b4a 9.80 al recibir ficheros por Ftp, en el evento Ftp_Listcompleted viene success= True, pero Files vacio, cuando realmente SI hay ficheros en el Ftp.
Si me funciona en unos terminales, pero en el que tengo Android 10 no me funciona.
Algún tip ?
Saludos
Muchísimo tiempo sin aparecer por aquí.
Una pregunta, si es posible.
Una App con mucho tiempo, recompilada con b4a 9.80 al recibir ficheros por Ftp, en el evento Ftp_Listcompleted viene success= True, pero Files vacio, cuando realmente SI hay ficheros en el Ftp.
Si me funciona en unos terminales, pero en el que tengo Android 10 no me funciona.
Algún tip ?
B4X:
Sub FTP_ListCompleted (ServerPath As String, Success As Boolean, Folders() As FTPEntry, Files() As FTPEntry)
Dim cFile As String: cFile = cFileDown
Dim cFolderFile As String: cFolderFile = cFolderFileDown
'Msgbox("completado " & CRLF & ", resultado: " & Success, ServerPath )
'lListCompleted = True
If Success == False Then
Log(LastException.Message)
Else
'Msgbox("viendo tema", Files.Length)
'aFilesRecibe = Files
'For i = 0 To Files.Length - 1
' 'Log(Files(i).Name)
'Next
'For i = 0 To Folders.Length - 1
' Log(Folders(i).Name)
'Next
If lFileInFtp(Files, cFile) Then
' Parametrizar bien la carpeta destino y el nombre fichero destino... deberia meterlo todo en un objeto...
FTP.DownloadFile(cFolderFile, False, Rut.oApl.cRutaDb, "maestros.db")
Else
'Msgbox("Fichero no encontrado !!", cFile)
Msgbox("Fichero no encontrado !!", cFile & CRLF & cFolderFile & CRLF & Rut.oApl.cRutaDb)
FinFtp1
FinFtp2
End If
End If
End Sub
Sub lFileInFtp(aFilesRecibe() As FTPEntry, cFile As String)
Dim nI As Int
Dim lFile As Boolean: lFile = False
For nI = 0 To aFilesRecibe.Length- 1
'Msgbox(cFile & "///" , aFilesRecibe(nI).Name & "///\\\" & aFilesRecibe(nI).Name = cFile)
If aFilesRecibe(nI).Name = cFile Then
lFile = True
Exit
End If
Next
Return lFile
End Sub
'Sub btn_download_Click
' FTP.PassiveMode = True
' FTP.Initialize("FTP", "your FTP location", 21, "user", "passw")
' FTP.List("public_html/your folder or file")
'
'End Sub
Saludos