Prendre une photo par la camera du pc et la stoké dans le champ image

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