Salut à tous!
Voilà, j'ai créé un programme de capture d'écran (le serveur) qui renvoit la capture automatiquement sur le FTP de mon site. Mais le problème, c'est que le contrôle Inet a l'air d'uploder les fichiers images d'une manière très cahotique, bien qu'avec les fichiers texte ça ne pose pas le moindre problème.
Bref, dans mon module client qui permet de récupérer l'image précédemment uploadée, je me sert aussi de Inet avec ce code de download qui marche parfaitement :
Dim strURL As String
Dim bData() As Byte ' Variable de données
Dim intFile As Integer ' Variable FreeFile
strURL = _
"http://monsiteinternet/capture.jpg"
intFile = FreeFile() ' Affecte à intFile un fichier inutilisé.
' Le résultat de la méthode OpenURL est placé dans le
' tableau d'octets qui est alors enregistré sur disque.
bData() = Inet1.OpenURL(strURL, icByteArray)
Open "c:\capture.jpg" For Binary Access Write _
As #intFile
Put #intFile, , bData()
Close #intFile
|
Voilà, ma question est : Est-il possible de modifier ce code pour obtenir l'effet inverse, qui va me permettre d'uploader correctement les fichiers images?
Merci pour votre éventuelle aide!