Interagire con lo scanner per archiviazione documenti
Piccolo Principe
In un'apposita maschera inserisco tutti i dati della fattura e poi ho creato
un campo di collegamento al file grafico che contiene l'immagine della
stessa già memerizzato su HD.
Ora, vorrei modificare il programma in modo da poter controllare lo scanner,
vale a dire:
vorrei che premendo un pulsante dalla marschera di inserimento dati il
programma automaticamente avvia la scansione della fattura e la salva in
un'apposita directory uassegnando al file un nome composto dal campo "ditta"
e dal campo "numero_fattura" della maschera.
Come posso fare?
Carlo Costarella
"Piccolo Principe" <xtype...@yahoo.it> ha scritto nel messaggio
news:PIzxf.125432$65.35...@twister1.libero.it...
Ci sono diverse possibilità. Tutto dipende dal tipo di S.O. e dalla versione
di Access.
Gli ocx della Kodak vanno bene fino ad Access XP.
WIA va bene con Windows XP e tutte le versioni di Access.
Ocx di terze parti e spesso a pagamento vanno bene con tutte le
combinazioni.
Dipende anche dal tipo di scanner: wia o twain
Una volta fatta questa scelta il resto è solo sviluppo di codice.
Per esempio utilizzando WIA:
Dim aaaa As New WIA.CommonDialog
Dim v As WIA.Vector
Dim Img As WIA.ImageFile
Dim c As Long
'creo un'immagine colorata
'il colore (uno qualsiasi, si tratta di una immagine in memoria)
c = &HFF0000FF 'Blu opaco (A=255,R=0,G=0,B=255)
'creo l'oggetto Vettore
Set v = CreateObject("WIA.Vector")
'aggiungo il colore
v.Add c
v.Add c
v.Add c
v.Add c
'attribuisco a Img l'immagine restituita dallo scanner o dalla periferica
predefinita
Set Img = aaaa.ShowAcquireImage(, ColorIntent, MaximizeQuality, , False,
True)
'Salvo l'immagine
On Error Resume Next
Img.SaveFile DirLavoro & Me.Ditta & me.Numero_Fattura & "." &
Img.FileExtension
'visualizzo l'immagine salvata in un controllo immagine
Me.Picture1.Picture = DirLavoro & Me.Ditta & me.Numero_Fattura & "." &
Img.FileExtension
In questo NG si è molto parlato di acquisizione immagine ed anche su
www.sitocomune.com potrai trovare esempi.
Ciao, Carlo