Android Question Transfer image by FTP with problem

[Alisson]

I try send one image to FTP. I use the code:

Sub btninvio_Click
    ftp1.Initialize("ftp1","ftp.address.com","21","username","password")
    ftp1.UploadFile(File.DirRootExternal,"photo.jpg",True,"photo.jpg")
    ftp1.Close 
End Sub

The image is send to FTP, but the image lost the pixels, not display pixels.

Thanks

 

[DonManfred]

Remove the ftp1.close at this place, wait for the upload finish event get raised and then close the connection

 

[Alisson]

I try, but continue the fail.

 

[DonManfred]

I try, but continue the fail.

create a small example which shows the problem and upload it here (in the ide; file->export as zip)

 

[rscheel]

@Alisson
True change for False in this line

ftp1.UploadFile(File.DirRootExternal,"photo.jpg",False,"photo.jpg")

and delete

 ftp1.Close

 

[DonManfred]

And what about the event-sub????

 

[Alisson]

I defined the the file zip like image name, but have the application ftp.

Thanks

 

[rscheel]

I defined the the file zip like image name, but have the application ftp.

Thanks

Sub Process_Globals
    'These global variables will be declared once when the application starts.
    'These variables can be accessed from all modules.
    Dim ftp1 As FTP
End Sub

Sub Globals
    'These global variables will be redeclared each time the activity is created.
    'These variables can only be accessed from this module.
  
    Dim btninvio As Button
    Dim btncarica As Button
    Dim btncancella As Button
End Sub

Sub Activity_Create(FirstTime As Boolean)
    'Do not forget to load the layout file created with the visual designer. For example:
    Activity.LoadLayout("tutorial")
    ftp1.Initialize("ftp1","FTP_IP","21","USER","PASS")
End Sub

Sub Activity_Resume

End Sub

Sub Activity_Pause (UserClosed As Boolean)

End Sub


Sub btninvio_Click
  
    ftp1.UploadFile(File.DirRootExternal,"photo.jpg",False,"photo.jpg")

End Sub

Sub btncarica_Click
  
End Sub

Sub btncancella_Click
  
End Sub
Sub ftp1_UploadCompleted (ServerPath As String, Success As Boolean)
    If Success = True Then
        Msgbox("","")
      
    End If
End Sub

 

[DonManfred]

I´m out here!

You are TOTALLY ignoring my suggestion and you are still closing the connection in buttn click.

Get yourself helped. Dont expect more ansers from me!

 

[Alisson]

Sorry DonManfred !!!
When I tested his suggestion I went to check the result of the transfer , but my server began to reject the connections and give timeout , then can't complete these checks.
This morning I could conclude that your sample work, its ok, perfect!
I thought to answer your questions , beyond the server timeout problem and had was at the end of working hours .
Thanks veru much.