acquisizione da scanner problema !

[r3dd3vil]

Salve a tutti sto programmando con vb6 e ora mi serve cliccando un bottone acquisire dal mio scanner un 'immagine, ora il problema è questo lanciando il programma e cliccando sul bottone mi parte lo splash del programma dello scanner ma poi subito un errore "PROBLEMA DI COMUNICAZIONE" ; Quindi ho provato a portare il programma su di un altro computer con un'altro scanner e li va tutto bene !!
Ora voi direte allora è lo scanner....no... perchè se faccio una scannerizzazzione dal software dello scanner funziona tutto bene !!

P.S. utilizzo la libreria eztw32.dll ! e lo scanner è un agfa snapscan e25

[oregon]

A quale codice corrisponde la pressione di quel bottone ?

[r3dd3vil]

a questo

Private Sub MnuEnviporta_Click()
Dim nPixTypes
Const CF_BITMAP = 2
On Error Resume Next
Clipboard.Clear
If Err Then Beep
If TWAIN_AcquireToClipboard(Me.hWnd, nPixTypes) = 0 Then MsgBox "No se pudo pasar la imagen al portapapeles.", 64, ""
 Image1.Picture = LoadPicture()
 Image1.Picture = Clipboard.GetData(CF_BITMAP)
If Err = 53 Then MsgBox "No se encuentra a EZTW32.DLL, y no se puede acceder al servicio TWAIN", 48, "No se encuentra la Dll"
End Sub

[oregon]

Ma esiste una parte del tuo codice in cui viene visualizzato il messaggio

PROBLEMA DI COMUNICAZIONE


?

[r3dd3vil]

No non esiste nella parte del codice.

in FORM1

Option Explicit
Private Sub Form_Load()
If App.PrevInstance Then Unload Me
End Sub

Private Sub Form_Resize()
On Error Resume Next
Move (Screen.Width - Width) \ 29, (Screen.Height - Height) \ 29
Image1.Move 100, 200, Me.ScaleWidth - 200, Me.ScaleHeight - 350

End Sub

Private Sub Form_Unload(Cancel As Integer)
End
End Sub

Private Sub MnuAcerca_Click()
Form2.Show vbModal
End Sub

Private Sub MnuBorraima_Click()
Image1.Picture = LoadPicture()
End Sub

Private Sub MnuEnviporta_Click()
Dim nPixTypes
Const CF_BITMAP = 2
On Error Resume Next
Clipboard.Clear
If Err Then Beep
If TWAIN_AcquireToClipboard(Me.hWnd, nPixTypes) = 0 Then MsgBox "No se pudo pasar la imagen al portapapeles.", 64, ""
 Image1.Picture = LoadPicture()
 Image1.Picture = Clipboard.GetData(CF_BITMAP)
If Err = 53 Then MsgBox "No se encuentra a EZTW32.DLL, y no se puede acceder al servicio TWAIN", 48, "No se encuentra la Dll"
End Sub

Private Sub MnuGuardaco_Click()
Dim ofn As SAVEFILENAME
ofn.lStructSize = Len(ofn)
ofn.hwndOwner = Form1.hWnd
ofn.hInstance = App.hInstance
ofn.lpstrFilter = "Mapa de Bits (*.bmp)" + Chr(0) + "*.bmp" + Chr$(0) + "Mapa de Bits Independiente (*.Dib)" + Chr$(0) + "*.dib" + Chr$(0) + "Imagen Codificada (*.Rle)" + Chr$(0) + "*.rle" + Chr$(0) + "Todos los archivos" + Chr$(0) + "*.*" + Chr$(0)
ofn.lpstrFile = Space$(254)
ofn.nMaxFile = 255
ofn.lpstrFileTitle = Space$(254)
ofn.nMaxFileTitle = 255
ofn.lpstrInitialDir = CurDir
ofn.flags = &H4
ofn.lpstrTitle = "Abrir Imagen Como"

Temp = ""
Temp = GetSaveFileName(ofn)

If Temp Then 'Si se ha elegido un fichero...
    Dim Fichero As String
    Fichero = Trim$(ofn.lpstrFile)
SavePicture Image1.Picture, Fichero
MsgBox "Imagen Guardada como: " + Fichero, 64
End If
End Sub

Private Sub MnuPegar_Click()
Image1.Picture = LoadPicture()
Const CF_BITMAP = 2
    Image1.Picture = Clipboard.GetData(CF_BITMAP)

End Sub

Private Sub MnuSalir_Click()
End
End Sub

Private Sub MnuSeleccionar_Click()
On Error Resume Next

TWAIN_SelectImageSource (Me.hWnd)
If Err = 53 Then MsgBox "No se encuentra a EZTW32.DLL, y no se puede acceder al servicio TWAIN", 48, "No se encuentra la Dll"

End Sub

mentre nel modulo

Public Declare Function TWAIN_SelectImageSource Lib "EZTW32.DLL" (ByVal hwndApp&) As Long
Public Declare Function TWAIN_AcquireToClipboard Lib "EZTW32.DLL" (ByVal hwndApp As Long, ByVal wPixTypes As Long) As Long
Public Declare Function TWAIN_IsAvailable Lib "EZTW32.DLL" () As Long
Public Declare Function TWAIN_EasyVersion Lib "EZTW32.DLL" () As Long
Public Type SAVEFILENAME
    lStructSize As Long
    hwndOwner As Long
    hInstance As Long
    lpstrFilter As String
    lpstrCustomFilter As String
    nMaxCustFilter As Long
    nFilterIndex As Long
    lpstrFile As String
    nMaxFile As Long
    lpstrFileTitle As String
    nMaxFileTitle As Long
    lpstrInitialDir As String
    lpstrTitle As String
    flags As Long
    nFileOffset As Integer
    nFileExtension As Integer
    lpstrDefExt As String
    lCustData As Long
    lpfnHook As Long
    lpTemplateName As String
End Type
Public Temp As Variant
Public Declare Function GetSaveFileName Lib "comdlg32.dll" Alias "GetOpenFileNameA" (pOpenfilename As SAVEFILENAME) As Long

[r3dd3vil]

Nessuno riesce a darmi una mano ????

[r3dd3vil]

Ancora niente !!! Ho provato in un pc con installato una multifunzione HP Officejet g55 e li funziona col mio agfa scanwise niente sempre quel problema accidenti ! Ce un'altro modo per poter acquisire da vb senza utilizzare eztw32.dll ??