FORUMS PROFESSIONNELS
WINDEV
,
WEBDEV
et
WINDEV Mobile
Accueil
|
Messages récents
|
Connexion
|
Déconnexion
|
Français
Accueil
→
WINDEV 25
→
WX - Tirar uma foto pelo aplicativo
WX - Tirar uma foto pelo aplicativo
Débuté par BOLLER, 19 oct. 2017 15:40 - Aucune réponse
Connectez-vous…
BOLLER
#1
Membre enregistré
3 657 messages
Popularité : +175 (223 votes)
Posté le 19 octobre 2017 - 15:40
// Summary: <specify the procedure action>
// Syntax:
// TirarFoto ()
//
// Parameters:
//
None
// Return Value:
//
None
//
// For instance:
// Indicate an example.
//
Procedure
TirarFoto
(
)
//1 : Sim
//2 : Não
SWITCH
Dialog
(
"Deseja tirar uma nova foto?"
)
// Sim
CASE
1
s
Foto
is string
s
Foto
=
VideoStartApp
(
viPictureCapture
)
IF
s
Foto
<
>
""
THEN
IMG_
Foto
=
s
Foto
t001_usuarios.t001_avatar_Img
=
IMG_
Foto
//1 : Sim
//2 : Não
SWITCH
Dialog
(
"Deseja girar a foto?"
)
// Sim
CASE
1
//1 : Sentido Horário
//2 : Sentido Anti-Horário
SWITCH
Dialog
(
"Qual sentido devo girar a foto?"
)
// Sentido Horário
CASE
1
dRotation
(
IMG_
Foto
,
90
)
// Sentido Anti-Horário
CASE
2
dRotation
(
IMG_
Foto
,
-
90
)
END
// Não
CASE
2
END
END
// Não
CASE
2
//1 : Sim
//2 : Não
SWITCH
Dialog
(
"Deseja usar uma foto da galeria de fotos?"
)
// Sim
CASE
1
// select an image in the gallery
s
ImagePath
is string
=
AlbumPicker
(
albumImage
)
IF
s
ImagePath
<
>
""
THEN
{
IMG_
Foto
..
FileLink
,
indItem
}
=
fLoadBuffer
(
s
ImagePath
)
IMG_
Foto
=
{
IMG_
Foto
..
FileLink
,
indItem
}
t001_usuarios.t001_avatar_Img
=
IMG_
Foto
END
// Não
CASE
2
END
END
//save jpg
buf
Imagem
is
Buffer
=
dLoadImage
(
IMG_
Foto
,
imgDefault
,
97
,
77
)
fSaveBuffer
(
"foto.jpg"
,
buf
Imagem
)
--
Adriano José Boller
______________________________________________
Consultor e Representante Oficial da
PcSoft no Brasil
+55 (41) 99949 1800
adrianoboller@gmail.com
skype: adrianoboller
http://wxinformatica.com.br/
Signaler
1
0
→ Revenir à WINDEV 25
WINDEV 25
Français
English
Español
Portuguesa
Fermer cette fenêtre
Type de recherche
Uniquement les sujets
Tous les messages
Période de recherche
Date indifférente
Moins d'une heure
Moins de 24 heures
Moins d'une semaine
Moins d'un mois
Moins d'un an
Annuler
Aperçu de votre message
Ajouter une image
Importer une image depuis une URL
Envoyer une image depuis un fichier de votre disque
Déposez ici un fichier ou cliquez sur "Parcourir..."
ou
Annuler
0%
WLangage
SQL
XML, HTML
JAVA, Javascript
Texte