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 SubSaludos
 
				 
 
		 
						
					 
 
		 
 
		