Je vous propose de découvrir dans ce nouveau tutoriel WebDev, comment mettre en place un système de profile avatar, aujourd'hui on va s'intéresser à l'ajout d'une photo de profile, vous pouvez donc adapter ce système dans vos pages Web si vus l'avez développer avec WebDev.
Partie Inscription (Création compte)
//Créer un répertoire
cheminRpertoire est une chaîne = fRepEnCours() + "/profile"
//Récupéré le nom du fichier en upload
nom_Fichier est une chaîne = fExtraitChemin(Profile, fFichier + fExtension)
//Extraire le nom du fichier en upload
extrait_nom est une chaîne = Remplace(Profile,";C:\wamp\tmp\" + nom_Fichier,"")
//Récupérer l'extension du fichier en upload
extention_fichier est une chaîne = fExtraitChemin(extrait_nom,fExtension)
//Crypte le nom du fichier
cryppt_nom est une chaîne = Nom + Crypte(nom_Fichier,"profile")
//Vérifier si le répertoire existe
SI fRepExiste(cheminRpertoire) ALORS
UploadCopieFichier(Profile,cheminRpertoire,cryppt_nom)
SINON
fRepCrée(cheminRpertoire)
UploadCopieFichier(Profile,cheminRpertoire,cryppt_nom)
FIN
//Création du compte pour l'utilisateur
Inseertion est une chaîne = "INSERT INTO users SET NOM = '" + Nom + "', MDP = '" + Mot_de_passe + "', PROFILE = '" + cryppt_nom + extention_fichier + "'"
//Vérification si l’exécution est confirmer
SI SQLExec(Inseertion, "INS") ALORS
Info("Votre Compte est créer")
FIN
Partie Connexion
//Recherche l'utilisateur pour le connecter
Recherche_User est une chaîne = "SELECT * FROM users WHERE NOM = '" + Nom_user + "' AND MDP = '" + Pass + "'"
//Vérification si l'execution est valide
SI SQLExec(Recherche_User, "CONNEXION") ALORS
SQLPremier("CONNEXION")
// On renvoi vers une pages
PageAffiche(Profile_utilisateur, SQLCol("CONNEXION",1))
FIN
Partie profile
//Importation de la BDD
DB()
//On récupère l'id de l'utilisateur
Id_User est un entier = PageParamètre("P1")
//On recherche dans la base de donnée
info_users est une chaîne = "SELECT * FROM users WHERE ID = '" + Id_User + "'"
//Vérification si l’exécution est correct
SI SQLExec(info_users, "INFOS") ALORS
SQLPremier("INFOS")
// Affichage des informations concernant l'utilisateur
ImageCliquable1 = "/profile/" + SQLCol("INFOS",4)
Nom_Utilisateur = SQLCol("INFOS",2)
FIN