B4A Library Automated FTP Library

margret · Jan 24, 2014

What version of B4A are you using?

GMan · Jan 24, 2014

still 2.71

margret · Jan 24, 2014

Did you get it working with version 1.05?

GMan · Jan 24, 2014

Didnt try it yet (in the evening is mostly ARDUINO-coding time

- will check it tomorrow

Fabrice La · Feb 7, 2014

Hi
My code :

Code:

If FTPA.IsInitialized = False Then
                FTPA.Initialize(Activity, Me, GetStringserver, GetStringlogin, GetStringpasswd, GetIntport,False, False)
                FTPA.SetTextSize(50,50,50,50)
            End If
            If FTPA.WiFi_IsConnected = False Then
                Msgbox("WiFi not connected !! please check", "WIFI")
            Else
                FTPA.SetProcessCompleteOn(True)
  '              FTPA.SetStealthOn(True)
                FTPA.SetText("Download progress", "Upload progress", "Total Progress", "File in progress", "Cancel load", "Done load")
                FTPA.UploadFile(File.DirDefaultExternal,"/share/",tmpStr2 & ".zip")

The progress dialog box is a tiny square in the middle of my tablet's screen how to modify the size ?
I did modify the textsize ....

How to close the dialog box when there is an error ? Without to click "Cancel" ?

GMan · Feb 7, 2014

Sorry, didnt read the news - yes, solved. Works fine.

Can we manage the size of the filesize and trabsfer volumen text ?
the filesize etc. isnt readable because nearly out of the borders

margret · Feb 7, 2014

Look at this command:

FTP.SetTextSize(HeaderTextSize As Int, TotalProgressTextSize As Int, FileProgressTextSize As Int, CancelAndDoneTextSize As Int)

GMan · Feb 7, 2014

Thx...that's it

Fabrice La · Feb 7, 2014

The progress dialog box is a tiny square in the middle of my tablet's screen how to modify the size ?
I did modify the textsize ....

How to close the dialog box when there is an error ? Without to click "Cancel" ?

margret · Feb 7, 2014

To close the dialog and kill the process use something like this:

Code:

If FTP.LastProcessSuccessful = False Then
   FTP.CloseNow
End If

I will look at what it will take to mod the library to change the dialog box size. At the current time it is fixed.

Jobel · Feb 8, 2014

thank you Margret. Keep nice work!!!!

Fabrice La · Feb 10, 2014

margret said:
To close the dialog and kill the process use something like this:

I will look at what it will take to mod the library to change the dialog box size. At the current time it is fixed.

How did you have these big boxes on the 1st post ?

GMan · Feb 10, 2014

3" Screen ?

Just kidding: i think the pics are cropped to show only the depending details

margret · Feb 11, 2014

Yes, they are cropped from the full screen capture.

Fabrice La · Feb 11, 2014

I try using the SendCMD to have the list of folder in ftp server.

If i do
FTPA.SendCMD("MLSD","")
FTPA.Close
I have
503 Bad sequence of commands.

To have the MLSD command I need to be in passive mode
FTPA.SendCMD("PASV","")
FTPA.Close
It works
227 Entering Passive Mode (10,230,52,181,229,72)

But if I do
FTPA.SendCMD("PASV","")
FTPA.SendCMD("MLSD","") '/share/")
FTPA.Close
I have
false 1

How to retrieve list ?

margret · Feb 11, 2014

I will add this function to the library. I didn't add it the first time because I didn't need it myself. I now see that it would be good to have.

sultan87 · Mar 22, 2014

margret said:
New Automated FTP Library

UPDATED 1-24-2014 - Version 1.05 adds a new function for checking for files or folders. It also contains a few other small fixes.
The new command works for Files or Folders. If the last parameter is set to TRUE, it will look for folders, if the last parameter is set to FALSE it will look for files. Because the code runs in the background and is modeless you must have a callback sub in the calling module. Code samples below:

Code:

'Call the command like this: FTP.FileOrFolderExist("plane.jpg" , "test/files", False)

Code:

'Callback sub in calling module: Sub FTP_FileExist(Found As Boolean) If Found Then Log("True") Else Log("False") End Sub

UPDATED 4-2-2013 - Version 1.02 Corrects an issue where PassiveMode was not working and also corrects an issue where UploadFileSet would not work from File.DirInternal.

Automates the process of sending and receiving files using FTP with Wildcards & File Masks. Version 1.02 is attached. Please post/report back any issues you find, etc.

This library has progress bars for Each File and overall progress. It handles wildcards and multi file types at the same time. Issue one command and transfer multiple files and multiple types! Change the colors, text size and words of all objects on the Progress Dialog to fit the look of your app. Also works in Stealth Mode!

REQUIRES: B4A 2.5 +
Copy the FTP_Auto.jar & FTP_Auto.xml files to the Extra Libraries folder.

FTP_Auto

Close
Completes the current Que with any files left to process and then
closes the connection.

CloseNow
Closes the connection and all other files in the Que are
ignored and the process is terminated.

DeleteFile (DeletePathAndFile As String)
Deletes a single file from the server.
Example:

DeleteFile("public/pictures/airplane1.jpg")

DeleteFileSet (VerifyBeforeDelete As Boolean)
Delete the lastest FileSet in memory from the server.
If you used a Mask to download a set of files, this function
will delelete all files in that last set.
NOTICE: use with care.

DownLoadFile (LocalPath As String, ServerPath As String, FileName As String, Delete_FromServer As Boolean)
Downloads a selected file from the FTP server and optionally deletes the file after successful download
Example:

DownLoadFile("/mnt/sdcard/pictures/", "public/downloads/", "airplane.jpg", False)

DownloadFileSet (LocalPath As String, Files_Path_And_Mask() As String, Delete_FromServer As Boolean)
Retrieves a list of files from the server matching the Mask(s) passed to Files_Path_And_Mask() array.
You should include the full server path in the Mask. It will then download these files to
the Folder passed in LocalPath. Files_Path_And_Mask() can contain one entry or however many is needed.
Example:

DownloadFileSet(File.DirInternal, Array As String("SM*.txt", "public/pictures/pla*.jpg"), False)

IsInitialized As Boolean
Tests whether the object has been initialized.

Initialize (Activity As Activity, CalledFrom As Object, FTP_Site As String, UserName As String, PassWord As String, PortNumber As Int, ShowMessages As Boolean, UsePassiveMode As Boolean) As String
Initializes the object for use. If True is passed for ShowMessages, additional
messages will be displayed throughout the process. Use the keywords "Activity"
and "Me" For the first two parameters.
Example:

Initialize(Activity, Me, "ftp.yourdomain.com", "userName", "PassWord", "Port", True, False)

LastDownloadStats ( As ) As String
Shows a popup window with the detials of the latest Download(s).

LastProcessSuccessful As Boolean
Returns True if the last Upload or Download process was successful, otherwise returns False.

LastUploadStats ( As ) As String
Show a popup window with details of the latest Upload(s).

MakeDir (DirectoryName As String)
Makes a directory on the FTP server. Does nothing if the directory already exist.
If you want to make a directory in the root of the server and then a directory under
it, you must issue the command twice.
Example:

MakeDir("test")
MakeDir("test/datafolder")

RemoveDir (DirectoryName As String)
Removes selected directory from the FTP server

SetColors (HeadingColor As Int, TotalProgressColor As Int, FileTextColor As Int, PanelBackgroundColor As Int, FrameColor As Int)
Used to set colors of each Item in the status dialog.
NOTE: Passing 0 for any argument with leave that item unchanged

SetCompletedDownloadDialog (ShowCompletedDialog As Boolean, DialogText As String)
If ShowCompletedDialog=True, it will show a dialog after the download process is completed.

SetCompletedUploadDialog (ShowCompletedDialog As Boolean, DialogText As String)
If ShowCompletedDialog=True, it will show a dialog after the upload process is completed.

SetProcessCompleteOn (ProcessCompleteOn As Boolean)
Use this function to determine by code when the Upload or Download is finished.
The calling Activity must contain a sub named FTP_ProcessComplete. If your calling
Activity includes this sub and you set this function to True, then the sub will
be called as soon as the process has completed. EXAMPLE:

'Add this sub to calling Activity
Sub FTP_ProcessComplete
'Your code here...
End Sub

SetStealthOn (UseStealth As Boolean)
If set to True, no progress box will be displayed during the file
transfer. If False the progress dialog will show during the file
transfers. The default is False.

SetStickyOn (MakeSticky As Boolean)
If set to True, the progress box will stay on the screen until
the user taps the Done button, otherwise the progress box will close
as soon as the transfer is complete. The default is False.

SetText (HeaderDownLoadText As String, HeaderUploadText As String, TotalProgressText As String, FileProgressText As String, ButtonCancelText As String, ButtonDoneText As String)
Used to set the Text of the Item's status display.
NOTE: May be used for different language, etc.

SetTextSize (HeaderTextSize As Int, TotalProgressTextSize As Int, FileProgressTextSize As Int, CancelAndDoneTextSize As Int)
Used to set the Text size of the Item's Text in the status dialog.
NOTE: Passing 0 for any argument with leave that item unchanged

UpLoadFile (LocalPath As String, ServerPath As String, FileToSend As String)
Uploads a single file passed in FileToSend

Example: UpLoadFile("/mnt/sdcard/pictures", "uploads/pictures", "vacation.jpg")

UploadFileSet (ServerPath As String, Files_Path_And_Mask() As String, DeleteFileFromLocalDevice As Boolean)
Retrieves a list of files from the local device. The Files_Path_And_Mask() array should contain the full
path to the local devices files. It will then upload these files to the server.
Files_Path_And_Mask() array can contain one entry or however many is needed.
Example:

UploadFileSet("uploads/pictures/", Array As String("/mnt/pictures/VA*.jpg", "/mnt/sdcard/backups/contact*.dat"), False)

WiFi_IsConnected As Boolean
Check if Wifi is connected
Returns True if connected otherwise returns False

Permissions:
◦android.permission.ACCESS_WIFI_STATE
◦android.permission.INTERNET

Hello,
Have you an example of use?
how to test the connection to the ftp server before Dowload, Upload ....
Best Regards

margret · Mar 23, 2014

I will try in the next few days to put together some same code.

sultan87 · Mar 23, 2014

margret said:
I will try in the next few days to put together some same code.

Hello
thank you, I look forward
Best Regards

sultan87 · Mar 24, 2014

sultan87 said:
Hello
thank you, I look forward
Best Regards

Hello,

I grabbed this code

Code:

Sub Globals
   'These global variables will be redeclared each time the activity is created.
   'These variables can only be accessed from this module.
   Dim FTPA As FTP_Auto

End Sub

Sub Activity_Create(FirstTime As Boolean)
  If FirstTime Then
  FTPA.Initialize(Activity, Me, "ftpperso.free.fr", "xxxxxx", "yyyyy", "21", True, False)
  End If
End Sub

Here are the errors

WHY ?

Best Regards

B4A Library Automated FTP Library

Attachments

Well-Known Member

Well-Known Member

Well-Known Member

Well-Known Member

Active Member

Well-Known Member

Well-Known Member

Well-Known Member

Active Member

Well-Known Member

New Member

Active Member

Well-Known Member

Well-Known Member

Active Member

Well-Known Member

Active Member

Well-Known Member

Active Member

Active Member

Similar Threads