Einzelnen Beitrag anzeigen

Benutzerbild von Codehunter
Codehunter

Registriert seit: 3. Jun 2003
Ort: Thüringen
2.272 Beiträge
 
Delphi 10.4 Sydney
 
#1

Windows Image Aquisition (WIA) Scanner ansteuern

  Alt 28. Sep 2010, 15:07
Moinsen!

Da ich im Netz zwar vieles zum Thema TWAIN und Delphi gefunden habe aber nahezu nichts praktikables zu WIA, habe ich einfach mal selbst eine kleine Komponente zusammengeklimpert.

Sie kann eigentlich nichts weiter als alle angeschlossenen WIA-Scanner aufzulisten, das Standard-Windows-Scan-Fenster aufzumachen (welches die Geräte-Voreinstellung vorgibt) und ein Bild vom Scanner zu holen. Das Bild landet über den Umweg einer tmp-Datei (geht nicht anders da WIA keine erkennbare streamingfähige Schnittstelle hat) in einem gewöhnlichen TBitmap-Objekt.

Ich habe den Code nur unter D5 und XP testen können. Es stand mir lediglich ein Plustek OpticPro ST48 Scanner mit einem fürchterschrecklich grottigen Treiber zur Verfügung.

Darum möchte ich meinen Code inkl. Package und Demoprogramm gern mal allen hier zur Verfügung stellen. Probierts einfach mal aus. Bin für alle Kommentare und Anregungen dankbar.

Grüssle
Cody
Angehängte Dateien
Dateityp: zip WIA.zip (186,0 KB, 412x aufgerufen)
  Mit Zitat antworten Zitat