GRUPOS DE DISCUSSÃO PROFISSIONAL
WINDEV
,
WEBDEV
e
WINDEV Mobile
Inicio
|
Mensagens recentes
|
Conecte-se...
|
Disconnect
|
Português
Inicio
→
WINDEV Mobile (versões anteriores)
→
Ouvrir une application Photo autre que celle par défaut
Ouvrir une application Photo autre que celle par défaut
Iniciado por Julie, mar., 14 2024 12:06 PM - Sem resposta
Conecte-se…
Julie
#1
Publicado em março, 14 2024 - 12:06 PM
Bonjour,
Depuis Android 11 on ne peut plus déclarer un autre application photo que celle de native comme étant par défaut. L'application photo native ne convient pas à mes opérateurs. J'ai fait des tests sur OpenCamera qui leur convient mieux... Ma problématique étant comment la lancer mais surtout comment récupérer les photos renvoyées par cette application.
Voici mon code d'origine :
Procedure
NouvellePhoto
(
s
CB
est une chaîne
,
n
Pos
)
s
CheminGalerie
est une chaîne
s
NomDestination
est une chaîne
=
""
s
NomCompletDestination
est une chaîne
=
""
SI
EnModeTest
(
)
ALORS
s
NomCompletDestination
=
"C:\Users\julie.aymard\Pictures\Screenshot_20220608-092840.png"
RENVOYER
s
NomCompletDestination
FIN
// Lancement de la prise de photo, si la photo est prise, la fonction renvoie le chemin de la photo enregistrée dans la galerie
s
CheminGalerie
=
CaméraLanceAppli
(
viCaptureImage
)
//Si l'opérateur a pris une photo sans annuler, le chemin renvoyé n'est pas vide
SI
s
CheminGalerie
<
>
""
ALORS
//On récupère l'angle de rotation
n
Rotation
est une entier
=
GetExifAngle
(
s
CheminGalerie
)
// Futur nom du fichier photo
s
NomDestination
=
ChaîneConstruit
(
"%1-%2%3"
,
DateHeureSys
(
)
,
DonneGUID
(
guidBrut
)
,
fExtraitChemin
(
s
CheminGalerie
,
fExtension
)
)
//chemin complet du fichier à sauvegarder (dans les documents publics du smartphone)
s
NomCompletDestination
=
PhotoCheminCompresse
(
s
NomDestination
)
// Copie du fichier originel avant de le travailler
fCopieFichier
(
s
CheminGalerie
,
s
NomCompletDestination
)
//Suppression du fichier de la galerie
fSupprime
(
s
CheminGalerie
)
MonImage
est une Image
=
dChargeImage
(
s
NomCompletDestination
)
n
Ratio
est un
numérique
SI
MonImage
..
Hauteur
>
MonImage
..
Largeur
ALORS
n
Ratio
=
MonImage
..
Largeur
/
gn
TailleMax
SINON
n
Ratio
=
MonImage
..
Hauteur
/
gn
TailleMax
FIN
dRedimensionne
(
MonImage
,
MonImage
..
Largeur
/
n
Ratio
,
MonImage
..
Hauteur
/
n
Ratio
)
//On tourne l'image de l'angle de rotation donné par la fonction exif
dRotation
(
MonImage
,
n
Rotation
)
//On enregistre l'image en lui affectant un coefficient de qualité ex: 50%
SI
dSauveImageJPEG
(
MonImage
,
s
NomCompletDestination
,
gn
PourcentageCompression
)
ALORS
//Suppression d'une éventuelle photo sur la même pièce
HLitRecherchePremier
(
T_ACTION
,
ACT_PHOTO_POSITIONACT_PHOTO_CB_PIECE
,
[
Val
(
n
Pos
)
,
s
CB
]
)
SI
HTrouve
(
T_ACTION
)
ALORS
HSupprime
(
T_ACTION
)
FIN
// Ajout dans la base de données des actions à traiter
HRAZ
(
T_ACTION
)
T_ACTION.ACT_PHOTO_COMPRESSEE_CHEMIN
=
s
NomCompletDestination
//T_ACTION.ACT_PHOTO_GALERIE_CHEMIN = sCheminGalerie
T_ACTION.ACT_PHOTO_CB_PIECE
=
s
CB
T_ACTION.ACT_PHOTO_POSITION
=
Val
(
n
Pos
)
T_ACTION.ACT_ENVOYE
=
0
HAjoute
(
T_ACTION
)
// Appel WS
SI
gn
TempsReel
=
1
_ET_
ThreadEtat
(
"ThreadEnvoiActionsWs"
) =
threadInexistant
ALORS
ThreadExecute
(
"ThreadEnvoiActionsWs"
,
threadNormal
,
"EnvoiActionsWS"
,
s
CB
,
n
Pos
)
FIN
FIN
FIN
RENVOYER
s
NomCompletDestination
Sachant que sur mon application comporte une liste de photos à prendre dans une liste répétée. L'opérateur clique sur celle qu'il veut prendre ... ma procédure se lance permettant de lancer l'application, l'opérateur prend la photo puis valide sur Ok et cela ramène à l'écran avec la zone répétée... en affichant la photo en icône. Il peut également passer en mode "rapide" et enchainer les photos sans repasser par la zone répétée... je ne sais pas si je suis assez claire.
Denunciar
0
0
→ Voltar para WINDEV Mobile (versões anteriores)
WINDEV 2024
WEBDEV 2024
WINDEV Mobile 2024
WINDEV (versões anteriores)
WEBDEV (versões anteriores)
WINDEV Mobile (versões anteriores)
Reports & Queries
Off-topic
Ferramentas
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