PureBasic

Code : Tout sélectionner

;EZ_Twain DLL 
;(W) umsetzung nach PB by Galaxy, 03/2003 

;global für DLL 
Global *TWAIN_IsAvailable 
Global *TWAIN_SelectImageSource 
Global *TWAIN_AcquireToClipboard 
Global *TWAIN_AcquireNative 
Global *TWAIN_WriteNativeToFilename 
Global *TWAIN_FreeNative 

Procedure Twain_Init()         ;dll Init 
OpenLibrary(10,"eztw32.dll") 
*TWAIN_IsAvailable = IsFunction(10,"TWAIN_IsAvailable") 
*TWAIN_SelectImageSource = IsFunction(10,"TWAIN_SelectImageSource") 
*TWAIN_AcquireToClipboard = IsFunction(10,"TWAIN_AcquireToClipboard") 
*TWAIN_AcquireNative = IsFunction(10,"TWAIN_AcquireNative") 
*TWAIN_WriteNativeToFilename = IsFunction(10,"TWAIN_WriteNativeToFilename") 
*TWAIN_FreeNative = IsFunction(10,"TWAIN_FreeNative") 
EndProcedure 

Procedure.l Twain_ScannCheck() 
; Check, ob TWAIN Scanner vorhanden ist 
; 0 = Kein Scanner vorhanden oder kein TWAIN Scanner 
; 1 = OK, Scanner gefunden 

value.l = CallFunctionFast(*TWAIN_IsAvailable) 
ProcedureReturn value 
EndProcedure 

Procedure.l Twain_scanchoice(hwnd) 
; Auswahl des Scanners 
; 0 = Kein Scanner vorhanden / Auswahl abgebrochen 
; 1 = OK, Scanner wurde gewählt 

  value.l = CallFunctionFast(*TWAIN_SelectImageSource,hwnd) 
  ProcedureReturn value 
EndProcedure 


Procedure Twain_ScannToFile(datei.s) 
;scannt als Datei 

  bmp.l = CallFunctionFast(*TWAIN_AcquireNative,0,0) 
          CallFunctionFast(*TWAIN_WriteNativeToFilename,bmp,datei) 
          CallFunctionFast(*TWAIN_FreeNative,bmp) 
ProcedureReturn 0 
EndProcedure 

Procedure TWAIN_ScannToClip() 
;scannt in die Zwischenablage 

CallFunctionFast(*TWAIN_AcquireToClipboard,0,0) 
ProcedureReturn 0 
EndProcedure 


; ******************************************* Twain ***************** 

; demo 
WindowID = OpenWindow(0, 700, 10, 320, 400, #PB_Window_SystemMenu,"Test") 
CreateGadgetList(WindowID()) 


Twain_Init()                        ;dll init 
If Twain_ScannCheck() = 1           ;Scanner erkennen und prüfen 
Twain_scanchoice(WindowID)         ;Scanner wählen 
Twain_ScannToFile("scantest.bmp")  ;Bild scannen 
EndIf 



Repeat 
eventID.l = WaitWindowEvent() 
Until EventID = #PB_EventCloseWindow