XProfan

Rolf
Koch

means here can still something not voices:
Compile Mark Separation

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

SetActiveWindow should Yes whom Focus the lever the Fensters settle.
what You there make, is titel& a Text allocate (what Yes not goes with one Longint) and no Fensterhandle.
means still sooner:
Compile Mark Separation

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

re>

11/23/07 ▲

Jörg
Sellmeyer

can You do not the image with IrfanView scannen and then on whom Imagereader transfer?
You can incidentally IView too by Commandline steer. this is yet 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

Greeting
Jörg

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

11/23/07 ▲

Thomas
Freier

@Rolf: with IrfanView running it too so. have it with Abbyy changed and it's running so not yet.

@Jörg: i'm yet with of my Textvolesung.
The lane:
*.jpg produce....
Image with the OCR-Sofware reading and
txt-File to that Vorlesen produce is really unhappy and mostly with Verusten behaftet.

Gruß Thomas
Windows XP SP2, XProfan X2

Jörg
Sellmeyer

i'd too no jpg produce, separate something without Kompression. on the best bmp in ordentlicher dissolution (at least 600 dpi). The OCR-software power indeed nothing other.

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

Thomas
Freier

have it once with the example TWAIN of XProfan 10 attempts.
too here can I with my know z.Z. whom Scan not started.
How is the Solution?
Compile Mark Separation

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

it's located sure on it, that WinExecWait not yet worn out is and the commands no effect has. when and how can I the commands perform?

Gruß Thomas
Windows XP SP2, XProfan X2

RGH

WinExecWait wait naturally, To the aufgerufene Program exits is. For this standing the amendment Wait. If means the commands SendString comes, is the Scansoftwre long ago exits.

but not WinExecWait müßtest You it with WinExec try. Gegebenfalls whom korrekten Start the software over FindWindows inquire and then SendString put down.

Greeting
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

the I had already probiert.
Compile Mark Separation

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

now have I but yet The VTASK into facilities found, and the says me, its no Window separate a Klasse=Static.
How starte I now whom Scan?

capture_185640.png	293 kB

Hochgeladen:	11/24/07

Downloadcounter:
		Download

Gruß Thomas
Windows XP SP2, XProfan X2

Dieter
Zornow

Perhaps sollest You time on the Website of Andreas Miethe nachschauen there find You 2 dlls to that scannen. both functions with Profan very well and simply. TwJpeg.dll and Twsann.dll

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

@ Dieter, Thanks for your hint. The TwJpeg.dll have already in others Applications in use. at that Scannen opens itself, How with all others Applications the TWAIN-Window well then can I by commands whom Scan not started.
the example for Twsann.dll is in PureBasic. whether I now try, the in Profan nachzubilden or still to OCR-Sofware Search, The by commands scannt and the Text save is a pure Zeitfrage, there in the first drop yet The Texterstellung from the *.bmp follow must.
The Krux is, The the Scanner beiligende OCR-function is only by Button steuerbar.
If you The scann.pb already in Profan umgesetzt have, would I forward, the To listen.

Gruß Thomas
Windows XP SP2, XProfan X2

Dieter
Zornow

Hello Thomas,

here time one small example fuer The Twscann.dll, by me functions it without Usedll() too.
i think with the the Scannfenster lying on the software.you have probably too a Lexmark and there can be itself the window not unterdruecken. I use ABBYY Sprint, was at Scanner thereby and ought to so functions if Sendstring with XProfan 11 correctly. works wuerde or is what wrong when calling.

@ Roland
If I only old + V aufrufe GEHTS but if the L thereby isn't More.
Compile Mark Separation

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

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,
the can on the EPSON TWAIN 5 lying. mandatory but not. have Scanner-interface.exe of Grewe ausprobiert and the runs through without the itself the TWAIN-Menu opens.
can you whom with your ABBYY Sprint too one : Scan&Read trigger and ABBYY until reading go through let?

Gruß Thomas
Windows XP SP2, XProfan X2