Sub DownloadFileFromSFTP(FullFilename As String, Titel As String, Aufruf As Int)
Dim mSSH As SSHJ
mSSH.Initialize("SSH")
mSSH.AddHostKeyPromiscuousVerifier
mSSH.AddAuthPassword (Starter.settings.get ("FTP.PW"))
mSSH.Connect(Starter.settings.get ("FTP.Server") , Starter.settings.get ("FTP.Port") , Starter.settings.get ("FTP.User"))
Wait For ssh_Connected (success As Boolean)
If success Then
ToastMessageShow("Die " & Titel & " werden geladen",False)
Dim SFTP As SSHJSFTPClient = mSSH.GetSFTPClient
Dim SF As Object = SFTP.Download(Starter.settings.get ("FTP.Folder") & "/" & FullFilename, File.DirInternal & "/" & FullFilename,False)
wait for (SF) SFTPDownloadFinished(success As Boolean, remoteFilePath As String,LocalFilePath As String)
If success Then
ToastMessageShow("Die " & Titel & " wurden vom SFTP Server geladen",False)
If Aufruf = 1 Then CreateZahlungsarten
If Aufruf = 2 Then CreateOrganisationen
Else
ToastMessageShow("Das Laden der " & Titel & " vom SFTP Server ist fehlgeschlagen mit dem Fehler '" & LastException.Message & "'.", False)
End If
SFTP.Close
Else
ToastMessageShow ("Die Verbindung zum SFTP Server '" & Starter.settings.get ("FTP.Server") & "' konnte nicht hergestellt werden",False)
End If
mSSH.Close
End Sub