XProfan

Rolf
Koch

Also hier kann doch irgendwas nicht stimmen:
Kompilieren Markieren Separieren

titel& = EPSON TWAIN 5
@SetActiveWindow(titel&)

SetActiveWindow soll ja den Focus auf das Handle des Fensters setzen.
Was Du da machst, ist titel& einen Text zuweisen (was ja nicht geht bei einem Longint) und kein Fensterhandle.
Also doch eher:
Kompilieren Markieren Separieren

title$=EPSON TWAIN 5
title&=findwindow(title$)
......

23.11.2007 ▲

Jörg
Sellmeyer

Kannst Du nicht das Bild mit IrfanView scannen und dann an den Imagereader übergeben?
Du kannst übrigens IView auch per Commandline steuern. Das ist noch zuverlässiger:

Example for /scan:

i_view32.exe /scan

i_view32.exe /scanhidden

i_view32.exe /scanhidden /dpi=(150,150)

i_view32.exe /scan /convert=c:est.gif

i_view32.exe /scanhidden /convert=c:est.gif

i_view32.exe /print /scan

Example for /batchscan=(options):

options = all 8 options from the batch scanning dialog:

filename, index, increment, digits, skip, dest-folder, save-extension, multi-tif

i_view32.exe /batchscan=(scanfile,1,1,2,1,c:emp,bmp,0)

i_view32.exe /batchscan=(scanfile,1,1,2,1,c:emp,bmp,0) /dpi=(150,150)

i_view32.exe /batchscan=(scanfile,1,1,2,0,c:emp,tif,1)

i_view32.exe /batchscan=(scanfile,1,1,2,1,c:emp,bmp,0) /scanhidden

Gruß
Jörg

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

23.11.2007 ▲

Thomas
Freier

@Rolf: bei IrfanView lief es auch so. Habe es bei Abbyy geändert und es läuft so noch nicht.

@Jörg: ich bin noch bei meiner Textvolesung.
Der Weg:
*.jpg erzeugen....
Bild mit der OCR-Sofware lesen und
txt-Datei zum Vorlesen erzeugen ist eigentlich unglücklich und meist mit Verusten behaftet.

Gruß Thomas
Windows XP SP2, XProfan X2

Jörg
Sellmeyer

Ich würde auch kein jpg erzeugen, sondern etwas ohne Kompression. Am Besten bmp in ordentlicher Auflösung (mindestens 600 dpi). Die OCR-Software macht ja auch nix anderes.

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

Thomas
Freier

Habe es einmal mit dem Beispiel TWAIN von XProfan 10 versucht.
Auch hier kann ich mit meinem Wissen z.Z. den Scan nicht starten.
Wie ist die Lösung?
Kompilieren Markieren Separieren

PROC TwainSelect

    WinExecWait(PRFTWAIN SELECT,1)

ENDPROC

PROC TwainScanTo

    Parameters Datei$
    Declare Befehl$
    Let Befehl$ = PRFTWN32 SCANTOFILE ;Datei$
    WinExecWait(Befehl$,1)
    endet bei der Scannervorschau.
    Wird manuell Taste ENTER oder Alt S gedrückt, startet der Scan
    ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ hier soll der Scan gestartet werden
    SendString(0,{ENTER})        Enter = Scannt
    ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~

ENDPROC

declare title&
cls
twainselect  ................................Twain ist voreingestellt beim Scanner
twainscanto test.bmp
loadbmp TEST.BMP,0,0 ;0
waitkey
end

Es liegt sicher daran, dass WinExecWait noch nicht abgearbeitet ist und der Befehl keine Wirkung hat. Wann und wie kann ich den Befehl ausführen?

Gruß Thomas
Windows XP SP2, XProfan X2

RGH

WinExecWait wartet natürlich, bis das aufgerufene Programm beendet ist. Dafür steht der Zusatz Wait. Wenn also der Befehl SendString kommt, ist die Scansoftwre längst beendet.

Statt WinExecWait müßtest Du es mit WinExec versuchen. Gegebenfalls den korrekten Start der Software über FindWindows abfragen und dann SendString absetzen.

Gruß
Roland

Intel Duo E8400 3,0 GHz / 4 GB RAM / 1000 GB HDD - ATI Radeon HD 4770 512 MB - Windows 7 Home Premium 32Bit - XProfan X4

Thomas
Freier

Das hatte ich auch schon probiert.
Kompilieren Markieren Separieren

PROC TwainSelect

    WinExecWait(PRFTWAIN SELECT,1)

ENDPROC

PROC TwainScanTo

    Parameters Datei$
    Declare Befehl$
    Let Befehl$ = PRFTWN32 SCANTOFILE ;Datei$
    WinExec(Befehl$,1)
    Fenster$=Acquire Proxy
    title&=@findwindow(Fenster$)
    @SetActiveWindow(title&)
    endet bei der Scannervorschau.
    Wird manuell Taste ENTER oder Alt S gedrückt, startet der Scan
    ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ hier soll der Scan gestartet werden
    SendString(0,{ENTER})        Enter = Scan TWAIN
    ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~

ENDPROC

declare title&, Fenster$
cls
twainselect  ist Twain ist voreingestellt beim Scanner
twainscanto test.bmp
loadbmp TEST.BMP,0,0 ;0
waitkey
end

Nun habe ich aber noch die VTASK in den Anlagen gefunden, und die sagt mir, es ist kein Fenster sondern eine Klasse=Static.
Wie starte ich nun den Scan?

capture_185640.png	293 kB

Hochgeladen:	24.11.2007

Ladeanzahl:
		Herunterladen

Gruß Thomas
Windows XP SP2, XProfan X2

Dieter
Zornow

Vielleicht sollest du mal auf der Webseite vom Andreas Miethe nachschauen dort findest du 2 dlls zum scannen. Beide funktionieren mit Profan sehr gut und einfach. TwJpeg.dll und Twsann.dll

Gruss aus 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

@ Dieter, Dank für deinen Tip. Die TwJpeg.dll habe schon in anderen Anwendungen im Einsatz. Beim Scannen öffnet sich, wie bei allen anderen Anwendungen das TWAIN-Fenster und nun kann ich per Befehl den Scan nicht starten.
Das Beispiel für die Twsann.dll ist in PureBasic. Ob ich nun Versuche, das in Profan nachzubilden oder doch noch nach OCR-Sofware suche, die per Befehl scannt und den Text speichert ist eine reine Zeitfrage, da im ersten Fall noch die Texterstellung aus der *.bmp folgen muß.
Die Krux ist, die dem Scanner beiligende OCR-Funktion ist nur per Button steuerbar.
Wenn du die scann.pb schon in Profan umgesetzt hast, würde ich mich freuen, das zu hören.

Gruß Thomas
Windows XP SP2, XProfan X2

Dieter
Zornow

Hallo Thomas,

Hier mal ein kleines Beispiel fuer die Twscann.dll, bei mir funktioniert es ohne Usedll() auch.
ich denke das mit dem Scannfenster liegt an der Software.Du hast wahrscheinlich auch einen Lexmark und da laesst sich das Fenster nicht unterdruecken. Ich benutze ABBYY Sprint, war beim Scanner dabei und sollte so funktionieren wenn Sendstring mit Xprofan 11 richtig arbeiten wuerde oder ist was falsch beim Aufruf.

@ Roland
Wenn ich nur alt + V aufrufe gehts aber wenn das L dabei ist nicht mehr.
Kompilieren Markieren Separieren

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:TempScan.bmp
print IsTwain()
SelectSource()
ScanToFile(addr(scann$),0)
winexec(c:ProgrammeABBYY FineReader 5.0 SprintSprint.exe +scann$,1)
win& = findwindow(ABBYY FineReader 5.0 Sprint)
sendstring(win&,%Vl(=Vl))
sendstring(win&,%Vl)
waitinput

gruss aus 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

Hallo Dieter,
das kann an der EPSON TWAIN 5 liegen. Muß aber nicht. Habe Scanner-Interface.exe von Grewe ausprobiert und die läuft durch ohne das sich das TWAIN-Menü öffnet.
Kannst du den bei deiner ABBYY Sprint auch ein : Scan&Read auslösen und ABBYY bis zum Lesen durchlaufen lassen?

Gruß Thomas
Windows XP SP2, XProfan X2