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;
} |
Partager