iOS Question Ftp works only for the first file

[Jean Weets]

I have an FTP connection and want to run multiple command's (List and opload and download) but it stops after a first success. (No result)
Under B4A it works perfectly.
Is it because FTP.isinitialised is not available B4i?

 

[Erel]

Can you post the code?

 

[Jean Weets]

I removed some private code:


Public Sub Synchroniseren
........
......

hd.ProgressDialogShow("Login...")
htpcl.Initialize("webClient")
If htpcl.IsInitialized Then
httpreq.InitializePost2("http://www.rijdendpersoneel.be/frpinlog.php", requeststring.GetBytes("UTF8"))
' httpreq.SetHeader("Content-Type", "text/xml; charset=utf-8")
httpreq.Timeout = 100000
htpcl.Execute(httpreq, 1)
End If
End Sub

Sub webclient_ResponseSuccess (Response As HttpResponse, TaskId As Int)
If TaskId = 1 Then
Try
resp = Response.GetString2("UTF8")
Catch

End Try

hd.ProgressDialogHide
If resp = "fout" Then
If lang = "fr" Then
Msgbox("Login erreur","Erreur")
Else
Msgbox("Login fout","Fout")
End If
Else
If File.Exists(TargetDir & "/diensttabel","") = False Then
File.MakeDir(TargetDir , "diensttabel")
End If
FrpIn.Initialize
FrpIn.Add("naam")'TSNaamInfrp.text)
FrpIn.Add("wacht")'TSWachtInfrp.text)
File.WriteList(TargetDir & "/diensttabel","frplogin.txt",FrpIn)
flok =True
Dim filename As String = yr & "_" & resp
FTPf.Initialize("FTPlistRoot","ftp.rijdendpersoneel.be",21,*****,********)
ftpfn = filename
FTPf.PassiveMode = True
FTPf.List("/dtabs/")
End If
End Sub

Sub FTPlistRoot_ListCompleted (ServerPath As String, Success As Boolean, Folders() As FTPEntry, Files() As FTPEntry)
If Success = False Then
flok = False
Else

FTPf.Initialize("FTP1","ftp.rijdendpersoneel.be",21,*****,********)
FTPf.PassiveMode = True

FTPf.DownloadFile("/specdnst.dks" , False,TargetDir & "/diensttabel", "Specdnst.dks")


For i = 0 To Files.Length - 1
Dim ftpt As Long=0
Dim ftps As Long =0

Dim flsi As String=Files(i).Name & " "
If flsi.Substring2(5,FTPfl.Length + 5) = ftpfn.Substring(5) Then
ftps = Files(i).Timestamp
Catch
End Try
If ftpt>ftps Then
FTPf.UploadFile(TargetDir & "/diensttabel" , Files(i).Name, False ,ServerPath & Files(i).Name)

Else If ftpt<ftps Then
FTPf.DownloadFile(ServerPath & Files(i).Name , False,TargetDir & "/diensttabel" , Files(i).Name )

End If
FTPf.DownloadFile("/" & flsi.SubString2(0,4) & ".sks" , True,TargetDir & "/diensttabel",flsi.subString2(0,4) & ".sks")
i=Files.Length
End If
FTP.DownloadFile("/Specdnst.dks" , True,TargetDir, "Diensttabel/Specdnst.dks")

Next
End If

End Sub

Sub FTP1_DownloadCompleted (ServerPath As String, Success As Boolean)
' Log(ServerPath & ", Success=" & Success)
If Success Then
' LDfilename.Text=LDfilename.Text & "Dnl " & ServerPath.substring(ServerPath.LastIndexOf("/")+1) & " ok" & CRLF
Else
' LDfilename.Text=LDfilename.Text & "Dnl " & ServerPath.substring(ServerPath.LastIndexOf("/")+1) & " err" & CRLF
flok = False
End If
'LDfilename.top = 10-su.MeasureMultilineTextHeight(LDfilename, LDfilename.Text)
If Success Then
.........

 

[Erel]

Please use [code]code here...[/code] tags when posting code.

1. Why don't you use HttpUtils2?
2. You don't need to initialize FTP multiple times. Initialize it once and use it whenever you need. If you do want to initialize it multiple times then you should "redim" it before you initialize it: Dim FTP1 As FTP

 

[Jean Weets]

Sorry for the codes :|

Http goes also to synchronize files?

And there is also a possibility for File.LastModified under B4i ?

 

[Erel]

Http goes also to synchronize files?

Not sure that I understand the question.

And there is also a possibility for File.LastModified under B4i ?

Please start a new thread for a new question.

 

[Jean Weets]

I want to sync files. That can also httputils2?

 

[Erel]

HttpUtils2 allows you to send http requests. There is no standard way to synchronize files. You will need to implement such a solution.

 

[Jean Weets]

Therefore, I wanted to use the ftp protocol. Thanks anyway

 

[Jean Weets]

@Erel.
You already have a solution to this problem?
My filesystem in Dtabs working with Phone, Android, Windows, Java is built around my ftp.
The final step was IOS. It works only with the first FTP download. :|

 

[Erel]

I'm not familiar with any FTP problem.

As I wrote in post #4 you should initialize FTP once and reuse it.

 

[Jean Weets]

I have tried different solutions but always after a first successful ftp call the next ftp commands are dead!

 

[Erel]

Please create a small project that demonstrates it and upload the full project (File - Export as zip). You can of course remove the server details.

 

[Jean Weets]

I created a simple example.

The first successful step -> Ok
The following does no mention or any error

 

[Erel]

It does work here. I see the list of files and I can download multiple files. Note that if you are downloading a large file then it may take a while until the download complete event is raised.

If you like you can send me your server credentials and I'll test it with your server.

 

[Erel]

I've uploaded a new version of iNet -http://www.b4x.com/android/forum/threads/updates-to-internal-libraries.48179/#post-303211
It should fix it. If you are using the hosted builder then you don't need to download it (the API hasn't changed).

 

[Jean Weets]

It works now !
Thank you Erel

 

[johan vetsuypens]

I have the same issue downloading files or getting a list of files from turbo-ftp.com. only the first FTP action works.
I used the FTPtest app from Jean, and only changed the credentials
FTP.Initialize("FTPCommand", "turbo-ftp.com", 21, "*", "*")
Using the new 1.01 iNet lib on PC and local Mac Builder.
I can send you my credentials if you want.

Also does the DownloadProgress function not work any more on B4I (used it on B4A)

thanks
Johan

 

[Jean Weets]

It works fine now with iNet 1.0.1.
Are you sure you are using the lib 1.0.1? (see picture)

 

[Erel]

Also does the DownloadProgress function not work any more on B4I (used it on B4A)

Currently there is no such event in iNet library.