Italian [Risolto] [B4J] Client FTP

Aldo's said:

Buongiorno a tutti.
Ho provato a cercare un tutorial per eseguire il download di un file da un server FTP (Altervista), ma non ho trovato nulla sul forum.
Potete darmi una mano?
La mia esigenza è quella di scaricare un singolo file in una determinata cartella.
Grazie

Click to expand...

LucaMs said:

Prima di provare a darti una mano (forse l'ho fatto, in passato), fai una prova "interessante": chiedi a ChatGPT, spiegando bene che usi B4J e, se sì, magari anche B4XPages.

Click to expand...

Sub Process_Globals
    Dim ftp As FTP
    Dim downloadFolder As String
End Sub

Sub B4XPage_Created (Args() As Object)
    ' Inizializza la libreria FTP
    ftp.Initialize
    downloadFolder = File.DirApp & "/Download/" ' Cartella per il salvataggio
    If Not(File.Exists(downloadFolder)) Then
        File.MakeDir(File.DirApp, "Download")
    End If
End Sub

Sub DownloadFile
    ' Impostazioni FTP
    Dim server As String = "ftp://ftp.tuoserver.com"
    Dim user As String = "tuoUsername"
    Dim password As String = "tuaPassword"
    Dim remoteFile As String = "/percorso/del/file/da/scaricare.txt"
    Dim localFile As String = downloadFolder & "/fileScaricato.txt"
    
    ' Connessione al server FTP
    ftp.Host = server
    ftp.Username = user
    ftp.Password = password
    ftp.Port = 21 ' Porta di default per FTP
    
    ' Avvio del download
    ftp.Download(remoteFile, localFile)
    
    ' Notifica completamento
    Log("Download completato!")
End Sub

Sub B4XPage_Initialize
    ' Esegui il download quando la pagina viene inizializzata
    DownloadFile
End Sub

LucaMs said:

Prova così:

Sub Class_Globals
    Private Root As B4XView 'ignore
    Private xui As XUI 'ignore
 
    Private mFTP As FTP
    Private mHost, mUser, mPW As String
    Private mPort As Int = 21
End Sub

Private Sub B4XPage_Created (Root1 As B4XView)
    Root = Root1

    mHost = "ftp.QUI_TUO_NOME_UTENTE.altervista.org"
    mUser = "QUI_TUO_NOME_UTENTE"
    mPW = "QUI_TUA_PW"
 
    mFTP.Initialize("FTP", mHost, mPort, mUser, mPW)
    mFTP.PassiveMode = True
End Sub

Private Sub btnDownload_Click
    Dim ServerFilePath, DestDir, DestFileName As String
    ServerFilePath = "MODIFICA QUESTO"
    FileName = "MODIFICA QUESTO"
    DestDir = File.DirApp ' SE VUOI, MODIFICA QUESTO
    mFTP.DownloadFile(ServerFilePath, True, DestDir, FileName)
End Sub

Private Sub FTP_DownloadCompleted (ServerPath As String, Success As Boolean)
    Log("Download " & IIf(Success, "completed.", "failed."))
End Sub

Click to expand...

amorosik said:

Hai letto quello che ti ho consigliato (ftp server locale)?

Click to expand...

amorosik said:

La vera domanda da chiarire e': hai provato a farlo?

Click to expand...

Aldo's said:

Se non sapevo come farlo è ovvio che non ho provato...giuro, provo e ti dico

Click to expand...

Sagenut said:

Prova con

B4X:

mFTP.DownloadFile(ServerFilePath, False, DestDir, FileName)

perchè non credo che il DB possa essere interpretato come ASCII File.
Nella tua riga hai impostato True.

Click to expand...

Aldo's said:

Se non sapevo come farlo è ovvio che non ho provato...giuro, provo e ti dico

Click to expand...