[..] Problème lecture fichier par FTP sous XP

[Hugues]

Bonjour,

Je lis des fichiers par FTP pour tracer des courbes. Sous SEVEN mon application fonctionne parfaitement, par contre sous XP, ça ne fonctionne pas... Le contenu de mon fichier n'est pas lu et je ne vois pas d'où cela peu venir?

Je joins mon code.

Merci de votre aide.

► Afficher le texte

Code : Tout sélectionner

$Open = _FTP_Open("MyAutoItFTP2")
    $Conn = _FTP_Connect($Open, $server, $User, $MotDePasse, 1, $iPortHelp)

    If $conn = 0 Then
        MsgBox(0,"Retour de connexion:", @error & @LF & @extended)
        ;Return
    EndIf
    Local $h_File = _FTP_FileOpen($Conn, $FileToOpen)

    Local $Size = 100000000
    Local $HEX = _FTP_FileRead($h_File, $Size)
    $preread = BinaryToString($HEX)

   _FTP_Close($Conn)

;==[Lecture du fichier]==================================================================================================
    Global $res = StringRegExp($preread, "(-?\d+(?:[.,]\d*)?\h*);\h*(-?\d+(?:[.,]\d*)?)", 3, StringInStr($preread, "'mm'"));StringInStr($preread, "'mm';'kN'")
    $Display = $preread

    If Not IsArray($res) Or IsFloat(Ubound($res)) Then
        MsgBox(16, "XPress-CurveReader", "Pas de données pour tracer une courbe.", -1, $MainGUI)
        $fichierOK = False
        _FillListViewer()
        Return
    EndIf

 

[Tlem]

Vu le tampon utilisé, ne vaut-il pas mieux récupérer directement le fichier (_FTP_FileGet) et faire le traitement localement ?

[Hugues]

En fait je ne souhaite pas faire de manipulation de fichier... Quand au tampon utilisé j'ai mis cette valeur histoire de ne pas être embêter car en faite mes fichiers font 200000 octets...

En fait, je pense que c'est ici que ca merdoume... enfin je ne suis pas sur non plus ^^

Code : Tout sélectionner

 $preread = BinaryToString($HEX)

Car ça m'affiche bien le contenu de mon fichier dans le ConsoleWrite avec SEVEN, et rien sous XP (ou 0x0 si je met _HexToString($HEX) au lieu de BinaryToString, mais je ne devrais pas car _FTP_FileRead renvoie du bianaire...)

[Hugues]

Up.

[Tlem]

Bonsoir Hugues.

Juste pour information, vous écrivez :

Code : Tout sélectionner

Local $Size = 100000000
Local $HEX = _FTP_FileRead($h_File, $Size)

Soit

Code : Tout sélectionner

Local $HEX = _FTP_FileRead($h_File, 100000000)

Je vous rappel la documentation de la commande _FTP_FileRead():

Code : Tout sélectionner

_FTP_FileRead($h_File, $dwNumberOfBytesToRead)

$h_File                    Handle returned by _FTP_FileOpen() to the ftp file. 
$dwNumberOfBytesToRead     [color=#FF0000][b]Number of bytes to read.[/b][/color]

Voici quelques données techniques :
100000000 bytes = 100000000 Octets = 97656,25 Ko = 95,37 Mo

Vous nous dites :

en faite mes fichiers font 200000 octets...

Soit environs 195 Ko !

Avec une telle taille, je ne me pose pas de question, je télécharge le fichier en local pour le traiter tranquillement.

[Hugues]

Oui, lol j'ai percuté quand j'ai fais la conversion octet <-> Byte

Je voudrais passer par un _FTP_FileGetSize() pour récupérer la taille du dit fichier à ouvrir comme ça je le met à la place de

Code : Tout sélectionner

Local $h_File = _FTP_FileOpen($Conn, $FileToOpen)
Local $Size = _FTP_FileGetSize($l_FTPSession, $h_File)
Local $HEX = _FTP_FileRead($h_File, $Size)

Mais évidemment ça ne fonctionne pas... Ca me renvoie à chaque fois 0.

Sûrement un problème de

Code : Tout sélectionner

Local $h_File = _FTP_FileOpen($Conn, $FileToOpen)

Enfin je vais approfondir...