Plus de Twain sur Vista

Le
Goupil
Du forum, bonjour,

Vista me torture une fois de plus (on arrête pas le progrès !)

J'utilise une procédure "récupérée" sur Internet qui fonctionne très bien:

Public Sub ShowScanner()
Dim Name As String
If TWAIN_GetSourceList() = 1 Then
Name = Space$(256)
While TWAIN_GetNextSourceName(Name) = 1
Name = Left(Name, InStr(Name, vbNullChar) - 1)
Me!cboScanner.AddItem Name
Name = Space$(256)
Wend
Name = Space$(256)
TWAIN_GetDefaultSourceName (Name)
Name = Left(Name, InStr(Name, vbNullChar) - 1) <-- BUG !
Me!cboScanner = Name
Else
Me!cboScanner.AddItem ("Aucune source disponible")
Me!btnScan.Enabled = False
End If
End Sub


Sur Vista, rien ne va plus, la procédure ne reconnait plus aucun twain.
Je précise que les fichiers converter.dll et Eztw32.dll sont bien présents
dans le dossier de la base, mais rien n'y fait.

Quelqu'un aurait-il une petite idée ?

Merci d'avance

Goup'
Questions / Réponses high-tech
Vidéos High-Tech et Jeu Vidéo
Téléchargements
Vos réponses
Gagnez chaque mois un abonnement Premium avec GNT : Inscrivez-vous !
Trier par : date / pertinence
3stone
Le #20134001
Salut,

Tu ne devrais déjà pas utiliser des nom de variable
comme "Name" qui est une... propriété.

Et... que contiennent les fonctions TWAIN_Get... ?

--
A+
Pierre (3stone) Access MVP
Perso: http://www.3stone.be/
MPFA: http://www.mpfa.info/ (infos générales)




Goupil wrote:
Du forum, bonjour,

Vista me torture une fois de plus (on arrête pas le progrès !)

J'utilise une procédure "récupérée" sur Internet qui fonctionne très
bien: ---------------------------------
Public Sub ShowScanner()
Dim Name As String
If TWAIN_GetSourceList() = 1 Then
Name = Space$(256)
While TWAIN_GetNextSourceName(Name) = 1
Name = Left(Name, InStr(Name, vbNullChar) - 1)
Me!cboScanner.AddItem Name
Name = Space$(256)
Wend
Name = Space$(256)
TWAIN_GetDefaultSourceName (Name)
Name = Left(Name, InStr(Name, vbNullChar) - 1) <-- BUG !
Me!cboScanner = Name
Else
Me!cboScanner.AddItem ("Aucune source disponible")
Me!btnScan.Enabled = False
End If
End Sub
---------------------------------

Sur Vista, rien ne va plus, la procédure ne reconnait plus aucun
twain. Je précise que les fichiers converter.dll et Eztw32.dll sont
bien présents dans le dossier de la base, mais rien n'y fait.

Quelqu'un aurait-il une petite idée ?

Merci d'avance

Goup'


Goupil
Le #20137751
Le déclarations de fonction TWAIN_Get:

Declare Function TWAIN_GetSourceList Lib "EZTW32.DLL" () As Long
Declare Function TWAIN_GetNextSourceName Lib "EZTW32.DLL" (ByVal Name As
String) As Long
Declare Function TWAIN_GetDefaultSourceName Lib "EZTW32.DLL" (ByVal Name As
String) As Long
Declare Function TWAIN_OpenSource Lib "EZTW32.DLL" (ByVal Name As String) As
Long
Declare Function TWAIN_UnloadSourceManager Lib "EZTW32.DLL" () As Long
Permet d'établir la liste des modules d'acquisition (scanner, webcam
etc...)

Goup'

"3stone"
Salut,

Tu ne devrais déjà pas utiliser des nom de variable
comme "Name" qui est une... propriété.

Et... que contiennent les fonctions TWAIN_Get... ?

--
A+
Pierre (3stone) Access MVP
Perso: http://www.3stone.be/
MPFA: http://www.mpfa.info/ (infos générales)




Goupil wrote:
Du forum, bonjour,

Vista me torture une fois de plus (on arrête pas le progrès !)

J'utilise une procédure "récupérée" sur Internet qui fonctionne très
bien: ---------------------------------
Public Sub ShowScanner()
Dim Name As String
If TWAIN_GetSourceList() = 1 Then
Name = Space$(256)
While TWAIN_GetNextSourceName(Name) = 1
Name = Left(Name, InStr(Name, vbNullChar) - 1)
Me!cboScanner.AddItem Name
Name = Space$(256)
Wend
Name = Space$(256)
TWAIN_GetDefaultSourceName (Name)
Name = Left(Name, InStr(Name, vbNullChar) - 1) <-- BUG !
Me!cboScanner = Name
Else
Me!cboScanner.AddItem ("Aucune source disponible")
Me!btnScan.Enabled = False
End If
End Sub
---------------------------------

Sur Vista, rien ne va plus, la procédure ne reconnait plus aucun
twain. Je précise que les fichiers converter.dll et Eztw32.dll sont
bien présents dans le dossier de la base, mais rien n'y fait.

Quelqu'un aurait-il une petite idée ?

Merci d'avance

Goup'





3stone
Le #20166291
Salut,

Chez moi, il n'y à pas de problème...

Mais, j'ai comme déjà dit, remplacer ta variable "Name" par "sName"

;-)

--
A+
Pierre (3stone) Access MVP
Perso: http://www.3stone.be/
MPFA: http://www.mpfa.info/ (infos générales)



Goupil wrote:
Le déclarations de fonction TWAIN_Get:

Declare Function TWAIN_GetSourceList Lib "EZTW32.DLL" () As Long
Declare Function TWAIN_GetNextSourceName Lib "EZTW32.DLL" (ByVal Name
As String) As Long
Declare Function TWAIN_GetDefaultSourceName Lib "EZTW32.DLL" (ByVal
Name As String) As Long
Declare Function TWAIN_OpenSource Lib "EZTW32.DLL" (ByVal Name As
String) As Long
Declare Function TWAIN_UnloadSourceManager Lib "EZTW32.DLL" () As Long
Permet d'établir la liste des modules d'acquisition (scanner, webcam
etc...)

Goup'

"3stone"
Salut,

Tu ne devrais déjà pas utiliser des nom de variable
comme "Name" qui est une... propriété.

Et... que contiennent les fonctions TWAIN_Get... ?

--
A+
Pierre (3stone) Access MVP
Perso: http://www.3stone.be/
MPFA: http://www.mpfa.info/ (infos générales)




Goupil wrote:
Du forum, bonjour,

Vista me torture une fois de plus (on arrête pas le progrès !)

J'utilise une procédure "récupérée" sur Internet qui fonctionne très
bien: ---------------------------------
Public Sub ShowScanner()
Dim Name As String
If TWAIN_GetSourceList() = 1 Then
Name = Space$(256)
While TWAIN_GetNextSourceName(Name) = 1
Name = Left(Name, InStr(Name, vbNullChar) - 1)
Me!cboScanner.AddItem Name
Name = Space$(256)
Wend
Name = Space$(256)
TWAIN_GetDefaultSourceName (Name)
Name = Left(Name, InStr(Name, vbNullChar) - 1) <-- BUG !
Me!cboScanner = Name
Else
Me!cboScanner.AddItem ("Aucune source disponible")
Me!btnScan.Enabled = False
End If
End Sub
---------------------------------

Sur Vista, rien ne va plus, la procédure ne reconnait plus aucun
twain. Je précise que les fichiers converter.dll et Eztw32.dll sont
bien présents dans le dossier de la base, mais rien n'y fait.

Quelqu'un aurait-il une petite idée ?

Merci d'avance

Goup'






Goupil
Le #20239091
Merci Pierre,

J'essaye ça tout de suite.

Amicalement

Goup'
"3stone" %
Salut,

Chez moi, il n'y à pas de problème...

Mais, j'ai comme déjà dit, remplacer ta variable "Name" par "sName"

;-)

--
A+
Pierre (3stone) Access MVP
Perso: http://www.3stone.be/
MPFA: http://www.mpfa.info/ (infos générales)



Goupil wrote:
Le déclarations de fonction TWAIN_Get:

Declare Function TWAIN_GetSourceList Lib "EZTW32.DLL" () As Long
Declare Function TWAIN_GetNextSourceName Lib "EZTW32.DLL" (ByVal Name
As String) As Long
Declare Function TWAIN_GetDefaultSourceName Lib "EZTW32.DLL" (ByVal
Name As String) As Long
Declare Function TWAIN_OpenSource Lib "EZTW32.DLL" (ByVal Name As
String) As Long
Declare Function TWAIN_UnloadSourceManager Lib "EZTW32.DLL" () As Long
Permet d'établir la liste des modules d'acquisition (scanner, webcam
etc...)

Goup'

"3stone"
Salut,

Tu ne devrais déjà pas utiliser des nom de variable
comme "Name" qui est une... propriété.

Et... que contiennent les fonctions TWAIN_Get... ?

--
A+
Pierre (3stone) Access MVP
Perso: http://www.3stone.be/
MPFA: http://www.mpfa.info/ (infos générales)




Goupil wrote:
Du forum, bonjour,

Vista me torture une fois de plus (on arrête pas le progrès !)

J'utilise une procédure "récupérée" sur Internet qui fonctionne très
bien: ---------------------------------
Public Sub ShowScanner()
Dim Name As String
If TWAIN_GetSourceList() = 1 Then
Name = Space$(256)
While TWAIN_GetNextSourceName(Name) = 1
Name = Left(Name, InStr(Name, vbNullChar) - 1)
Me!cboScanner.AddItem Name
Name = Space$(256)
Wend
Name = Space$(256)
TWAIN_GetDefaultSourceName (Name)
Name = Left(Name, InStr(Name, vbNullChar) - 1) <-- BUG !
Me!cboScanner = Name
Else
Me!cboScanner.AddItem ("Aucune source disponible")
Me!btnScan.Enabled = False
End If
End Sub
---------------------------------

Sur Vista, rien ne va plus, la procédure ne reconnait plus aucun
twain. Je précise que les fichiers converter.dll et Eztw32.dll sont
bien présents dans le dossier de la base, mais rien n'y fait.

Quelqu'un aurait-il une petite idée ?

Merci d'avance

Goup'









Publicité
Poster une réponse
Anonyme