DominoArea.org [Archive]

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

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%]

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 ??

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%]

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

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 ?

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

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

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.

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.

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%]

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