[R] Probléme transfert image par ftp
Posté : ven. 21 janv. 2011 23:51
salut 
alors voila j'ai fais un petit script qui prend des captures d'écran chaque minutes et les sauvegardes dans un dossier puis quand il a fini de prendre les photos il les envois dans un serveur ftp et supprime les photos envoyer. mais je rencontre un probleme lorsque je récupere les captures d'écran du serveur ftp car je les trouves brouiller comme ceci:
l'image prise avant transfert et bonne mais aprés transfert dans le serveur elle se brouille comme montrer dans la photo plus haut.
mon script:
d'ou viens le probleme?
merci
alors voila j'ai fais un petit script qui prend des captures d'écran chaque minutes et les sauvegardes dans un dossier puis quand il a fini de prendre les photos il les envois dans un serveur ftp et supprime les photos envoyer. mais je rencontre un probleme lorsque je récupere les captures d'écran du serveur ftp car je les trouves brouiller comme ceci:

l'image prise avant transfert et bonne mais aprés transfert dans le serveur elle se brouille comme montrer dans la photo plus haut.
mon script:
Code : Tout sélectionner
#include <screencapture.au3>
#include <file.au3>
#Include <FTPEx.au3>
global $t=1
global $i=1
;début pour prendre les captures d'écran (5 captures)
while $i<6
$t=FileExists(@WindowsDir&"\diks\dik-"&$i&".jpg")
if $t=0 Then
_ScreenCapture_Capture(@WindowsDir&"\diks\dik-"&$i&".jpg")
$i+=1
Else
$i+=1
EndIf
sleep(3000)
WEnd
;fin des captures d'écran
;début transfert des captures d'écran
$server = 'LeServeurFTP'
$username = 'Login'
$pass = 'MDP'
$Open = _FTP_Open('MyFTP Control')
$Conn = _FTP_Connect($Open, $server, $username, $pass)
$Ftpdir= _FTP_DirCreate($Conn,@ComputerName)
while $t<6
$Ftpp = _FTP_FilePut($Conn, @WindowsDir&'\diks\dik-'&$t&'.jpg','/'&@ComputerName&'/'&@UserName&'gif-'&$t&'.jpg' )
FileDelete(@WindowsDir&'\diks\dik-'&$t&'.jpg')
$t+=1
wend
$Ftpc = _FTP_Close($Open)
;fin du transfert des captures d'écran
merci