[R] Lire un fichier via FTP

[Hugues]

Bonjour,

Je n'arrive pas à lire un fichier via ftp... J'essai avec la fonction _FTP_FileOpen() et _FTP_FileRead() mais ca ne fonctionne pas...

Quelqu'un pourrais me guider svp?

► Afficher le texte

Code : Tout sélectionner

Func _FileOpen()

$Open = _FTP_Open('MyFTP Control')
$Conn = _FTP_Connect($Open, $server, $sLogin, $sPassword, 1, $iPortHelp)
Local $h_File = _FTP_FileOpen($Conn, "/toto/" & $IDLine & "/" & $Sxx_xx & "/" & $FileToOpen)
_FTP_Close($Conn)
EndFunc
 

PS:
$FileToOpen, $Sxx_xx, $IDLine, $server, $sLogin, $sPassword, $iPortHelp sont récupérées d'une autre fonction.

Merci par avance.

[Hugues]

Tiens... Bizarre, j'ai rajouté:

► Afficher le texte

Code : Tout sélectionner

Func _FileOpen()

$Open = _FTP_Open('MyFTP Control')
$Conn = _FTP_Connect($Open, $server, $sLogin, $sPassword, 1, $iPortHelp)
Local $h_File = _FTP_FileOpen($Conn, "/toto/" & $IDLine & "/" & $Sxx_xx & "/" & $FileToOpen)
$Size = 10000000
$HEX = _FTP_FileRead($h_File, $Size)
$preread = _HexToString($HEX)
MsgBox(0,"",$preread)
_FTP_Close($Conn)

EndFunc

Ca fonctionne très bien sur certain fichier et d'autre cç m'affiche "0x0"?!

Une idée?

[TopXm]

Hello

Si je m'abuse le _Ftp_FileRead() retourne du binaire du coup plutôt que d'utiliser _HexToString() peut-être

voir du côté de BinaryToString()

[freezing]

Bonsoir
je ne sais pas combien pèse votre fichier mais si c'est un petit vaut mieux t'il pas le télécharger (_FTP_FileGet)
et après le lire puis l'effacer ?

[Hugues]

Merci pour vos réponses, je suis en vacances... donc pas le serveur FTP à ma portée.
J’essaie à la reprise et je vous tiens au courant!

[Hugues]

Hello

Si je m'abuse le _Ftp_FileRead() retourne du binaire du coup plutôt que d'utiliser _HexToString() peut-être

voir du côté de BinaryToString()

Bonjour me revoilà

J'ai essayé, ça fait pareil lol... Par contre je crois que je dois avoir des problèmes de connexion avec mon serveur FTP...

J'utilise la même fonction pour me connecté à 2 serveurs différents (mais arborescence identique).

Chaque serveur à un port different.

Il y en a un aucun soucis, mais l'autre non... il ne me met pas d'erreur mais me retourne 0 comme valeur sur le code

► Afficher le texte

Code : Tout sélectionner

$Open = _FTP_Open("MyAutoItFTP")
    $Conn = _FTP_Connect($Open, $server, $sLogin, $sPassword, 1, $iPortHelp)
    If $conn = 0 Then
        MsgBox(0,'return from connect',@error & @LF & @extended) ;<- ICI IL ME RETOURNE 0
    EndIf

Des idées?

MERCI

[Hugues]

Je reviens à la charge car j'ai vraiment des soucis avec _FTP...

J'arrive à lire le contenu d'un fichier qui est sur un serveur FTP via une MsgBox... mais j'arrive pas à le lister dans un array (ca aussi j'ai énormément de soucis )

Je joins mon code...

► Afficher le texte

Code : Tout sélectionner

Func _FileOpen()
    $Open = _FTP_Open("MyAutoItFTP")
    $Conn = _FTP_Connect($Open, $server, $sLogin, $sPassword, 1, $iPortHelp)
    If $conn = 0 Then
        MsgBox(0,'Retour de connexion:',@error & @LF & @extended)
    EndIf

    Local $h_File = _FTP_FileOpen($Conn, "/Caulking/" & $IDLine & "/" & $Sxx_xx & "/" & $FileToOpen)
    $Size = 10000000
    $HEX = _FTP_FileRead($h_File, $Size)
    $preread = _HexToString($HEX)
    MsgBox(0,"",$preread)


    _FTP_Close($Conn)
EndFunc

[Hugues]

C'est bon je me suis débrouillé...

Sujet résolu