numérisation auto cadrée

Version imprimable

bonjour,
j'aime bien l'assistant WIA parce qu'il cadre automatiquement le sujet numérisé (le cadrage se resserre automatiquement autour du sujet scanné et c'est bien pour des tas de raisons...)

Sur XP on trouvait son icone dans Poste de Travail.
Sur W7 cet assistant semble disparu mais il est toujours là quelque part dans le système. Seule son icone facile a disparu alors que l'assistant est encore utilisable par les menus des programmes (par ex Open office ou Paint...). C'est pour ça que je sais qu'il est toujours là :mrgreen:

je voudrais bien retrouver une icone à cliquer pour activer l'assistant WIA et j'ai le code suivant (scanner.wsf) qui commence bien mais je ne vois pas où il enregistre l'image JPG consécutive à la numérisation... en fait je ne sais même pas si il y a une image JPG qui existe alors que tout semble fonctionner.
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 <job> <reference object="WIA.DeviceManager" /> <object id="DeviceManager1" progid="WIA.DeviceManager" /> <object id="CommonDialog1" progid="WIA.CommonDialog" /> <script language="VBScript"> Dim Img 'As ImageFile Set Img = CommonDialog1.ShowAcquireImage If Img.FormatID <> wiaFormatJPEG Then Dim IP 'As New ImageProcess Set IP = CreateObject( "Wia.ImageProcess" ) IP.Filters.Add IP.FilterInfos("Convert").FilterID IP.Filters(1).Properties("FormatID").Value = wiaFormatJPEG Set Img = IP.Apply(Img) End If </script> </job>

Je ne vois pas la commande qui enregistrerait ton image.
Voici un code VBS qui permet de convertir une image de type BMP en JPG

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
    Dim Img1
    Dim IP
    Dim wiaFormatJPEG
 
    'Création conteneur pour l'image à manipuler
    Set Img1 = CreateObject("WIA.ImageFile")
    'Chargement de l'image dans le conteneur 375 K
    Img1.LoadFile ("C:\PersoFrancis\ClusesEnviron2.bmp")
 
    'Création du gestionnaire de filtre
    Set IP = CreateObject("WIA.ImageProcess")
    wiaFormatJPEG = "{B96B3CAE-0728-11D3-9D7B-0000F81EF32E}"
    IP.Filters.Add IP.FilterInfos("Convert").FilterID
    IP.Filters(1).Properties("FormatID").Value = wiaFormatJPEG
    IP.Filters(1).Properties("Quality").Value = 90
 
    Set Img1 = IP.Apply(Img1)
 
    'sauvegarde de l'image au format JPG => 38.7 K
    Img1.SaveFile ("C:\PersoFrancis\ClusesEnviron2Jpg.jpg")

Peut être cela te permettras d'adapter à ton besoin.

j'ai ajouté une ligne

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
<job>
<reference object="WIA.DeviceManager" />
<object id="DeviceManager1" progid="WIA.DeviceManager" />
<object id="CommonDialog1" progid="WIA.CommonDialog" />
<script language="VBScript">
 
Dim Img 'As ImageFile
 
Set Img = CommonDialog1.ShowAcquireImage
 
If Img.FormatID <> wiaFormatJPEG Then
Dim IP 'As New ImageProcess
Set IP = CreateObject( "Wia.ImageProcess" )
 
IP.Filters.Add IP.FilterInfos("Convert").FilterID
IP.Filters(1).Properties("FormatID").Value = wiaFormatJPEG
Set Img = IP.Apply(Img)
Img.SaveFile ("C:\scan.jpg")
End If
 
</script>
</job>

résultat

http://users.skynet.be/fa040800/scan00.JPG

17/01/2011, 19h06
ProgElecT

Tu as oublié cette ligne

Code:

wiaFormatJPEG = "{B96B3CAE-0728-11D3-9D7B-0000F81EF32E}"

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
<job>
<reference object="WIA.DeviceManager" />
<object id="DeviceManager1" progid="WIA.DeviceManager" />
<object id="CommonDialog1" progid="WIA.CommonDialog" />
<script language="VBScript">
 
Dim Img 'As ImageFile
 
Set Img = CommonDialog1.ShowAcquireImage
 
If Img.FormatID <> wiaFormatJPEG Then
Dim IP 'As New ImageProcess
Set IP = CreateObject( "Wia.ImageProcess" )
wiaFormatJPEG = "{B96B3CAE-0728-11D3-9D7B-0000F81EF32E}"
 
IP.Filters.Add IP.FilterInfos("Convert").FilterID
IP.Filters(1).Properties("FormatID").Value = wiaFormatJPEG
Set Img = IP.Apply(Img)
Img.SaveFile ("C:\scan.jpg")
End If
 
</script>
</job>

maintenant l'erreur c'est:

ligne 14
caract 2
Erreur Cet objet ne gère pas cette propriété ou cette méthode 'wiaFormatJPEG'
Code 800A01B6

Avec ce

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
27
28
29
30
<job>
<reference object="WIA.DeviceManager" />
<object id="DeviceManager1" progid="WIA.DeviceManager" />
<object id="CommonDialog1" progid="WIA.CommonDialog" />
<script language="VBScript">
 
    Dim Img1
    Dim IP
    Dim wiaFormatJPEG
 
    'Création conteneur pour l'image à manipuler
    Set Img1 = CreateObject("WIA.ImageFile")
    'Chargement de l'image dans le conteneur 375 K
    Img1.LoadFile ("C:\PersoFrancis\ClusesEnviron2.bmp")
 
    'Création du gestionnaire de filtre
    Set IP = CreateObject("WIA.ImageProcess")
    wiaFormatJPEG = "{B96B3CAE-0728-11D3-9D7B-0000F81EF32E}"
    IP.Filters.Add IP.FilterInfos("Convert").FilterID
    IP.Filters(1).Properties("FormatID").Value = wiaFormatJPEG
    IP.Filters(1).Properties("Quality").Value = 90
 
    Set Img1 = IP.Apply(Img1)
 
    'sauvegarde de l'image au format JPG => 38.7 K
    Img1.SaveFile ("C:\PersoFrancis\ClusesEnviron3.jpg")
 
 
</script>
</job>

lancé en double click dans l'explorateur windows sur le fichier .wsf, j'ai bien la sauvegarde.
Suivant ton OS windows il t'est peut être interdit d'enregistrer un fichier à la racine du disque C:

17/01/2011, 20h11
WikiHay

merci pour ton aide ProgElecT.

je viens de m'inscrire sur ce forum et c'était ma 1ere requête d'aide car ce n'est pas le vbscript qui occupe mes sessions habituelles. Je n'éspérais donc pas ici le jackpot du 1er coup. Mais c'est réconfortant de voir qu'il y en a qui essaient.

d'habitude je ne fais pas de VBScript ni aucune programmation mais j'ai beaucoup cherché, j'ai demandé sur les forums et j'ai pris note de ce que ProgElecT a donné et voila un script qui fonctionne sur mon PC en W7 64 et mon scanner.
Pour profiter de la numérisation auto-cadrante sur W7 il faut ouvrir Bloc Notes et copier-coller le code. Quand le fichier est fait il faut le renommer avec suffixe wsf (par exemple: scanner.wsf)
On double-click dessus et à la fin si tout va bien le fichier scan.jpg atterrit sur le Bureau.
Si on recommence à scanner alors la nouvelle image écrasera la première et le fichier garde le même nom (scan.jpg).
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 <job> <reference object="WIA.DeviceManager" /> <object id="DeviceManager1" progid="WIA.DeviceManager" /> <object id="CommonDialog1" progid="WIA.CommonDialog" /> <script language="VBScript"> const WEBCAMJPEG = "scan.jpg" set filesystem_obj = createobject("Scripting.FileSystemObject") Dim Img Set Img = CommonDialog1.ShowAcquireImage If Img.FormatID <> wiaFormatJPEG Then Dim IP Set IP = CreateObject( "Wia.ImageProcess" ) IP.Filters.Add IP.FilterInfos("Convert").FilterID IP.Filters(1).Properties("FormatID").Value = wiaFormatJPEG Set Img = IP.Apply(Img) if filesystem_obj.fileexists(WEBCAMJPEG) then filesystem_obj.deletefile(WEBCAMJPEG) end if img.savefile WEBCAMJPEG End If </script> </job>
le grand luxe serait d'ajouter dans ce script une boite de dialogue pour enregistrer la numérisation comme on veut sur le disk, mais...