Dear Alex
I found below code.can you change it into VFP for me?
Declare 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
thanks
Previous
Next
Reply
View the map of this thread
View the map of this thread starting from this message only
View all messages of this thread
View all messages of this thread starting from this message only