Sver
Full Member
Posts: 145
|
Post by Sver on Nov 25, 2023 8:24:57 GMT -5
'camera webcam
WindowWidth = 800
WindowHeight = 600
nomainwin
open "Webcam" for graphics as #main
open "avicap32.dll" for dll as #a
hwnd=hwnd(#main)
hw = hexdec("&H10000000") + hexdec("&H40000000")
'Volgende code dient voor het afbeelden van de Webcam video in het #main scherm
CallDLL #a, "capCreateCaptureWindowA",0 as long, hw as long ,0 as long,0 as long,200 as long,150 as long,hwnd as long,0 as long,result as long
open "user32" for dll as #user32 CallDLL #user32, "SendMessageA",result as long,1034 as long,0 as long,0 as long,r as long CallDLL #user32, "SendMessageA",result as long,1077 as long,1 as long,0 as long,r as long CallDLL #user32, "SendMessageA",result as long,1076 as long,20 as long,0 as long,r as long CallDLL #user32, "SendMessageA",result as long,1074 as long,1 as long,0 as long,r as long
'Volgende code dient voor het opslaan van een afbeelding
hw2 = hexdec("&H400")+61
hw3 = hexdec("&H400")+25
str$="C:\basic.bmp"
struct zs,reg as char[1000]
zs.reg.struct=str$
CallDLL #user32, "SendMessageA",result as long,hw2 as long,0 as long,0 as long,r as long CallDLL #user32, "SendMessageA",result as long,hw3 as long,1 as long,zs as STRUCT,r as long
wait
[quit]
close #main
end
|
|