Italian testb4a.altervista.org

[maxware]

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]

Grazie Mamo, faccio qualche prova e poi metto qui risultati (e problemi )

 

[LucaMs]

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]

Cavolo...nemmeno li hai usato il tuo vero nome hihihhahah

 

[LucaMs]

Cavolo...nemmeno li hai usato il tuo vero nome hihihhahah

 

[androidappl]

Ciao,
avrei bisogno di un esempio su come postare un file via ftp..
Visto che non riesco perchè mi da questo errore:
"org.apache.commons.net.ftp.FTPConnectionClosedException: Connection closed without indication."

 

[maxware]

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]

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]

21 anni, eh? Adesso capisco quelle "imprecazioni", hehehe.
(21? Beato te, porca Marianna )

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

 

[maxware]

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]

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...