3 pièce(s) jointe(s)
utiliser la Dll twaindsm.dll
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
Pièce jointe 189388Pièce jointe 189389Pièce jointe 189390
voici mon code source
Code:
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 ?