Android Question FTP Upload html file [Solved]

[trepdas]

hello good people,

the app in my project is creating a html file (text file).

Now I need to upload it to a specific folder inside my shared web hosting account.
can this be done ?

?

 

[josejad]

can this be done ?

Of course. This is B4X... you can do almost everything¡¡

[B4X] Net library (FTP, SMTP, POP) with Wait For

Starting from v1.70 of Net, jNet and iNet libraries the asynchronous methods return a 'sender filter' object. This object can be passed as the sender filter parameter in a Wait For call. This makes it simpler to manage multiple requests. For example: 'ftp was previously initialized and its...

www.b4x.com

[B4X] Tip: Always set FTP.PassiveMode to True

I've just wasted an hour trying to understand why a desktop program that I'm using for many months failed to upload a file to a FTP server. I realized that the only thing that was recently changed is that B4J was running with Java 10. Mistakenly I assumed that it is related to IPv6 handling (the...

www.b4x.com

Search Results

www.b4x.com

 

[Quandalle]

If you have an available file transfer service on your server (FTP, or better SFTP) you can easily upload using B4A's adapted libraries.
( It is better to use SFTP (secure FTP) which encrypts the communication. )
see for example :
https://www.b4x.com/android/forum/threads/android-sftp-based-on-jsch-tutorial.26994/#content
https://www.b4x.com/android/forum/threads/android-ftp-tutorial.10407/#post-57940

You can also use the OkHTTP library see for example
https://www.b4x.com/android/forum/t...r-b4j-server-over-the-internet.37201/#content


Below is an example of how to set up with SFTP (Secure File Transfert Protocol).

' use library JSCH

sub Uploadfile (localfiledir, localfinename, remotefilename)

    Dim sftp2 As SFtp

    sftp2.Initialize("sftp2", Username , UserPass , ServerAdress, 22)
    sftp2.UploadFile(localfiledir ,localfilename,remotefilename)
    wait for sftp2_UploadCompleted (ServerPath As String, success As Boolean)
    If success Then log("Success") else  log ("fail")
    sftp2.close
end sub

Sub sftp2_PromptYesNo (Message As String)
    sftp2.SetPromptResult(True)
End Sub

 

[trepdas]

Thank you so very much good people.

a index.html file was created in the file internal assets and now I want to upload it to a non existing directory in the ftp server (i.e. mkdir).

FTP.UploadFile(File.DirInternal, "index.html", True, "/ftpserver/New_Directory01/index.html")

will it create the non existing dir automaticaly (New_Directory01) or do I need first to mkdir and then to upload?

 

[DonManfred]

[B4X] Tip: Always set FTP.PassiveMode to True

 

[Quandalle]

will it create the non existing dir automaticaly (New_Directory01) or do I need first to mkdir and then to upload?

the easiest way to know is to test it ?


as mentioned by DonnManfred (referencing the Erel post) with the use of the FTP protocol on ANdroid, it is necessary to activate the PASSIVE MODE..

With the use of SFTP (Secure FTP) there is no PASSIVE mode (even if the protocols have almost the same name, they are completely different).
When accessing external servers. it is recommend to use encrypted communication. FTP is not a secure protocol, it is better to use SFTP or HTTPS

 

[trepdas]

as expected, the binary god was not kind to me at first try.
I am playing around with the code for a while not without success.

I created a index.html file in the internal dir sub.
now I need to create a new directory in the remote ftp server and upload that index.html inside it.

can anyone help with a working code?

    'create index.html in internal dir
    Writer.Initialize(File.OpenOutput(File.DirInternal, "index.html" , False))
    Writer.WriteLine (FinalHtml)
    Writer.Close

Log ("index file created.")


    'connect to ftp
    FTP.Initialize("FTP", FtpServerName, 21, FtpUser, FtpPass)
    FTP.PassiveMode=True
   
   
    Dim sf As Object = FTP.SendCommand ("MKD", NewDir)
   
    Wait For (sf) FTP_CommandCompleted (Command As String, Success As Boolean, ReplyCode As Int, ReplyString As String)
   
    FTP.SendCommand("MKD", NewDir)
'    Wait For (FTP_CommandCompleted(serverpath)) complete (flag As Boolean)
'    Wait For FTP_CommandCompleted (Success As Boolean)
'  
'  
   
    FTP.UploadFile(File.DirInternal, "index.html", True, NewPath)

'    Wait For (FTP_UploadCompleted(FtpServerName)) complete (success As Boolean)

 

[josejad]

Try:

    Wait For (sf) FTP_CommandCompleted (Command As String, Success As Boolean, ReplyCode As Int, ReplyString As String)

    If Success Then
        Log("Directory created")
    Else
        Log("Error : " & NewDir & " : " &LastException)
    End If

What do you get in logs?
Why have you duplicated this line?
FTP.SendCommand("MKD", NewDir)

 

[trepdas]

Try:

    Wait For (sf) FTP_CommandCompleted (Command As String, Success As Boolean, ReplyCode As Int, ReplyString As String)

    If Success Then
        Log("Directory created")
    Else
        Log("Error : " & NewDir & " : " &LastException)
    End If

What do you get in logs?

I tried the code above.
I get in the log : Error : /home4/afcom/public_html/xn--9dbne9b/ : (Exception) Not initialized

Why have you duplicated this line?
FTP.SendCommand("MKD", NewDir)

yes, I had to mark that out as part of the earlier testings...

 

[trepdas]

OK.
so I managed to create a new directory with the ftp. problem was the string. had to remove the "/" at the end of the path and it worked fine.