Intanto grazie. L'aiuto mi serve per B4A.
Allego il progetto, mi scuso già ora perchè è 'molto sporco', nel senso che ci sono dentro diversi esperimenti.
Quello su cui mi serve un aiuto è InviaSMB e InviaFTP.
Vorrei dare la possibilità di usarli entrambi a scelta dalle impostazioni (impostazione di scelta che ancora non c'è).
InviaSMB in particolare in questa versione funziona la copia del file con SMBInitialize fatto così:
smbClient.Initialize("smbClient_Copy", "", "term", "term00", sShare)
Quindi con utente e password, ma se devo copiare il file in una cartella condivisa che non ha bisogno di credenziali e a cui accedo liberamente da qualsiasi pc di rete e faccio l'initialize così:
smbClient.Initialize("smbClient_Copy", "", "", "", sShare)
Qualche idea del perchè?
Poi al momento non funziona la copia da pc a Android, la Sub Carica_Click, ma su questa ancora c'ho speso poco tempo.
Invece ho speso molto tempo nel tentativo di far funzionare la copia tramite ftp che a leggere qua dovrebbe essere semplicissimo, ma io ovviamente non sono riuscito.
Qua parte del codice:
Sub InviaFTP
'Dim localfile As String
'Dim sf As Object
'localfile=File.DirInternal & "/dati.txt"
If File.Exists(File.DirInternal, "dati.txt") Then
FTPClient.UploadFile(File.DirInternal, "dati.txt", True, "/files/dati.txt")
Log("Upload in corso...")
'Wait For (sf) FtpCliEvent_UploadCompleted (ServerPath As String, Success As Boolean)
'If Success Then
' Log("File was uploaded successfully -> " & "dati.txt")
' FTPClient.Close
'Else
' Log("Error uploading file - " & LastException.Message)
'End If
Else
Log("Il file non esiste!")
End If
End Sub
Sub FTP_UploadProgress (ServerPath As String, TotalUploaded As Long, Total As Long)
Dim s As String
s = "Uploaded " & Round(TotalUploaded / 1000) & "KB"
If Total > 0 Then s = s & " out of " & Round(Total / 1000) & "KB"
Log(s)
End Sub
Sub FTP_UploadCompleted (ServerPath As String, Success As Boolean)
If Success Then
Log("Upload completato con successo!")
Else
Log("Errore durante l'upload!")
End If
End Sub
Premetto che il server FTP è testato e funzionante, nella cartella ci entro senza problemi con l'ftp di file manager plus, lo stesso per quanto riguarda la condivisione della cartella tramite SMB.
Ringrazio anticipatamente chiunque spenda anche solo un po' di tempo per aiutarmi, purtroppo oggi non potrò ricollegarmi probabilmente.