Hallo Leute,
Ich habe eine Frage bezüglich der Schnittstelle EZTwain4.
Ich habe ein Programm programmiert in VB das automatisch einen Stapel von Papiere die im Scanner eingelegt sind scannt diese dann als eine PDF Datei zusammenführt und die dann mit einem vorabgefragten Dateinamen speichert.
Nun da EZTwain4 in 30 Tagen abläuft und eine Lizenz sehr teuer ist stellt sich mir die Frage gibt es eine kostenlose Alternative bzw. könnte man diese Programm anders programmieren so das man EZTwain4 gar nicht benötigt ?
Danke schon mal im Voraus
Dies ist meine Hauptprozedur:
Ich habe eine Frage bezüglich der Schnittstelle EZTwain4.
Ich habe ein Programm programmiert in VB das automatisch einen Stapel von Papiere die im Scanner eingelegt sind scannt diese dann als eine PDF Datei zusammenführt und die dann mit einem vorabgefragten Dateinamen speichert.
Nun da EZTwain4 in 30 Tagen abläuft und eine Lizenz sehr teuer ist stellt sich mir die Frage gibt es eine kostenlose Alternative bzw. könnte man diese Programm anders programmieren so das man EZTwain4 gar nicht benötigt ?
Danke schon mal im Voraus
Dies ist meine Hauptprozedur:
Visual Basic-Quellcode
- Private Sub AutoPDF_Click()
- 'Abfrage der User ID und des Namens
- Username = InputBox("Bitte geben Sie den Namen für den Bewerber ein", "Abfrage für den Namen")
- Userid = InputBox("Bitte geben Sie die User-ID ein nach dem die PDF Datei benannt wird", "User-ID Eingabe")
- Call TWAIN_SetHideUI(1) ' Scanner UI wird nicht angezigt
- Call TWAIN_OpenDefaultSource ' Der Standard-Scanner wird ausgewählt
- TWAIN_SetPixelType TWPT_BW ' Scan in Schwarz&Weiß (aktiviert)
- 'TWAIN_SetPixelType (2) ' Scan in Farbe (deaktiviert)
- TWAIN_SetResolution 300 ' DPI Einstellungen 300
- ' Alle Dateien werden in eine PDF Datei zusammengeführt
- 'Scan wird gestartet und als PDF Datei abgelegt
- Call TWAIN_AcquireMultipageFile(frmMain.hwnd, "D:\Twain_test\Bewerber\" & Username & "\" & Userid & ".pdf")
- 'Abfrage ob weitere Dokumente gescannt werden sollen
- If MsgBox("Die Dokumente wurden erfolgreich gescannt. Wollen Sie weitere Dokumente scannen ?", vbQuestion + vbYesNo, "Abfrage") = vbNo Then
- Form_Load
- Else
- AutoPDF_Click
- End If
- End Sub
Dieser Beitrag wurde bereits 2 mal editiert, zuletzt von „creeD202“ ()