Lister les informations sur les filtres avec WIA

Bonjours
Suite a ce tuto et ce post

Citation:

http://silkyroad.developpez.com/VBA/...geAcquisition/
http://www.developpez.net/forums/d74...rahie-windows/

Voici comment lister les informations sur les filtres
le code

Code:

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
 
// #include <utilcls.h> // <----- ne pas oublier d'inclure
 
void __fastcall TForm1::Button5Click(TObject *Sender)
{
// lister Informations Generales Filtres
 
Variant vMSWIAImageProcess;
String sWIAFiltres, sWIADescriptFiltres;
int iMSWIAnbFiltreDispo;
 
// creation du gestionnaire de filtre
vMSWIAImageProcess = Variant::CreateObject("WIA.ImageProcess");
// nombre de filtes disponibles
iMSWIAnbFiltreDispo = vMSWIAImageProcess.OlePropertyGet("FilterInfos").OlePropertyGet("Count");
// boucle sur l'ensemble des filtres disponibles
Memo1->ScrollBars = ssVertical;
for(int x = 1; x <= iMSWIAnbFiltreDispo; x++)
        {
        sWIAFiltres = vMSWIAImageProcess.OlePropertyGet("FilterInfos", x).OlePropertyGet("Name");
        Memo1->Lines->Add(sWIAFiltres);
        sWIADescriptFiltres = vMSWIAImageProcess.OlePropertyGet("FilterInfos", x).OlePropertyGet("Description");
        Memo1->Lines->Add(sWIADescriptFiltres);
        Memo1->Lines->Add("\r\n**************\r\n");
        }
}