FOROS PROFESIONALES
WINDEV
,
WEBDEV
y
WINDEV Mobile
Inicio
|
Mensajes recientes
|
Conéctese...
|
Desconectar
|
Español
Inicio
→
WINDEV 25
→
WX - Tirar uma foto pelo aplicativo
WX - Tirar uma foto pelo aplicativo
Iniciado por BOLLER, 19,oct. 2017 15:40 - No hay respuesta
Conéctese…
BOLLER
#1
Miembro registrado
3.651 mensajes
Popularité : +175 (223 votes)
Publicado el 19,octubre 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/
Informar
1
0
→ Volver a WINDEV 25
WINDEV 25
Français
English
Español
Portuguesa
Fermer cette fenêtre
Búsqueda Tipo
Sólo temas
Todos los mensajes
Periodo Buscar
Cualquier fecha
Última hora
Última 24 horas
Última semana
Último mes
Último año
Cancelar
Vista previa del mensaje
Añadiendo una imagen
Importar una imagen desde una URL
Enviar una imagen desde un archivo de su disco
Arrastrar un archivo o click en "Examinar..."
o
Cancelar
0%
WLanguage
SQL
XML, HTML
JAVA, Javascript
Texto