Italian testb4a.altervista.org

maxware

Well-Known Member
Licensed User
Longtime User
Ciao raga
riferendomi la post di LucaMs ho creato un area ftp su altervista dove potete fare delle prove ftp per chi non avesse un proprio spazio web
dati per collegarsi con filezilla

host: testb4a.altervista.org
Username: testb4a
Password: nepfubamre31
porta 21

Magari createvi le cartelle utilizzando il nikname del forum per evitare di cancelalre dati di altri
ciaoo
Mamo
 

LucaMs

Expert
Licensed User
Longtime User
Grazie Mamo, faccio qualche prova e poi metto qui risultati (e problemi :D)
 

LucaMs

Expert
Licensed User
Longtime User
Anzi, visto che una prova è stata sufficiente, scrivo in un nuovo post, così ti avvisa :)

Ha funzionato tutto.
Mi ha creato una cartella ("LucaMsDir")
caricato un file (FileToSend.txt)
ed elencato il file.

Il punto è che io ho usato "/LucaMsDir" per creare la cartella, il che significa che l'ho creata nella Home (radice) che non so quale sia nel tuo caso e se questo possa essere stato un problema nelle prove che hai potuto vedere nel mio thread.


Grazie mille ancora, Mamo :)
 

maxware

Well-Known Member
Licensed User
Longtime User
sub invia_file
dim Ftp1 as ftp
FTP1.Initialize("FTP", "indirizzo ftp", 21, "utente", "password")
FTP1.UploadFile(percorso origine, "nome file", True, "percorso destinazione e nome file")
end sub


Sub FTP_UploadCompleted (ServerPath As String, Success As Boolean)

If Success = False Then Log("errore") else log("OK)

End Sub
 

androidappl

Active Member
Licensed User
Longtime User
sub invia_file
dim Ftp1 as ftp
FTP1.Initialize("FTP", "indirizzo ftp", 21, "utente", "password")
FTP1.UploadFile(percorso origine, "nome file", True, "percorso destinazione e nome file")
end sub


Sub FTP_UploadCompleted (ServerPath As String, Success As Boolean)

If Success = False Then Log("errore") else log("OK)

End Sub

E mi da questo errore cazzo: "org.apache.commons.net.ftp.FTPConnectionClosedException: Connection closed without indication."
che palle
 

LucaMs

Expert
Licensed User
Longtime User
21 anni, eh? Adesso capisco quelle "imprecazioni", hehehe.
(21? Beato te, porca Marianna :p)

'giorno Mamo (anzi, buonasera... qui è notte, anche perché diluvia)
 

maxware

Well-Known Member
Licensed User
Longtime User
Appena provato e testato
Sub invia_file
'librerie net versione 1.37
Dim ftp1 As FTP
ftp1.Initialize("FTPTest", "testb4a.altervista.org", 21, "testb4a", "nepfubamre31")
ftp1.UploadFile(File.DirAssets , "test.docx", True, "test.docx")
End Sub
Sub FTPTest_UploadCompleted (ServerPath As String, Success As Boolean)
If Success = False Then Log("errore upload ") Else Log("upload OK")
End Sub
 

androidappl

Active Member
Licensed User
Longtime User
Appena provato e testato
Sub invia_file
'librerie net versione 1.37
Dim ftp1 As FTP
ftp1.Initialize("FTPTest", "testb4a.altervista.org", 21, "testb4a", "nepfubamre31")
ftp1.UploadFile(File.DirAssets , "test.docx", True, "test.docx")
End Sub
Sub FTPTest_UploadCompleted (ServerPath As String, Success As Boolean)
If Success = False Then Log("errore upload ") Else Log("upload OK")
End Sub

Penso che sia un problema che lavoro sull'emulatore proverò nel weekend sul fisso...
 
Top