Pas grave, tant qu'il y estFrenchy Pilou a écrit :Anglaise
.
Ca c'est génial d'y avoir pensé, merci FredDr. Dri a écrit :...
Y'a même des formules de géométrie lol
Dri
j'ai envoyer les € vendredi j'espere qu'ils les resevront maximum lundi Code : Tout sélectionner
; Programme d'essai pour FTP
;
; Création d'un buffer pour la fonction réseau 'ReceiveNetworkData
*MemoryID = AllocateMemory(5000)
; Initialisation du réseau
If InitNetwork()
; Connexion au serveur FTP de Free en mode TCP
Connection = OpenNetworkConnection("ftpperso.free.fr", 21 , #PB_Network_TCP)
If Connection > 0
Debug "Connexion réussie - Attente de données de l'hote distant"
; On attend maintenant que le serveur renvoit un message (type "220 - ..." (RFC xxx))
Repeat
Until NetworkClientEvent(Connection)
; Des données sont arrivées ! il faut les placer dans le buffer et en connaître la longueur.
; La variable 'result' donne la longueur réellement lue.
Result = ReceiveNetworkData(Connection, *MemoryID, 5000)
Debug "Donnees = "+Str(Result)+" Oct."
; pour afficher les données dans le buffer. *Memory étant un pointeur, il faut utiliser PeekS.
Text$ = PeekS(*MemoryID, Result)
Debug Text$
; Soyons propre, fermons la connexion avant de quitter.
CloseNetworkConnection(Connection)
EndIf
EndIf