Bonjour
A la suite de ce poste
Voici comment acquerir une image a partir d'une Webcam, bien sur le code est simpliste il n'y a aucun teste lors de la sauvegarde et pas de previsualisation
Le code
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
 
void __fastcall TForm1::Button2Click(TObject *Sender)
{
Variant wzd, vct, dev, item, imfile;
wzd = Variant::CreateObject("WIA.CommonDialog");
vct = Variant::CreateObject("WIA.Vector");
// acquisition du type de periferique
// Enum WiaDeviceType
//    UnspecifiedDeviceType = 0
//    ScannerDeviceType = 1
//    CameraDeviceType = 2
//    VideoDeviceType = 3
// End Enum
// acquisition du periferique
dev = wzd.OleFunction("ShowSelectDevice", 3, true, true); // VideoDeviceType = 3
// acquisition d'une image a partir de la WebCam
// wiaCommandTakePicture = "{AF933CAC-ACAD-11D2-A093-00C04F72DC3C}"
item = dev.OleFunction("ExecuteCommand", "{AF933CAC-ACAD-11D2-A093-00C04F72DC3C}");
// transfert de l'image
imfile = item.OleFunction("Transfer");
// sauvegarde de l'image
imfile.OleFunction("SaveFile", "C:\\Documents and Settings\\blondelle\\Mes documents\\Mes images\\Video_Wia.jpg");
 
wzd = Unassigned;
vct = Unassigned;
}