Buenos días, alguien podrá darme alguna pista.
Estoy tratando de armar una aplicación que saque una foto y suba esta a una carpeta de un servidor con sftp.
Para ver de armar esto, utilice un ejemplo que hace Erel en
https://www.b4x.com/android/forum/threads/android-sftp-based-on-jsch-tutorial.26994/
el programa no tira errores pero no sube la foto como esperaba.
Alguien me puede orientar donde me estoy equivocando
ub Process_Globals
Dim sftp1 As SFtp
End Sub
Sub Globals
Dim ListView1 As ListView
Dim arch As String
End Sub
Sub Activity_Create(FirstTime As Boolean)
If FirstTime Then
sftp1.Initialize("sftp1", "user", "pass", "ip", 22)
sftp1.SetKnownHostsStore(File.DirRootExternal,"clave.txt")
End If
Activity.LoadLayout("1")
sftp1.UploadFile (File.DirRootExternal ,"foto.jpg","/fotocel/")
End Sub
Sub sftp1_PromptYesNo (Message As String)
Dim res As Int = Msgbox2(Message, "", "Yes", "", "No", Null)
sftp1.SetPromptResult(res = DialogResponse.POSITIVE)
End Sub
Sub Activity_Resume
sftp1.Activity_Resume
End Sub
Sub Activity_Pause (UserClosed As Boolean)
End Sub
Sub sftp1_ShowMessage (Message As String)
Msgbox(Message, "")
End Sub
Sub Button1_Click
sftp1.CloseNow
ExitApplication
End Sub
Estoy tratando de armar una aplicación que saque una foto y suba esta a una carpeta de un servidor con sftp.
Para ver de armar esto, utilice un ejemplo que hace Erel en
https://www.b4x.com/android/forum/threads/android-sftp-based-on-jsch-tutorial.26994/
el programa no tira errores pero no sube la foto como esperaba.
Alguien me puede orientar donde me estoy equivocando
ub Process_Globals
Dim sftp1 As SFtp
End Sub
Sub Globals
Dim ListView1 As ListView
Dim arch As String
End Sub
Sub Activity_Create(FirstTime As Boolean)
If FirstTime Then
sftp1.Initialize("sftp1", "user", "pass", "ip", 22)
sftp1.SetKnownHostsStore(File.DirRootExternal,"clave.txt")
End If
Activity.LoadLayout("1")
sftp1.UploadFile (File.DirRootExternal ,"foto.jpg","/fotocel/")
End Sub
Sub sftp1_PromptYesNo (Message As String)
Dim res As Int = Msgbox2(Message, "", "Yes", "", "No", Null)
sftp1.SetPromptResult(res = DialogResponse.POSITIVE)
End Sub
Sub Activity_Resume
sftp1.Activity_Resume
End Sub
Sub Activity_Pause (UserClosed As Boolean)
End Sub
Sub sftp1_ShowMessage (Message As String)
Msgbox(Message, "")
End Sub
Sub Button1_Click
sftp1.CloseNow
ExitApplication
End Sub