XProfan

- Page 2 -

Andreas
Miethe

DOKTOR XPROFAN EHRENHALBER

Hello Thomas

DEF ScanToFile(2) ! TwScann.dll,ScanToFile
has 2 Parameter !
The 2. Parameter gives on whether The Scan-GUI displayed becomes or not.

ScanToFile(Addr(Filename$),1)
ought to immediate scannen without irgendeine Preview.
by me works it. I had too time a Epsen-Scanner with Twain5, there has it already worked.

greeting
Andreas

Gruss
Andreas
________ ________ ________ ________ _
Profan 3.3 - XProfanX2
Win 95,98,ME,2000,XP,Vista - Win 7 32 / 64 Bit
ASUS X93S - Intel Core I7-NVIDIA GForce 540M 8GB Arbeitsspeicher
Homepage : [...]

11/25/07 ▲

Thomas
Freier

Hello Dieter,
have moreover probiert and it helped only a interval incorporate. before it took ABBYY too no Tastaturbefehle on. was well not yet with the Image ready.
Compile Mark Separation

 $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

After the interval could I The next action started , but then was again Schluß.
The switch brought Problems. See Script.

Gruß Thomas
Windows XP SP2, XProfan X2

11/25/07 ▲

Jörg
Sellmeyer

Nochmal: have Dus with Irfanview time probiert?

Windows XP SP2 XProfan X4
... und hier mal was ganz anderes als Profan ...

Thomas
Freier

have I Jörg, and the process the Befehlszeilen ending with the Open the TWAIN-Fensters, where it then only with manuellem Enter it moreover goes.
but How already said ,with IrfanView I had no Problems:
Compile Mark Separation

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})

Gruß Thomas
Windows XP SP2, XProfan X2

Thomas
Freier

@Andreas:
have whom switch too with 1 probiert. Erstaunlicherweise, though The attitude with Twain with 300dpi is, becomes then one Image with 75dpi created. the likes The OCR none. switch on 0 and it'll with 300dpi gescannt.
How these Änderung the dissolution arise, become well only You explore can.

Gruß Thomas
Windows XP SP2, XProfan X2

Dieter
Zornow

Hello Thomas,

Why haengst You supra yet Irfanview between Abbyy can still self scannen, my Version anyway. if I scan&read druecke becomes first eingescannt and then immediate uebersetzt.

greeting from Bangkok

Dieter

Er ist ein Mann wie ein Baum. Sie nennen ihn Bonsai., Win 7 32 bit und Win 7 64 bit, mit XProfan X2

Thomas
Freier

Hello Dieter,
mach I still too. having only hereon hingewiesen, because Jörg once more thereafter asked. That the mouse positionieren and Click trigger was a good Solution. The File now Save, on it hapert it yet. I must now first once whom FineScanManager , the itself during the Scanns opens, find and further command first put down, if this again closed is. That the interval goes only Interpreter-mode. The *.exe is well To quick.

Gruß Thomas
Windows XP SP2, XProfan X2

Thomas
Freier

I wisely not, whether a Solution with the TwScann.dll and the Programs of GOCR meaningfully is. [web]https://jocr.sourceforge.net/[/web]
The Link is sometimes not To achieve but z.B. [web]https://www.alltheweb.com[/web] quick to find. so etwast How Franks PTTGui.exe ?

Gruß Thomas
Windows XP SP2, XProfan X2

Jörg
Sellmeyer

Hello Thomas,
I Have now one little whom Überblick lost. What exactly is the trouble? get You The Texts not gescsannt or wants Abby The Texterkennung not started. and power IView now no Problems but nevertheless opens it only whom Twaindialog??

following small Codezeilen having by me without the least further Zutun The File Scan.bmp in the Tempverzeichnis as Result.
If you now with this File as Parameter Abby open, ought to it still functions, or?
Compile Mark Separation

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

/pre>

i think, the trouble is, to find out, when the Scanvorgang completed is, but Perhaps can indeed first several pages eingescannt go, before The further processing launch.

Windows XP SP2 XProfan X4
... und hier mal was ganz anderes als Profan ...

Thomas
Freier

Hello Jörg,
your Script is rather, because it opens the Twain-Kotrollfenster not.
its so a Zwischenlösung. target is it naturally everything with the OCR-application durchzuführen.

Gruß Thomas
Windows XP SP2, XProfan X2

Thomas
Freier

Hello Jörg and Dieter,
be now so far so through, unless you have better found.
Compile Mark Separation

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

Gruß Thomas
Windows XP SP2, XProfan X2

11/29/07 ▲