Scanner ansteuern

[Fordey_ra]

Möchte einen Scanner ansteuern

Kann aber die TWScann.dll nicht einbinden

Liegt das daran das die TWScann.dll nur unter 32bit funktioniert ?

Code: Alles auswählen

   nr = OpenLibrary(#PB_Any, "C:\Temp\TwScann.dll") 
   If nr 
      MessageRequester("Info", "TwScann.dll gefunden!") 
    Else 
      MessageRequester("Info", "TwScann.dll nicht gefunden!") 
    End
   EndIf
 

Obwohl die .DLL eindeutig dort ist wird sie nie gefunden ?

[ts-soft]

Ein 64-Bit Programm kann grundsätzlich nur 64-Bit DLLs nutzen! Das gleiche gilt für 32-Bit Programme,
die können auch nur 32-Bit DLLs nutzen.

[Fordey_ra]

Wie kann ich denn unter PureBasic am einfachsten einen Scanner ansteuern.

Hatte das mit Irfanview gelöst über die Kommandozeilenbefehle.
Leider gibt unter 64 Bit Probleme mit dem convert Befehl (hängt sich auf)

Zu dem ist ja in der Firma nicht kostenlos.
Welches ich auch wohl bezahlen würde, aber da es nicht funktioniert macht es leider keinen Sinn.

Welche Möglichkeiten gibt es noch ?

[Bisonte]

Ein 64-Bit Programm kann grundsätzlich nur 64-Bit DLLs nutzen! Das gleiche gilt für 32-Bit Programme,
die können auch nur 32-Bit DLLs nutzen.

Hatte das mit Irfanview gelöst über die Kommandozeilenbefehle.
Leider gibt unter 64 Bit Probleme mit dem convert Befehl (hängt sich auf)

Damit ist nicht das Windows selbst gemeint, sondern das Programm, dass diese dll aufrufen soll.

Fazit : Wenn du eine 32Bit - DLL hast, kompilere das Programm mit dem PB x86 Compiler.
Einem 64Bit - Windows ist das (noch) egal....

[Fordey_ra]

Danke der Antworten.
Bin nicht draufgekommen mir ein 32Bit Windows Rechner zu suchen
Hier klappt das laden !

Nun der Code der natürlich nicht geht

Fehler Das angebene #Image ist nicht intialisiert

Code: Alles auswählen

OpenLibrary(0,"TwScann.dll")

CallFunction(0,"ScanToClip",1)

If GetClipboardImage(#CF_BITMAP)
  
  SaveImage(GetClipboardImage(#CF_BITMAP),Name$,#PB_ImagePlugin_JPEG)
  
EndIf  

CloseLibrary(0)

[ts-soft]

Bin nicht draufgekommen mir ein 32Bit Windows Rechner zu suchen

Das sollst Du ja auch nicht, Dein 64-Bit Windows kann genauso gut 32-Bit Anwendungen ausführen. Lediglich Treiber müssen auch in 64-Bit vorliegen. Bei der Scanner DLL handelt es sich aber nicht um einen nativen Treiber, geht also!

Du musst nur die 32-Bit Version von PB installieren (geht parallel zur 64-Bit Version) und nutzen!

[mk-soft]

Vielleicht besser so...

Code: Alles auswählen

Define ClipImage
ClipImage = GetClipboardImage(#PB_Any)
If ClipImage  
  SaveImage(ClipImage,Name$,#PB_ImagePlugin_JPEG)
  FreeImage(ClipImage)
EndIf  

[Fordey_ra]

Wie einfach die Welt doch seien kann.

Vielen vielen Dank der Hilfe.

Das klappt ja perfekt