Sa fait longtemps, j'espère que vous allez bien ?
Donc je rencontre un problème un peu bizarre, hier j'ai développer une petite application chez moi et quand je test tout fonctionne ! J'arrive au boulot et je continue à faire mes tests et la plus rien fonctionne...
Enfin le programme en lui même si mais pas le téléchargement de fichier sur mon ftp...
En gros je voudrais télécharger un fichier qui se trouve sur mon ftp et le lire. Mais le téléchargement se fait bien mais le fichier est vide alors que sur le serveur il y a du contenu !
Voici mon code :
Code : Tout sélectionner
$fopen = _FTP_Open("Session recup")
$fconnect = _FTP_Connect($fopen, $server, $usr, $pass)
;If $fconnect = @error Then MsgBox(64, "Informations", "Une erreur de connection est survenue")
_FTP_ProgressDownload($fconnect, @ScriptDir & "\data.ini", '/App/data.ini')
Sleep(250)
Global $List1 = GUICtrlCreateListView("ID |Date |Heure |Client |Objet |", 0, 0, 889, 370)
Global $Button1 = GUICtrlCreateButton("Impression", 192, 376, 219, 33)
Global $Button2 = GUICtrlCreateButton("Quitter", 456, 376, 219, 33)
$donnee = IniReadSectionNames(@ScriptDir & "\data.ini")
For $i = 1 To $donnee[0]
$date = IniRead(@ScriptDir & "\data.ini", $i, "date", "")
$heure = IniRead(@ScriptDir & "\data.ini", $i, "heure", "")
$client = IniRead(@ScriptDir & "\data.ini", $i, "client", "")
$objet = IniRead(@ScriptDir & "\data.ini", $i, "objet", "")
GUICtrlCreateListViewItem($i & "|" & $date & "|" & $heure & "|" & $client & "|" & $objet, $List1)
Next
- Mon pare-feu antivirus (désactivé)
- Mon pare-feu windows (désactivé)
- Je lance mon programme en administrateur (requireadmin)
- Le _FTP_Progressdownload, c'est la seul commande qui fonctionne... les autres (inetget, _FTP_FileGet ) ne rappatrie même pas le fichier...
Je comprend rien vu que cela fonctionne chez moi x)
Merci d'avance !
Ps : J'ai pas donné tout le code , c 'est la seul partie où le problème se pose x)
EDIT :
Code : Tout sélectionner
J'ai également tester la commande et j'ai mit sa :
$test = _FTP_ProgressDownload($fconnect, @ScriptDir & "\data.ini", '/App/data.ini')
If @error Then
MsgBox(64, "Informations", "Erreur :" & $test)
EndIf


