Sub JustToTest
Private WebCam,ImageIO,BufferedImage,FileIO,Dimension As JavaObject
FileIO= FileIO.InitializeNewInstance("java.io.File",Array("test1.png"))
ImageIO.InitializeStatic("javax.imageio.ImageIO")
WebCam.InitializeStatic("com.github.sarxos.webcam.Webcam")
Try
WebCam=WebCam.RunMethod("getDefault",Null)
Log("Default cam : "&WebCam)
Catch
Log(LastException.Message)
End Try
Try
WebCam.RunMethod("setViewSize",Array(Dimension.InitializeNewInstance("java.awt.Dimension",Array(640,480))))
Log("Open: "&WebCam.RunMethod("open",Null))
Catch
Log(LastException.Message)
End Try
BufferedImage.InitializeStatic("java.awt.image.BufferedImage")
BufferedImage=WebCam.RunMethod("getImage",Null)
ImageIO.RunMethod("write",Array(BufferedImage, "PNG", FileIO))
Log("Close: "&WebCam.RunMethod("close",Null))
End Sub