problème de webcam

bonjour, j'ai regardé cette source pour prendre une image webcam :

http://www.delphifr.com/codes/WEBCAM_20362.aspx

seulement, j'ai constaté que lorsqu'on lançait le programme alors que la webcam était déjà utilisée, le programme demandé automatiquement de sélectionner une autre webcam, comment faire pour renvoyer un message d'erreur lorsque qu'aucune webcam n'est détectée ? ou juste s'arranger pour que la boite de dialogue n'apparaisse pas ?

merci

hummm je n'ai plus ce composant mais de mémoire il me semble que pour éviter des erreurs il faut toujours prendre soin de désactiver le TCamera avant de l'activer.

Procedure MachinChose;
Begin
Camera1.Actif:=False;
Camera1.Actif:=true;
//Le reste de ta procédure
End;

Bye

Sinon regarde le source du composant TCamera : il utilise des API Windows et ce n'est pas compliqué à utiliser : avantage ton appli est moins lourde ;).

salut

oui mais je ne trouve pas la procedure ou la fonction qui affiche une boite de dialogue dans le cas ou il n'y a pas de webcam trouvée :(

Mania : elle est pas codé la boite de dialogue. Deux solutions :

1)Utiliser les api

2)Try
    camera.active:=false;
    Camera1.active:=true;
    Except
    showmessage('Il n''y a pas de webcam de branchée');
 End;

@+

non la boite de dialogue apparait toujours, elle n'est pas codé dans la source, mais il y a certainement un endroit où elle est appelée, mais je ne le trouve pas :(