pictogram Auteur: Patrick Biker
Date: 18 mars 2006
Maj : 21 Mars 2015

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.

Revenir à la page des exemples évolués


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