| |
| |
|
| - Página 1 - |
|
Thomas
Freier | |
| |
| |
| |
|
| |
| |
| - Página 2 - |
|
|
Dieter
Zornow | Hola Tomás,
sí el va en me auch, lo muss sólo mindestens 300 dpi gescannt ser. Dann koennset du doch simplemente con Winexec dein ABBYY groesstmoeeglich starten así el Button siempre el gleiche Position ha, deinen Cursor en el Button steuern y una Mausklick senden. Dann muesste sí el scannen y lesen ausgeloest voluntad.
Gruss de 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 | 25.11.2007 ▲ |
|
| |
|
|
Andreas
Miethe
 | Hola Thomas
DEF ScanToFile(2) ! TwScann.dll,ScanToFile
ha 2 Parámetro !
Der 2. Parámetro son a si el Scan-GUI adecuado se oder no.
ScanToFile(Addr(Filename$),1)
debería inmediatamente scannen sin irgendeine Prevista.
En me klappt lo. Tuve auch veces a la Epsen-Scanner con Twain5, como ha lo auch ya geklappt.
Gruss
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 : [...]  | 25.11.2007 ▲ |
|
| |
|
|
Thomas
Freier | ¡Hola Dieter,
habe más probiert y lo half sólo una Pause einzubauen. Davor nahm ABBYY auch no Tastaturbefehle a. War wohl todavía no con el Bild fertig.
KompilierenMarcaSeparación $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
Nach el Pause podría Yo el nächste Aktion starten , aber entonces war otra vez Schluß.
Der Schalter brachte Problemas. Siehe Script. |
|
| |
| |
| |
|
|
Jörg
Sellmeyer | | Nochmal: Hast Dus con Irfanview veces probiert? |
|
| |
| Windows XP SP2 XProfan X4... und hier mal was ganz anderes als Profan ...  | 26.11.2007 ▲ |
|
| |
|
|
Thomas
Freier | Posesiones Yo Jörg, y el Ausführung el Befehlszeilen endete con el Öffnen des TWAIN-Fensters, wo lo entonces sólo manuellem Enter lo más va.
Aber como ya dijo ,con IrfanView Tuve no Problemas:
KompilierenMarcaSeparación |
|
| |
|
|
Thomas
Freier | @Andreas:
habe el Schalter auch con 1 probiert. Erstaunlicherweise, obwohl el Einstellung en Twain en 300dpi es, se entonces una Bild con 75dpi producido. Das mag el OCR nada. Schalter en 0 y lo es con 300dpi gescannt.
Como esta Änderung el Auflösung entsteht, wirst wohl sólo du erforschen puede. |
|
| |
| |
| |
|
|
Dieter
Zornow | Hola Tomás,
por qué haengst du oben todavía Irfanview dazwischen Abbyy kann doch incluso scannen, mi Versión jedenfalls. si yo scan&read druecke se sólo eingescannt y luego inmediatamente uebersetzt.
Gruss de 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 | 26.11.2007 ▲ |
|
| |
|
|
Thomas
Freier | ¡Hola Dieter,
mach Todavía auch. Hatte sólo darauf hingewiesen, porque Jörg todavía una vez danach fragte. Que el Ratón positionieren y Mausklick auslösen fue un gute Solución. El Expediente ahora speichern, daran hapert lo todavía. Yo muß ahora sólo una vez el FineScanManager , el se während des Scanns öffnet, encontrar y weitere Befehle sólo absetzen, si dieser otra vez geschlossen es. Que el Pause va sólo en el Interpreter-Modus. El *.exe es wohl a rápidamente. |
|
| |
| |
| |
|
|
Thomas
Freier | Yo weis no, si una solución con el TwScann.dll y el Programmen de GOCR sinnvoll es. [web]https://jocr.sourceforge.net/[/web]
Der Link es manchmal no a erreichen aber z.B. [web]https://www.alltheweb.com[/web] rápidamente para encontrar. So etwast como Franks PTTGui.exe ? |
|
| |
| |
| |
|
|
Jörg
Sellmeyer | Hola Tomás,
Yo ahora una bischen el Überblick perdido. Was genau el problema es? Bekommst Usted el Textos no gescsannt oder voluntad Abby el Texterkennung no starten. Und macht IView ahora no Problemas aber trotzdem öffnet lo sólo el Twaindialog?? 
Folgende kleine Codezeilen haben en me sin el geringste weitere Zutun el Expediente Scan.bmp en el Tempverzeichnis como Ergebnis.
Si usted ahora con dieser Expediente como Parámetro Abby öffnest, debería lo doch trabajo, oder?
KompilierenMarcaSeparación
Yo denke, el problema es, herauszufinden, wann el Scanvorgang abgeschlossen es, aber tal vez puede sí sólo mehrere Páginas eingescannt voluntad, bevor el weitere Verarbeitung startet. |
|
| |
| Windows XP SP2 XProfan X4... und hier mal was ganz anderes als Profan ... | 26.11.2007 ▲ |
|
| |
|
|
Thomas
Freier | ¡Hola Jörg,
dein Script es mejor, porque él öffnet el Twain-Kotrollfenster no.
Es así una Zwischenlösung. Ziel es natürlich alles con el OCR-Anwendung durchzuführen. |
|
| |
| |
| |
|
|
Thomas
Freier | ¡Hola Jörg y Dieter,
bin ahora soweit así por, lo sei porque ihr habt Besseres gefunden.
KompilierenMarcaSeparaciónText 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
|
|
| |
| |
| |
|
(1.113)
Deutsch
English
Français
Español
Italia