With Inet .URL = "ftp://ftp.xxxxx.be" .UserName = "xxxx.be" .Password = "******" .Execute , "PUT " & GraphImage & url End With
While .StillExecuting DoEvents Wend .Execute , "CLOSE"mais ça boucle !
sauf que je ne sais pas quand le chargement est terminé.Ton chargement est terminé lorsque tu sors de la boucle de DoEvents
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre questionMerci de rester dans le sujet.Je crains d'avoir dans ce cas à te quitter.
Private Sub URL_Click()Tel quel, tout fonctionne bien; InetState.Text est une textbox dans laquelle je vois bien les étapes de la progression et je reçois le message "l'image a été transférée"
On Error GoTo InetError
InetState.Visible = True
With Inet
.URL = "ftp://ftp.yyyyyy.be"
.UserName = "xxxxxx.be"
.Password = "********"
.Execute , "PUT " & App.Path & "" & ...
'While .StillExecuting
' DoEvents
'Wend
'.Execute , "CLOSE"
End With
MsgBox ("L'image a étét transférée sur ..."), vbInformation
InetState.Visible = False
On Error GoTo 0
Exit Sub
InetError:
MsgBox ("Impossible de transférer l'image : " & Err.Number & " (" & Err.Description & ")" Inet.ResponseCode & ":" & Inet.ResponseInfo), vbExclamation
InetState.Visible = False
On Error GoTo 0
Exit Sub
End Sub
Private Sub Inet_StateChanged(ByVal State As Integer)
Select Case State
Case icNone: InetState.Text = InetState.Text & vbCrLf & "Connect Failed.... Error"
Case icResponseReceived: InetState.Text = InetState.Text & vbCrLf & "Response Received"
Case ichostresolvinghost: InetState.Text = InetState.Text & vbCrLf & "Looking for IP Address"
Case icHostResolved: InetState.Text = InetState.Text & vbCrLf & "Found IP Address"
Case icConnecting: InetState.Text = InetState.Text & vbCrLf & "Connecting"
Case icConnected: InetState.Text = InetState.Text & vbCrLf & "Connected"
Case icRequesting: InetState.Text = InetState.Text & vbCrLf & "Sending a Request"
Case icRequestSent: InetState.Text = InetState.Text & vbCrLf & "Request Send"
Case icReceivingResponse: InetState.Text = InetState.Text & vbCrLf & "Receiving Response"
Case icResponseReceived: InetState.Text = InetState.Text & vbCrLf & "Response Received"
Case icDisconnecting: InetState.Text = InetState.Text & vbCrLf & "Disconnecting"
Case icDisconnected: InetState.Text = InetState.Text & vbCrLf & "Disconnected"
Case icResponseCompleted: InetState.Text = InetState.Text & vbCrLf & "Response Completed"
Case icError
MsgBox ("Impossible de transférer l'image : " & Inet.ResponseCode & ":" & Inet.ResponseInfo), vbExclamation
End Select
End Sub
While Inet.StillExecuting
DoEvents
Sleep 1000 '1sec
DoEvents
Wend
Public Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)
26 août 2014 à 13:59
En pratique je fais comment ?
26 août 2014 à 20:24
vb6 upload ftp
vb6 upload HTTP post
26 août 2014 à 20:46
J'avais bien cherché sur Google avant de poser la question ici.
J'ai trouvé par exemple
Est-ce que je ne risque pas d'avoir des problèmes parce que mon utilisateur ne dispose pas de MSINET.OCX ?
J'ai déjà eu des problèmes avec d'autres fichiers .ocx donc j'essaye d'éviter.