iOS Question FTP work fine first time

[MarcoRome]

Hi all, i have this code:

Sub Cam_Complete (Success As Boolean, Image As Bitmap, VideoPath As String)

    If Success Then
        
        
        filenameresize = "foto" & DateTime.Now
        Log(filenameresize)
        
        
        '******Save picture and trasfert via FTP
        Dim Out As OutputStream
        Out = File.OpenOutput(File.DirTemp, filenameresize & ".jpeg", False)
        Image.WriteToStream(Out, 100, "JPEG")
        Out.Close
        img_photo.Bitmap = LoadBitmap(File.DirTemp,filenameresize & ".jpeg")
        'ftp was previously initialized And its event name was set To ftp:
        ftp.Initialize("FTP", "ftp.xxxx.eu", 21, usr_ftp, pw_ftp)
        ftp.PassiveMode = True
        ftp.UploadFile(File.DirTemp, filenameresize & ".jpeg", False, "/" & filenameresize&".jpeg")
        
Else
        Log("Non selezionato")       
End If
End Sub

Sub FTP_UploadCompleted (ServerPath As String, Success As Boolean)
    Log(ServerPath & ", Success=" & Success)
    If Success = False Then
        Log(LastException.Message)
    Else
        Toast.ShowToastMessage("Foto copiata sul server ",2000)
    End If
End Sub

Work fine the first time, after if i select new file, the event FTP_UploadCompleted ISNT fired
Any idea ?
Thank you
Marco

 

[Erel]

Initialize FTP once when the program starts.

 

[MarcoRome]

Hi Erel, already do but dont change nothing

 

[Erel]

Hard to say. Try to close it after each transfer and then initialize it again.

If it doesn't work then you can send me a small project and I'll try it here.

 

[Arnaud]

Hello,

I have exactly the same problem, works fine the first time but nothing after for the second file to upload...

 

[Erel]

Please start a new thread for this.