XProfan

Rolf
Koch

alors ici peux doch irgendwas pas stimmen:
Kompilieren Marque Séparation

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

SetActiveWindow soll oui den Concentrer sur cela Handle des Fensters mettons.
quoi Du là fais, ist titel& une Text zuweisen (quoi oui pas allez chez einem Longint) et ne...aucune Fensterhandle.
alors doch plutôt:
Kompilieren Marque Séparation

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

re>

23.11.2007 ▲

Jörg
Sellmeyer

peux Du pas cela Bild avec IrfanView scannen et ensuite à den Imagereader transfert?
tu peux incidemment IView aussi per Commandline steuern. c'est encore 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 /imprimer /scan

Example for /batchscan=(options):

options = espace 8 options à partir de le 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

Salut
Jörg

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

23.11.2007 ▲

Thomas
Freier

@Rolf: chez IrfanView lief es aussi so. Habe es chez Abbyy geändert et es fonctionne so encore pas.

@Jörg: je suis encore chez meiner Textvolesung.
qui Weg:
*.jpg erzeugen....
Bild avec qui OCR-Sofware lesen et
txt-Dossier zum Vorlesen erzeugen ist eigentlich unglücklich et meist avec Verusten behaftet.

Gruß Thomas
Windows XP SP2, XProfan X2

Jörg
Sellmeyer

je serait aussi ne...aucune jpg erzeugen, mais quelque chose sans Kompression. Am Besten bmp dans ordentlicher Auflösung (mindestens 600 dpi). qui OCR-Software pouvoir oui aussi nix d'autre.

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

Thomas
Freier

Habe es einmal avec dem Beispiel TWAIN de XProfan 10 versucht.
aussi ici peux je avec meinem savons z.Z. den Scan pas starten.
comment ist qui Solution?
Kompilieren Marque Séparation

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 sûrement daran, dass WinExecWait encore pas abgearbeitet ist et qui Befehl aucun Wirkung hat. quand et comment peux Je l' Befehl effectuer?

Gruß Thomas
Windows XP SP2, XProfan X2

RGH

WinExecWait wartet naturellement, jusqu'à cela aufgerufene Programme finissez ist. Pour cette steht qui Zusatz Wait. si alors qui Befehl SendString venez, ist qui Scansoftwre jadis finissez.

Statt WinExecWait müßtest Du es avec WinExec versuchen. Gegebenfalls den korrekten Start qui Software sur FindWindows abfragen et ensuite SendString absetzen.

Salut
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

cela J'ai eu aussi déjà probiert.
Kompilieren Marque Séparation

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

eh bien habe je mais encore qui VTASK dans den Anlagen trouvé, et qui sagt mir, c'est ne...aucune la fenêtre mais une Klasse=Static.
comment starte je eh bien den Scan?

capture_185640.png	293 kB

Hochgeladen:	24.11.2007

Downloadcounter:
		Download

Gruß Thomas
Windows XP SP2, XProfan X2

Dieter
Zornow

peut-être sollest du la fois sur qui Webseite vom Andreas Miethe chercher là findest du 2 dlls zum scannen. Beide marcher avec Profan très bien et simple. TwJpeg.dll et 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 pour deinen Tip. qui TwJpeg.dll habe déjà dans anderen Anwendungen im Einsatz. Beim Scannen ouvrez sich, comment chez allen anderen Anwendungen cela TWAIN-la fenêtre et eh bien peux je per Befehl den Scan pas starten.
cela Beispiel pour qui Twsann.dll ist dans PureBasic. si je eh bien Versuche, cela dans Profan nachzubilden ou bien doch encore pour OCR-Sofware cherche, qui per Befehl scannt et den Text speichert ist une reine Zeitfrage, là im ersten le cas encore qui Texterstellung aus qui *.bmp folgen doit.
qui Krux ist, qui dem Scanner beiligende OCR-Funktion ist seulement per Button steuerbar.
si du qui scann.pb déjà dans Profan mise en œuvre la hâte, serait je mich freuen, cela trop écouter.

Gruß Thomas
Windows XP SP2, XProfan X2

Dieter
Zornow

allô Thomas,

ici la fois un kleines Beispiel pour qui Twscann.dll, chez mir funktioniert es sans Usedll() aussi.
je denke cela avec dem Scannfenster liegt à qui Software.tu as wahrscheinlich aussi une Lexmark et là peut sich cela la fenêtre pas unterdruecken. je benutze ABBYY Sprint, était beim Scanner dabei et sollte so marcher si Sendstring avec Xprofan 11 richtig travailler serait ou bien ist quoi faux beim Aufruf.

@ Roland
si je seulement vieux + V aufrufe gehts mais si cela L dabei ist pas plus.
Kompilieren Marque Séparation

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

allô Dieter,
cela peux à qui EPSON TWAIN 5 liegen. Doit mais pas. Habe Scanner-Interface.exe de Grewe ausprobiert et qui fonctionne par sans cela sich cela TWAIN-menu ouvrez.
peux du den chez deiner ABBYY Sprint aussi un : Scan&Read auslösen et ABBYY jusqu'à zum Lesen durchlaufen laisser?

Gruß Thomas
Windows XP SP2, XProfan X2