PC SOFT

GRUPOS DE DISCUSSÃO PROFISSIONAL
WINDEV, WEBDEV e WINDEV Mobile

Inicio | Mensagens recentes | Conecte-se... |  | Português FR
Inicio → WINDEV 25 → Aula 1048 - WebDev22 14/... - Upload Imagen
Aula 1048 - WebDev22 14/... - Upload Imagen
Iniciado por amarildo, jan., 26 2017 7:54 AM - 1 resposta
#1
Membro registado
535 mensagems
Popularité : +14 (14 votes)
Publicado em janeiro, 26 2017 - 7:54 AM
// 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


http://windevdesenvolvimento.blogspot.com.br/2017/01/aula-1048-webdev22-14-upload-imagen.html

Mensagem modificada, janeiro, 26 2017 - 7:55 AM
#2
Membro registado
3.659 mensagems
Popularité : +175 (223 votes)
Publicado em fevereiro, 09 2017 - 10:58 AM
:merci:

--
Adriano José Boller
______________________________________________
Consultor e Representante Oficial da
PcSoft no Brasil
+55 (41) 99949 1800
adrianoboller@gmail.com
skype: adrianoboller
http://wxinformatica.com.br/
→ Voltar para WINDEV 25