XProfan

Tastendrücke an andere Programme senden (mit SendString)
Declare Abbyy&, AbbyyWin&, Handle&, titel&
Abbyy starten
Abbyy& = WinExec(C:ProgrammeIrfanViewi_view32.exe,1)
AbbyyWin& = GetActiveWindow()      Handle des Hauptfensters
SendString(AbbyyWin&,%DC)        ALT-D C = Scan and read
SendString(0,{ENTER})
titel& = EPSON TWAIN 5
@SetActiveWindow(titel&)
SendString(0,{ENTER})Waitkey
SendString(titel&,%S)        ALT- S = Scan TWAIN
KompilierenMarkierenSeparieren
Tastendrücke an andere Programme senden (mit SendString)
Declare Abbyy&, AbbyyWin&, Handle&, titel&
Abbyy starten
Abbyy& = WinExec(C:ProgrammeABBYY FineReader 5.0 Home EditionHomeEdition.exe,1)  Handle der Anwendung
AbbyyWin& = GetActiveWindow()      Handle des Hauptfensters
SendString(AbbyyWin&,%VS)        ALT-V S = Scan and read
SendString(0,{ENTER})
titel& = EPSON TWAIN 5
@SetActiveWindow(titel&)
SendString(0,{ENTER})
SendString(titel&,%S)        ALT- S = Scan TWAIN
end

Wo muß Io l' Fehler suchen?

 $H Windows.ph
DEF IsTwain(0) ! TwScann.dll,IsTwain
DEF ScanToClip(1) ! TwScann.dll,ScanToClip
DEF ScanToFile(2) ! TwScann.dll,ScanToFile
DEF SelectSource(0) ! TwScann.dll,SelectSource
cls
declare ist&,scann$,win&
scann$ = c:Scan.bmp
print IsTwain()
SelectSource()
ScanToFile(addr(scann$),1)
hier soll der Schalter = 1 das  TWAIN Fenster nicht öffnen
dann wird aber Scan.bmp nur mit 75dpi erzeugt und ABBYY meckert
SendString(0,{ENTER})
winexec(C:ProgrammeABBYY FineReader 5.0 Home EditionHomeEdition.exe  + scann$,1)
win& = findwindow(ABBYY FineReader 5.0 HomeEdition)
Sleep 5000
Datei einlesen
~keybd_event(18, 0, 0, 0)  Alt
~keybd_event(86, 0, 0, 0) V
~keybd_event(76, 0, 0, 0) L
~keybd_event(76, 0, ~KEYEVENTF_KEYUP, 0)
~keybd_event(86, 0, ~KEYEVENTF_KEYUP, 0)
~keybd_event(18, 0, ~KEYEVENTF_KEYUP, 0)
bis hier OK
jetzt Text speichern
~keybd_event(18, 0, 0, 0)  Alt
~keybd_event(68, 0, 0, 0) D
~keybd_event(84, 0, 0, 0) T
~keybd_event(84, 0, ~KEYEVENTF_KEYUP, 0)
~keybd_event(68, 0, ~KEYEVENTF_KEYUP, 0)
~keybd_event(18, 0, ~KEYEVENTF_KEYUP, 0)
klappt nicht, obwohl über Tastatur möglich Alt + D + T
waitinput

Tastendrücke an andere Programme senden (mit SendString)
Declare Abbyy%, AbbyyWin%, Handle&, titel&
Abbyy starten
Abbyy% = WinExec(C:ProgrammeIrfanViewi_view32.exe,1)
AbbyyWin% = GetActiveWindow()      Handle des Hauptfensters
SendString(AbbyyWin%,%DC)        ALT-D C = Scan and read
SendString(0,{ENTER})
SendString(0,{ENTER})
SendString(0,{ENTER})

Declare Prog$,bmp$,params$
bmp$ = $TempDir + Scan.bmp
params$ =  /scanhidden /dpi=(300,300) /convert= + bmp$
Prog$ = C:ProgrammeIrfanViewi_view32.exe
Shell Prog$ + par

Text scannen mit IrfanView und Text über OCR-Software (ABBYY Home 5) ins MuliEdit
cls
ClearClip
var Text&=CreateMultiEdit(%hwnd,,10,10,600,-400)
var text$=Hier soll jetzt der Text hin
SetText Text&, text$
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ scannen mit IrfanView
Declare Prog$,bmp$,params$
bmp$ = C:Scan.bmp
params$ =  /scanhidden /dpi=(300,300) /convert= + bmp$
Prog$ = C:ProgrammeIrfanViewi_view32.exe
@WinExecWait( Prog$ + params$,1)
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
Prog$ = C:ProgrammeABBYY FineReader 5.0 Home EditionHomeEdition.exe
@WinExec (Prog$ + bmp$,1)
var title$=ABBYY FineReader 5.0 Home Edition
var title%=findwindow(title$)
print title%
sleep 2000  die Pausen sind erforderlich, damit das Programm die Befehle abarbeiten kann
SendString(Title%,%VL)        lesen
sleep 4000
SendString(Title%,%EA)        alles Auswählen
sleep 1000
SendString(Title%,%EO)        alles Kopieren
sleep 1000
SendString(Title%,[%DB]N)     Beenden und Bestätigen ohne Speichern
SendString(Title%,{ENTER})
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~  Text aus der Zwischenablage ins MuliEdit
text$=GetClip$()
SetText Text&,text$
WaitKey
end

Text scannen mit IrfanView und Text über OCR-Software (TopOCR) erzeugen
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ scannen mit IrfanView
Declare Prog$,bmp$,params$
bmp$ = C:Scan.bmp
Assign #1, bmp$
Erase #1
params$ =  /scanhidden /dpi=(300,300) /convert= + bmp$
Prog$ = C:ProgrammeIrfanViewi_view32.exe
@WinExecWait( Prog$ + params$,1)
verwendet wird TopOCR von http://www.topocr.com/index.html
TopOCR - Free OCR Software for your Camera or Smartphone
und gute Ergebnisse!
und : The TopOCR Command Line Interface  habe ich sicher noch nicht ausgereizt.
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ Textdatei mit TopOCR
Assign #1, C:\topocr.txt
Erase #1
@WinExecWait(C:\Programme\TopOCR\topocr  C:\scan.bmp -LANGUAGE GRM C:\topocr.txt,1)
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
end