pilotage scanneur

[Stef]

Bonjour,Je cherche des exemples de code Java/javascript pour piloter un scanner depuis un client notes/browser internet.Je pense qu'il faut utiliser les API livré avec le peripherique ?Merci par avance

[Stephane Maillard]

Bonjour,Je n'est pas le code en Java, mais celui en LotusScript, peut-être que cela te mettras sur la voie.Scanner une image avec TWAIN et la mettre dans un RichText eclare Function GetActiveWindow Lib {User32} () As Long Declare Sub SetActiveWindow Lib {User32} (Byval hwnd As Long) Sub Click(Source As Button) On Error Goto ErrorHandler Const SCANFILEPATH$={C:Tempscan.jpg} Const IMPORTFILETYPE$={JPEG} Const RTFNAME$={Body} Const SCANOBJNAME$={objScan} Dim ws As New NotesUIWorkspace Dim uidoc As NotesUIDocument Dim wndhnd As Long Dim strFile As String Dim strRTFName As String Dim objScan As Variant Set uidoc = ws.CurrentDocument Set objScan = uidoc.GetObject(SCANOBJNAME) wndhnd&=GetActiveWindow() If objScan.ScannerAvailable=True Then objScan.ShowSelectScanner objScan.Image=SCANFILEPATH objScan.ScanTo=2 'StoreOnly objScan.PageOption=6 'CreateReplace objScan.ShowSetupBeforeScan=True 'ShowScanDialog Call objScan.ShowScanPreferences 'ShowScanQualityDialog Call objScan.StartScan Call uidoc.GotoField(RTFNAME) Call uidoc.import(IMPORTFILETYPE, SCANFILEPATH) Call objScan.CloseScanner Call SetActiveWindow(wndhnd&) Else Msgbox {Error: TWAIN driver not found!} End If TheEnd: Exit Sub ErrorHandler: Messagebox {The following unexpected error has occured: } & Trim$(Str(Err)) & {: } & Error$, 0+48+0+0, {Error Message..} Resume TheEnd End Sub[%sig%]

[Stef]

Bonjour,Merci pour ton aide.Dans la ligne suivante :Const SCANOBJNAME$={objScan} Je dois declarer le scanneur que j'utilise ? en remplacer objscan par le nom du peripherique ??

[Stephane Maillard]

Re,Nom ce CreateObject appel les fonctions TWAIN des scanners, par contre il faut regardé si le tien supporte ce format, tu peux utilisé Imging qui est fourni avec Windows.[%sig%]

[Stef]

ok merci bien de ton aide. je vais essayer de tester cela.

[Stef]

Bonjour,J'ai testé ce script, mais cela me retourne une erreur 'cannot locate specfified OLE object whitin the document' à l'instruction suivante (lors du debug) :Set objScan = uidoc.GetObject(SCANOBJNAME) où Const SCANOBJNAME$={objScan} j'ai un scanner Epson compatible TWAIN installé en local (USB) sur mon poste Windows2000.Quelqu'un a t-il une idée ?

[Stephane Maillard]

Bonjour,le objScan doit être remplacé par l'inscription OLE de votre scanner.[%sig%]

[Stef]

Heu, je suis vraiment novice en la matiere.c'est quoi l'inscription OLE ?j'utilise un scanner 'Epson 124OU'.

[Stef]

Aie aie aie, j'ai du mal !a quoi correspond Le nom de l'objet OLE que je dois mettre dans l'instruction 'getobject(ObjetOLE)' pour pouvoir piloter mon scanneur ?est-ce le chemin avec le nom de l'exe, une dll ou autre chose ?Le scanner est un Espson Perfection 124OU.Je suis a la rue, et je bloque vraiment sur ce point qui m'empeche de continuer sur mon projet.

[Stef]

Aie aie aie, j'ai du mal !a quoi correspond Le nom de l'objet OLE que je dois mettre dans l'instruction 'getobject(ObjetOLE)' pour pouvoir piloter mon scanneur ?est-ce le chemin avec le nom de l'exe, une dll ou autre chose ?Le scanner est un Espson Perfection 124OU.Je suis a la rue, et je bloque vraiment sur ce point qui m'empeche de continuer sur mon projet.

[Stephane Maillard]

Bonjour,Je n'est rien trouvé pour te donner un coup de main, si tu maitrise la langue Anglaise, je te conseil de poser ta question sur :http://www-10.lotus.com/ldd/46dom.nsf?OpenDatabaseC'est la forum de feu www.notes.net, il est très actif.[%sig%]

[Stephane Maillard]

Re,Si tu fais une recherche sur TWAIN, tu trouveras quelques script.[%sig%]