XProfan

Rolf
Koch

Also hier kann doch algo no stimmen:
Kompilieren Marca Separación

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

SetActiveWindow se sí el Focus el Handle la ventana conjunto.
Was Usted como machst, es titel& una Texto zuweisen (qué sí no va en una Longint) y kein Fensterhandle.
Also doch más:
Kompilieren Marca Separación

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

re>

23.11.2007 ▲

Jörg
Sellmeyer

Si no puede el Bild con IrfanView scannen y luego a el Imagereader transferencia?
Usted puede de paso IView auch por Commandline steuern. Es todavía 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 /imprimir /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

Saludo
Jörg

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

23.11.2007 ▲

Thomas
Freier

@Rolf: en IrfanView lief lo auch así. Posesiones lo en Abbyy geändert y lo se ejecuta así todavía no.

@Jörg: Yo bin todavía en meiner Textvolesung.
Der Weg:
*.jpg erzeugen....
Bild con el OCR-Sofware lesen y
txt-Expediente para Vorlesen erzeugen es eigentlich unglücklich y meist con Verusten behaftet.

Gruß Thomas
Windows XP SP2, XProfan X2

Jörg
Sellmeyer

Yo sería auch kein jpg erzeugen, pero algo sin Kompression. Am Besten bmp en ordentlicher Auflösung (mindestens 600 dpi). El OCR-Software macht en efecto nix más.

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

Thomas
Freier

Posesiones lo una vez con el Ejemplo TWAIN de XProfan 10 intenta.
Auch hier kann I, con mi Wissen z.Z. el Scan no starten.
Como Es el Solución?
Kompilieren Marca Separación

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

Lo liegt sicher daran, dass WinExecWait todavía no abgearbeitet es y Befehl no Wirkung ha. Wann y cómo kann Yo, el Befehl ausführen?

Gruß Thomas
Windows XP SP2, XProfan X2

RGH

WinExecWait wartet natürlich, a el aufgerufene Programa final es. Dafür es el Zusatz Wait. Wenn also el Befehl SendString kommt, Es el Scansoftwre längst final.

Statt WinExecWait müßtest Usted lo con WinExec versuchen. Gegebenfalls el korrekten Start el Software encima FindWindows abfragen y luego SendString absetzen.

Saludo
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 Tuve auch ya probiert.
Kompilieren Marca Separación

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 Yo aber todavía el VTASK en el Anlagen gefunden, y el sagt me, es kein Ventana pero una Klasse=Static.
Como starte Yo nun el Scan?

capture_185640.png	293 kB

Hochgeladen:	24.11.2007

Ladeanzahl:
		Descargar

Gruß Thomas
Windows XP SP2, XProfan X2

Dieter
Zornow

Tal vez sollest du veces en el Webseite vom Andreas Miethe nachschauen hay findest du 2 dlls para scannen. Beide trabajo con Profano muy bien y simplemente. TwJpeg.dll y Twsann.dll

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

Thomas
Freier

@ Dieter, Dank para deinen Tip. El TwJpeg.dll habe ya en otro Anwendungen en el Einsatz. Beim Scannen öffnet se, como en allen otro Anwendungen el TWAIN-Ventana y nun kann Yo por Befehl el Scan no starten.
Das Ejemplo para el Twsann.dll es en PureBasic. Ob Yo nun Versuche, el en Profano nachzubilden oder todavía después de OCR-Sofware búsqueda, el por Befehl scannt y el Texto speichert es una reine Zeitfrage, como en el ersten Fall todavía el Texterstellung de el *.bmp folgen muß.
El Krux es, el el Scanner beiligende OCR-Función es sólo por Button steuerbar.
Wenn du el scann.pb ya en Profano umgesetzt hast, sería Yo mich freuen, el a hören.

Gruß Thomas
Windows XP SP2, XProfan X2

Dieter
Zornow

Hola Tomás,

Hier veces una kleines Ejemplo fuer el Twscann.dll, en me funktioniert lo sin Usedll() auch.
Yo denke el con el Scannfenster liegt a el Software.Usted hast wahrscheinlich auch una Lexmark y como puede se el Ventana no unterdruecken. Yo benutze ABBYY Sprint, war beim Scanner esta y debería así trabajo si Sendstring con Xprofan 11 correcto trabajo wuerde oder es qué falso beim Aufruf.

@ Roland
Wenn Yo sólo alt + V aufrufe gehts pero si el L esta es no mehr.
Kompilieren Marca Separación

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

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

Thomas
Freier

¡Hola Dieter,
el kann a el EPSON TWAIN 5 mentira. Muß pero no. Posesiones Scanner-Interface.exe de Grewe ausprobiert y el se ejecuta por sin el se el TWAIN-Menü öffnet.
¿Puede du el en deiner ABBYY Sprint auch una : Scan&Read auslösen y ABBYY a para Lesen durchlaufen dejar?

Gruß Thomas
Windows XP SP2, XProfan X2