Bonjour à tous Je veux prendre une photo par la camera du pc et la place dans le champ photo de l application votre aide svp aide de wd sFichierImage est une chaîne sMiniature est une chaîne // Prend une photo avec la caméra de l'appareil Android sFichierImage = VidéoLanceAppli(viCaptureImage) SI sFichierImage = "" ALORS Erreur("Impossible de prendre la photo. ", ErreurInfo()) RETOUR FIN // Génère une miniature à partir de la photo prise par l'appareil et affiche la miniature dans un champ Image sMiniature = fExtraitChemin(sFichierImage, fDisque + fRépertoire + fFichier) + "_thumb.jpg" SI VidéoGénèreMiniature(sFichierImage, sMiniature) = Vrai ALORS IMG_Photo = sMiniature SINON Erreur("Impossible de générer la miniature.", ErreurInfo()) FIN
sPhoto est une chaîne sPhoto = VidéoLanceAppli(viCaptureImage) SI sPhoto<>"" ALORS Info("Photo sauvegardée dans le fichier " + sPhoto) FIN