Je cherche a utiliser la Dll twaindsm.dll afin de piloter un scanner ou autre a la manière de EZtwain et du module existant.

Pour l'instant j'en suis a charger la Dll mais pas d'ouverture de la sélection de la source, en fichier join la documentation de la Dll ainsi que le fichier twain.h

twain.zipTWAIN-2.3-Spec.002.zipTWAIN-2.3-Spec.001.zip

voici mon code source

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
#!/usr/bin/perl
use strict;
use warnings;
$|++;
use Win32::API;
use Data::Dumper;
use constant {
	#DG_CONTROL => 0x0001L,
	DG_CONTROL => 0x0001,
	MSG_OPENDSM => 0x0301,
	MSG_CLOSEDS =>     0x0402,
	MSG_USERSELECT =>  0x0403,
};
my $DSM_Entry = new Win32::API('TWAINDSM.dll','DSM_Entry','PPNNNP','N');
my $TW_IDENTITY = pack('LSSSL', 4, 2, 2, 2, 6, 
	'Manufacture',
	'ProductFamily',
	'ProductName'
);
my $return = $DSM_Entry->Call(\$TW_IDENTITY, '', DG_CONTROL, '0', MSG_OPENDSM, '0');
si quelqu'un a une idée ?