Windev21 Aulas,Estudos e Desenvolvimento: Aula 1048 - WebDev22 14/...

Video no Youtube Se Gostou clique aqui para dar joinha

http://doc.windev.com/en-US/?1000018815&name=upload_functions
http://doc.windev.com/en-US/?3012023&name=uploadcopiefichier_fonction
http://doc.windev.com/en-US/?1000018793&name=UploadLance
http://doc.windev.com/en-US/?3013031&name=executeprocess_function

// Vou Mostrar como Fazer um Upload de uma Imagen

//=======================================
// Clic (Onclick) De Btn_ExecutaMostraFoto (navigateur )
UploadStart(UPL_Upload_Foto)
//---------------------------------------
// Acionar Ajax
// Clic de Btn_ExecutaMostraFoto (Serveuer)
IMG_Imagen=SAI_Foto
//=======================================
// A chaque modification de la liste des fichier sélectionnés dans Upl_Upload_foto(navigateur)
IF UPL_Upload_Foto..Occurrence<>0 THEN
    SAI_Foto=UPL_Upload_Foto
    ExecuteProcess(BTN_ExecutaMostraFoto,trtClic)
END
//---------------------------------------
// Réception des fichier uploadés de Upl_Upload_foto (Server)
//Acionar Ajax
//Se upload foto for diferente de 0
IF UPL_Upload_Foto..Occurrence<>0 THEN
    UploadCopieFichier(UPL_Upload_Foto,"","",1)
END
//=======================================
//Clic de Btn_RemoverImagen
IMG_Imagen=""
//=======================================
//Clic de Btn_Valider (Serveuer)
// Lecture des informations saisies
PageToFile()
//Caso Não Gravar Imagen
    sites_uteis.imagen=IMG_Imagen
//Caso Não Gravar Imagen
HSave(sites_uteis)
IF PreviousPage()<>"" THEN
    PageDisplay(PreviousPage)
ELSE
    //PageDisplay(PAGE_Accueil)
END
=========================================================================