Webcam
Verfasst: 12.04.2011 06:47
Es ist lange her, dass ich PureBasic nutzen konnte. Ich blicke im Beispiel (siehe hier) nicht durch.. Ich brauche nicht viel, nur ein einziges "Foto"..
Kann mir jemand darauf basierend eine Procedure (bitte mit ausfuehrlicher Kommentierung) schreiben, die mir ein Bild als Image aufnimmt und mir die ID des Bildes (als return) wiedergibt? Mit der groessten unterstuetzten Aufnahmegroesse..
Beispiel:
Das Ganze wuerde dann ungefaehr so aussehen:

Kann mir jemand darauf basierend eine Procedure (bitte mit ausfuehrlicher Kommentierung) schreiben, die mir ein Bild als Image aufnimmt und mir die ID des Bildes (als return) wiedergibt? Mit der groessten unterstuetzten Aufnahmegroesse..
Beispiel:
Code: Alles auswählen
WebcamImage = CaptureImageFromWebcam()
Height = ImageHeight(WebcamImage)
Width = ImageWidth(WebcamImage)
OpenWindow(#PB_Any, 0, 0, Height, Width, "Image", #PB_Window_Borderless|PB_Window_ScreenCentered)
ImageGadget(#PB_Any, 0, 0, Height, Width, WebcamImage)
Repeat : Until WaitWindowEvent() = #PB_Event_CloseWindow
