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.
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'
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... ?
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.
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 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" a écrit dans le message de news:
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... ?
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'
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" <home@sweet_home.be> a écrit dans le message de news:
ehSl5iINKHA.4028@TK2MSFTNGP05.phx.gbl...
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... ?
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.
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" a écrit dans le message de news:
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... ?
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
Salut,
Chez moi, il n'y à pas de problème...
Mais, j'ai comme déjà dit, remplacer ta variable "Name" par "sName"
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" a écrit dans le message de news:
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... ?
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'
Salut,
Chez moi, il n'y à pas de problème...
Mais, j'ai comme déjà dit, remplacer ta variable "Name" par "sName"
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" <home@sweet_home.be> a écrit dans le message de news:
ehSl5iINKHA.4028@TK2MSFTNGP05.phx.gbl...
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... ?
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.
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" a écrit dans le message de news:
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... ?
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
Merci Pierre,
J'essaye ça tout de suite.
Amicalement
Goup' "3stone" a écrit dans le message de news: %
Salut,
Chez moi, il n'y à pas de problème...
Mais, j'ai comme déjà dit, remplacer ta variable "Name" par "sName"
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" a écrit dans le message de news:
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... ?
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'
Merci Pierre,
J'essaye ça tout de suite.
Amicalement
Goup'
"3stone" <home@sweet_home.be> a écrit dans le message de news:
%23xfQOo5NKHA.3552@TK2MSFTNGP04.phx.gbl...
Salut,
Chez moi, il n'y à pas de problème...
Mais, j'ai comme déjà dit, remplacer ta variable "Name" par "sName"
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" <home@sweet_home.be> a écrit dans le message de news:
ehSl5iINKHA.4028@TK2MSFTNGP05.phx.gbl...
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... ?
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.
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" a écrit dans le message de news:
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... ?
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.