Italian Ftp Errore con genymotion

MarcoRome said:

Prova questo.




Mi raccomando il "False" che inserisci su UploadFile ( indica che sono file binari )

B4X:

...
FTP.UploadFile(FD.FilePath, FD.ChosenName, False, "/public_html/xxxx/file.pdf")

Click to expand...

Sub FTP_UploadProgress (ServerPath As String, TotalUploaded As Long, Total As Long)

    ProgressBar1.Progress = TotalUploaded / grandezzafile * 100
    edt_file.Text = "Wait Upload " & Round(TotalUploaded / 1000) & "KB / " & Round(grandezzafile / 1000) & "KB"

End Sub

Stefano Bordini said:

Ecco la fonte di tutti i mie problemi con i file che sembravano corrotti

B4X:

Sub FTP_UploadProgress (ServerPath As String, TotalUploaded As Long, Total As Long)

    ProgressBar1.Progress = TotalUploaded / grandezzafile * 100
    edt_file.Text = "Wait Upload " & Round(TotalUploaded / 1000) & "KB / " & Round(grandezzafile / 1000) & "KB"

End Sub

come ricavi grandezzafile io provo con file.size ma mi torna null

Click to expand...

Dim FD As FileDialog  
.....
    FD.FilePath = File.DirRootExternal ' also sets ChosenName to an emtpy string
    'fd.ShowOnlyFolders = true
    FD.FileFilter = ".pdf,.docx,.txt,.jpg,.jpeg" ' for example or ".jpg,.png" for multiple file types
    If FD.Show("Attach File", "Yes","","No", Null)    = DialogResponse.POSITIVE Then
        edt_file.Text = FD.ChosenName
        nome_file = FD.ChosenName
        grandezzafile = File.Size(FD.FilePath, FD.ChosenName)
        FTP.UploadFile(FD.FilePath, FD.ChosenName, False, "/public_html/XXXXX/fotoutenti/" & FD.ChosenName)
    End If