GRUPOS DE DISCUSSÃO PROFISSIONAL
WINDEV
,
WEBDEV
e
WINDEV Mobile
Inicio
|
Mensagens recentes
|
Conecte-se...
|
Disconnect
|
Português
Inicio
→
WINDEV 25
→
WX - Tirando foto com celular e usando como Avatar
WX - Tirando foto com celular e usando como Avatar
Iniciado por BOLLER, set., 29 2017 10:01 PM - Sem resposta
Conecte-se…
BOLLER
#1
Membro registado
3.651 mensagems
Popularité : +175 (223 votes)
Publicado em setembro, 29 2017 - 10:01 PM
// 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
)
ToastDisplay
(
"Imagem atualizada com sucesso"
)
--
Adriano José Boller
______________________________________________
Consultor e Representante Oficial da
PcSoft no Brasil
+55 (41) 99949 1800
adrianoboller@gmail.com
skype: adrianoboller
http://wxinformatica.com.br/
Denunciar
0
0
→ Voltar para WINDEV 25
WINDEV 25
Français
English
Español
Portuguesa
Fermer cette fenêtre
Tipo de Pesquisa
Apenas tópicos
Todas as mensagens
Período de pesquisa
Qualquer momento
Última hora
Últimas 24 horas
Semana passada
Mês passado
Ano passado
Cancelar
Pré-visualização da sua mensagem
Adicionar imagem
Importar uma imagem de uma URL
Enviar uma imagem a partir do seu disco
Deixe um ficheiro ou clique em "Procurar ..."
ou
Cancelar
0%
WLanguage
SQL
XML, HTML
JAVA, Javascript
Texto