Exemples évolués
Chaque exemple montre une utilisation pratique de la fonction du WLangage.
Quand plusieurs syntaxes sont possibles, chacune est illustrée indépendamment.
L'exemple suivant permet de récupérer un fichier du serveur sur le poste client.
|
||
hConnect est un entier
hConnect = NetConnecte("148.61.125.245", ServeurFTP , "GUEST", "") ... NetRécupèreFichier(hConnect, "C:\autoexec.bat", "C:\autoexec.cli")
|
||
Cet exemple permet de récupérer des fichiers présents sur un serveur FTP en gérant une jauge de progression. La fenêtre a pour nom "MAIN". La jauge de progression est gérée dans cette fenêtre.
|
||
-- Code d'ouverture de la fenêtre
// Demande d'un message disponible à Windows GLOBAL WM_MYMESSAGE est un entier lpString est une chaîne fixe sur 20 = "Jauge_Main" hConnect est un entier // Connexion hConnect = NetConnecte("148.61.125.245", ServeurFTP , "GUEST", "") WM_MYMESSAGE = AppelDLL32("USER32", "RegisterWindowMessageA" , & lpString) // Branchement de la procédure Jauge sur ce message Evénement("MAJJauge", "MAIN", WM_MYMESSAGE) -- Code du bouton de récupération de fichier
Sablier( Vrai ) SI PAS NetRécupèreFichier (hConnect, "C:\autoexec.bat", ... "C:\autoexec.cli", WM_MYMESSAGE, 10) ALORS Erreur("Erreur dans le transfert de fichier") FIN Sablier( Faux ) -- Procédure MAJJauge()
Procédure MAJJauge() // Affichage de la jauge // Si tout le fichier est transféré, on réinitialise la jauge SI _EVE.wparam = _EVE.lparam ALORS // Transfert terminé Jauge() SINON // Transfert en cours Jauge(_EVE.wparam, _EVE.lparam, "Transfert en cours") FIN
|