Newsgroup: it.comp.lang.visual-basic
Titolo: VB6 e upload con inet: impossibile assegnare il tipo

Salve a tutti,
sto cercando di fare un upload su di un sito via ftp, ma sto avendo un po' 
di problemi... in particolare quando faccio il .execute mi ritorna come 
errore di run-time 35760: impossibile assegnare il tipo... il bello è che ho 
quasi fatto il copia incolla da un post trovato su internet funzionante... 
boh!
questo è il mio codice:
    lblstatus.Caption = "Uploading file..."
    Inet1.url = "
ftp.miosito.it
"
    Inet1.UserName = "miauser"
    Inet1.Password = "miapass"
    While Inet1.StillExecuting: DoEvents: Wend
    rmt = "home/pippo"
    ftpcmd = "PUT """ & srcfile & """ """ & rmt & "/" & dstfile & """"
    Inet1.Execute "", ftpcmd  '<--- errore
    While Inet1.StillExecuting: DoEvents: Wend
    lblstatus.Caption = "Upload complete..."
Qualche idea?
A. 

 Qualche idea?
Io uso una roba del genere per caricare files in ftp (ci sono variabili
private mp***)
Sub AttendiInet1()
    While Inet1.StillExecuting: DoEvents: Wend
End Sub
Private Function EsportaFTP(ByVal FileName As String, ByVal FtpName As
String) As Boolean
    On Error GoTo Handleerr
 
    Inet1.AccessType = icUseDefault
 
    Inet1.Protocol = icFTP
    Inet1.URL = mpFtpUrl
    Inet1.UserName = mpFtpUsername
    Inet1.Password = mpFtpPassword
    AttendiInet1
 
    If Len(mpFtpExpDir) > 0 Then
        Inet1.Execute , "CD " & mpFtpExpDir
        AttendiInet1
    End If
 
    Inet1.Execute , "SEND " & FileName & " " & FtpName
    AttendiInet1
 
    Inet1.Execute "", "Close"
 
    EsportaFTP = True
 
    Exit Function
 
Handleerr:
    EsportaFTP = False
End Function

"Andrea [Work]" <andrea.isw...@gmail.invalid> ha scritto nel 
messaggio news:m9hnoajezmjx$.43qdz5p3j8ej.dlg@40tude.net...

Col tuo codice mi arriva alla fine senza darmi errori, pero' il file nel 
server non c'č.... stavo pensando... non č che devo andare in passive mode?
Grazie 1000
A. 

 server non c'è.... stavo pensando... non è che devo andare in passive mode?
Scusa, ma intercetti gli eventi di Inet?
Altrimenti non ti accorgi degli errori che non generano eventi lato 
client...
Alberto

 ha scritto nel messaggio 
news:i5la7g$u5n$1...@tdi.cu.mi.it...

Si intercetto gli eventi e le risposte del server, ma non mi arrivava mai 
nulla... cosi' dal prompt ho provato gli stessi comandi con ftp ed in 
effetti il server mi riconosce con ip 192.168.x.x... a questo punto devo 
trovare un sistema (meglio un ocx free per avere la pappa pronta :P) per 
fare l'ftp in passive modo... conoscete qualcosa? Al limite anche qualcosa 
da lanciare da command line...
Grazie 1000
A.

 ha scritto nel messaggionews:i5la7g$u5n$1...@tdi.cu.mi.it...
vb6 no?
http://binaryworld.net/Main/CodeDetail.aspx?CodeId=3777
...il buon vecchio FibiaFBI(chissà che fine ha fatto....)
http://www.vbsimple.net/index.htm?/cliserv/clser_02.htm

 wrote:
Non mi va .....il google gruppi...riscrivo
Vb6 no?
http://binaryworld.net/Main/CodeDetail.aspx?CodeId=3777
oppure il buon vecchio Fibia FBI
http://www.vbsimple.net/index.htm?/cliserv/clser_02.htm
Sigh!Altri tempi!
OT
Fibia teneva la pagina delle trollate quando la chat di VB era davvero
un groviglio di "pazzi" scatenati
http://trollate.altervista.org/
Ho l'onore di una "mini" pagina anche io
http://trollate.altervista.org/citazioni/020.htm
SIGH!...sono vecchio cazzo!

 ha scritto nel messaggio 
news:219ba9d7-0532-49dc...@l20g2000yqm.googlegroups.com...

Questi se non ho visto male non fatto l'ftp passive mode...
A. 

 ha scritto nel messaggionews:219ba9d7-0532-49dc...@l20g2000yqm.googlegroups.com...
Beh hai visto male.....
se usi PASV come saprai hai pregi e difetti...
spiegati bene qui
 
http://www.programmazione.it/index.php?entity=eitem&idItem=35123
Con INET ocx sei in un bel giro di schiaffi.
Usando le API di wininet.dll (l'ocx , tra l'altro, è solo un wrapper)
sei più libero!...
se guardi
http://binaryworld.net/Main/CodeDetail.aspx?CodeId=3777
vedrai che c'è un option
Active mode
Passive mode
corrispondenti a
Private Sub Option3_Click()
  dwSeman = 0
End Sub
Private Sub Option4_Click()
  dwSeman = INTERNET_FLAG_PASSIVE
End Sub
e....
guarda il bas più sotto!
Public Const INTERNET_FLAG_PASSIVE = &H8000000
Ovvio...anche se la pappa è scodellata...il piatto e il cucchiaio
bisogna usarlo!
;o)

 SIGH!...sono vecchio cazzo!
Mi mancano molto... queste cose che facevano del NG un luogo
familiare...!
Ora per inattività leggo qualche cosa annoiato... ma vedo che tu
resisti... ottimo.
E' sempre un piacere leggerti anche se sei "vecchio", ma mi aggrego
alla cosa ormai con canuto aspetto, poi sai dicono che il vino quando
invecchia migliora...
L'aceto però saprei a chi darlo... ;-)
Ciao
@Alex