Utiliser le composant gb.scanner

Rédigé par spheris Aucun commentaire
Classé dans : Tutoriels, Composants, picturebox, gambas 3, scanner Mots clés : aucun
 
gbocr.jpg
 

bonjour,
Aujourd'hui je vous propose un exemple du composant gb.scanner pour scanner un document.
Le resultat sera chargé dans une picturebox.

A)detection de votre scanner
Pour les possesseurs d'un scanner ouvrez un terminal et tapez en ligne de commande :


scanimage -L

vous devriez lire le nom de votre scanner comme ceci (pour mon appareil connecté) :
device 'brother4:bus3;dev3'

B) créer un nouveau projet
créez maintenant un nouveau projet graphique Gambas 3 ou ouvrez les sources présentes en bas de page.
Je choisi gtk2 par souci de compatibilité.

C) Voici le code de mon application:

Private monscan As Scanner
Public Sub Button1_Click()
Dim myimg As Image
myimg = monscan.Scan()
PictureBox1.Image = myimg
End

Public Sub Form_Open()
Me.Center()
monscan = New Scanner("brother4:bus3;dev3")
End

Public Sub binfo_Click()
If monscan.IsAvailable() Then 'Test if scanner is online and available return one boolean
Label1.Text = "scanner connected"
Else
Label1.Text = "Scanner not connected"
Endif
lname.Text = monscan.Name 'return our brother4:bus3;dev3 text
lmodel.Text = monscan.Model 'return string model of your scanner
lvendor.Text = monscan.Vendor 'return string vendor of your scanner
ltype.Text = monscan.Type 'return string connection type of your scanner
End

Public Sub CheckBox1_Click()
PictureBox1.Stretch = CheckBox1.Value
End




une petite remarque cependant:
pour créer un nouveau scanner "monscan" dans Form_open, je dois dire quel DEVICE (matériel) je possède entre les parenthèses.

C'est pour cette raison que je dois d'abord lancer le terminal pour le détecter.
le déclenchement d'un scan est tout simplement déclenché par la commande monscan.scan()
l'image est ensuite affichée dans la picturebox1.


Merci pour votre attention.
Telechargez les sources de cet exemple

Fil RSS des articles de cette catégorie