Lotus Notes / Domino Sonstiges > Tools & Downloads

Vom Scanner ins Dokument

(1/3) > >>

eknori (retired):
Hallo zusammen,

heute mal wieder was neues zum Saugen  :D
Mit einer einzigen DLL und dazu noch völlig kostenlos könnt ihr Dokumente direkt in Notes Dokumente einscannen. Der Download enthält eine funktionsfähige Datenbank.
Ich habe die DB auf meinem W2K Server mit einem Scanjet 3300C von HP getestet.Funktioniert super.
Beim "Scan to File" bekomme ich eine Fehlermeldung;
ich habe noch nicht nachgeschaut, woran das liegt.

Also hier der Link

http://www.eknori.de/downloads/TWAIN.zip

eknori

Axel:
Hi,

die Datenbank ist genial. Ich habe es mit W2K Prof. und einem ScanJet 4470c getestet. Es läuft super.

Den Fehler bei "Scan to File" habe ich auch beseitigt. Es liegt am festen Eintrag des Dateinamen. Dieser enthält ein Verzeichnis. Wenn dieses nicht vorhanden ist kommt diese Fehlermeldung.


Folgenden Stellen sind anzupassen:

Gemeinsame Aktion "Scan to File"

Sub Click(Source As Button)
     Dim FileName As String
'      FileName = "c:\junk\junk.bmp"
     FileName = "e:\temp\junk.bmp"
     
     DiscardImage
     If TWAIN_OpenDefaultSource() <> 0 Then
           hDib = TWAIN_AcquireNative(hwnd, nPixTypes)
           If hDib <> 0 Then
           ' compute or guess a palette to use for display
                 hPal = TWAIN_CreateDibPalette(hDib)
...

...

     ' Now import into Body field
                 Dim w As New NotesUIWorkspace
                 Dim uidoc As NotesUIDocument
                 Set uidoc = w.CurrentDocument
                 Call uidoc.GotoField( "Body" )
                 Call uidoc.Import("BMP Image","e:\temp\junk.bmp")
           End If
     End If
     
End Sub

Ein schönes Wochenende
Axel

eknori (retired):
Klasse, danke fürs debuggen. Man könnte ja jetzt noch eine routine einbauen, die das Verzeichnis automatisch erstellt, wenn es nicht vorhanden ist. Dann ist auch der letzte Rest "HardCode" verschwunden  ;D

eknori

hrcmg:
Hallo ihr beiden, gerne würde ich das Tool auch nutzen, aber wie debugge ich, in welche Datei?
Was muß machen, ich möchte es gerne lernen.

Gruß Richard

eknori (retired):
Über Datei - Extras - Debug Lotus Script schaltest du den Debugger ein / aus.

Wenn du jetzt eine Aktion anklickst, öffnet sich der Debugger und du kannst den Code Schritt für Schritt durchgehen.
Im Reiter "Variablen" siehst du dann sehr schön, wie die einzelnen Objecte ( doc, documentcollection, item etc ) mit Werten gefülltt werden.

Da kommt man sehr schnell auchden immer wieder auftretenden "Object variable not set" Fehlern auf die Schliche.


eknori

Navigation

[0] Themen-Index

[#] Nächste Seite