Lanciare Scanner in Windows XP ed archiviare file in un Rich Text

Visto che i TWAIN driver non possono essere usati dalle versioni successive di Windows 2000...

Eccovi il codice che sono riuscito a realizzare appoggiadomi alle WIA (Windows Image Automation ) di Windows XP.

Finalmente sono riuscito a far colloquiare Lotus Notes con lo scanner per l'acquisizione in formato digitale dei miei documenti con Windows XP.

L'ideale sarebbe quello di utilizzare i TWAIN library che sono compatibili sia su Windows che su Mac, ma ad oggi sorgono problematiche tecniche che debbo ancora risolvere.

Eccovi il nuovo codice:

*****************************************

    Set objWIA = CreateObject("Wia.Script")
    Set objDeviceInfoCollection = objWia.Devices
   
    Forall objDeviceInfo In objDeviceInfoCollection
        Set objRootItem = objWia.Create(objDeviceInfo)
        Set objSelectedItems = objRootItem.GetItemsFromUI(0, 0)
        If objSelectedItems Is Nothing Then
            Exit Sub
        End If
        Forall objItem In objSelectedItems
            percorso="c:\pippo.bmp"
            objItem.Transfer(percorso)
           
            strFieldname = wks.currentdocument.CurrentField ' L'ultimo campo in cui si è posizionati
            Set RT = doc.GetFirstItem("allegato")
            Set object = RT.EmbedObject(1454, "", percorso, "ALLEGATO")
            Kill percorso
           
            If session.NotesBuildVersion >= 190 Then
                RT.Update ' ND6 only
            Else
                Call doc.ComputeWithForm(True, False)
            End If
            doc.SaveOptions = "0"
            Call wks.currentdocument.Close(True)
            Set uidocNew = wks.EditDocument(True, doc, , , , True)
            uidocNew.Document.RemoveItem("SaveOptions")
            If strFieldname "" Then uidocNew.GotoField(strFieldname)
           
        End Forall
    End Forall

*********************************************