Viewing a Webcam in DarkBasic - GameCreators Forum

Author

Message

Iain

20

Years of Service

User Offline

Joined: 17th Jun 2004

Location: UK

Posted: 4th Dec 2004 05:50

Link

Does anyone know if you can view a webcam in a DarkBasic window.
Its for a robotics project, i have Blue GUI and was wandering if its possible to create a window with that to view the webcam, thats assuming that you could get access to the webcam through DarkBasic.

Back to top

Profile PM Email

TKF15H

21

Years of Service

User Offline

Joined: 20th Jul 2003

Location: Rio de Janeiro

Posted: 4th Dec 2004 06:03

Link

You need a plugin. I know Proteus made one that did it, but I'm not sure if he finished. You'll have to do some searching around. Also search in the LLRGT forum, I think I saw it there.

Back to top

Profile PM Email Website

Iain

20

Years of Service

User Offline

Joined: 17th Jun 2004

Location: UK

Posted: 4th Dec 2004 06:14

Link

Cool thanks.

Back to top

Profile PM Email

Mobiius

Valued Member

22

Years of Service

User Offline

Joined: 27th Feb 2003

Location: The Cold North

Posted: 5th Dec 2004 05:26

Link

I got the exact code you need (Downloaded it from this very site!)

Rem Project: WebCam
Rem Created: 10-08-2004 12:05:07

Rem ***** Main Source File *****

load dll "c:\windows\system32\avicap32.dll",1
load dll "c:\windows\system32\user32.dll",2

Name$="a"
 Ver$=""
 while Name$<>""
  iReturn = call dll(1,"capGetDriverDescriptionA",x,Name$,100,Ver$,100)
  if iReturn=1
   print "Driver Number ",x," )"
   print "Name: ",Name$
   print Ver$
   print " "
   inc x
  endif
 endwhile

WS_CHILD=1073741824
 WS_VISIBLE=268435456

WM_CAP_SET_SCALE = 1024+53
 wm_cap_driver_connect=1024+10
 wm_cap_set_preview=1024+50
 WM_CAP_SET_PREVIEWRATE=1024+52
 WM_CAP_EDIT_COPY=1024+30
 WM_CAP_SEQUENCE=1024+62
 WM_CAP_FILE_SAVEDIB=1024+25
 WM_CAP_DLG_VIDEODISPLAY=1024+43
 WM_CAP_SET_OVERLAY=1024+51

driver=0
 input "Please select which driver you want to use - 0 usualy works the best: ",driver
 visible=1

picid = call dll (2,"GetActiveWindow")
hHwnd = call dll (1,"capCreateCaptureWindowA","driver",WS_VISIBLE Or WS_CHILD,0,0,1,1,picid,0)

overlay=1

call dll 2,"SendMessageA",hHwnd,wm_cap_driver_connect,0,0
 call dll 2,"SendMessageA",hHwnd,wm_cap_set_preview,overlay,0
 call dll 2,"SendMessageA",hHwnd,WM_CAP_SET_PREVIEWRATE,30,0

rem Copy the current image to the Clipboard - as BMP
rem call dll 2,"SendMessageA",hHwnd,WM_CAP_EDIT_COPY,1,0
rem record an AVI to c:\capture.avi
rem call dll 2,"SendMessageA",hHwnd,WM_CAP_SEQUENCE,1,0

make object cube 1,50
sync on
do

if file exist("c:\img.dib") then delete file "c:\img.dib"
  call dll 2,"SendMessageA", hHwnd, WM_CAP_FILE_SAVEDIB, 0, "c:\img.dib"

rem load bitmap "c:\navn.dib",0
 load image "c:\img.dib",1
 texture object 1,1
 rotate object 1,x,y,0
 inc x,5
 inc y,7
 sync
loop

+ Code Snippet

Rem Project: WebCam
Rem Created: 10-08-2004 12:05:07

Rem ***** Main Source File *****

load dll "c:\windows\system32\avicap32.dll",1
load dll "c:\windows\system32\user32.dll",2

 Name$="a"
 Ver$=""
 while Name$<>""
  iReturn = call dll(1,"capGetDriverDescriptionA",x,Name$,100,Ver$,100)
  if iReturn=1
   print "Driver Number ",x," )"
   print "Name: ",Name$
   print Ver$
   print " "
   inc x
  endif
 endwhile

 WS_CHILD=1073741824
 WS_VISIBLE=268435456

 WM_CAP_SET_SCALE = 1024+53
 wm_cap_driver_connect=1024+10
 wm_cap_set_preview=1024+50
 WM_CAP_SET_PREVIEWRATE=1024+52
 WM_CAP_EDIT_COPY=1024+30
 WM_CAP_SEQUENCE=1024+62
 WM_CAP_FILE_SAVEDIB=1024+25
 WM_CAP_DLG_VIDEODISPLAY=1024+43
 WM_CAP_SET_OVERLAY=1024+51

 driver=0
 input "Please select which driver you want to use - 0 usualy works the best: ",driver
 visible=1

picid = call dll (2,"GetActiveWindow")
hHwnd = call dll (1,"capCreateCaptureWindowA","driver",WS_VISIBLE Or WS_CHILD,0,0,1,1,picid,0)

 overlay=1

 call dll 2,"SendMessageA",hHwnd,wm_cap_driver_connect,0,0
 call dll 2,"SendMessageA",hHwnd,wm_cap_set_preview,overlay,0
 call dll 2,"SendMessageA",hHwnd,WM_CAP_SET_PREVIEWRATE,30,0

rem Copy the current image to the Clipboard - as BMP
rem call dll 2,"SendMessageA",hHwnd,WM_CAP_EDIT_COPY,1,0
rem record an AVI to c:\capture.avi
rem call dll 2,"SendMessageA",hHwnd,WM_CAP_SEQUENCE,1,0

make object cube 1,50
sync on
do

  if file exist("c:\img.dib") then delete file "c:\img.dib"
  call dll 2,"SendMessageA", hHwnd, WM_CAP_FILE_SAVEDIB, 0, "c:\img.dib"

rem load bitmap "c:\navn.dib",0
 load image "c:\img.dib",1
 texture object 1,1
 rotate object 1,x,y,0
 inc x,5
 inc y,7
 sync
loop

1800+ XP - GeforceFX 5600 - 256MbDDR - 60Gb Hdd - XP Pro (SP2)

Back to top

Profile PM Email Website

Iain

20

Years of Service

User Offline

Joined: 17th Jun 2004

Location: UK

Posted: 4th Jan 2005 00:40

Link

Thanks for the code Mobiius, sorry it took me so long to post this message, i havnt been on the forums for a while.

Back to top

Profile PM Email

Nicholas Thompson

20

Years of Service

User Offline

Joined: 6th Sep 2004

Location: Bognor Regis, UK

Posted: 4th Jan 2005 02:00 Edited at: 4th Jan 2005 02:17

Link

That code works well, if not REEEEEEALLLLLY slowly.. I get about 15fps!! Lol..

I notice the way it works is by deleting a temp file, saving to the Hard disk as a temp file, loading that, texturing and then repeating it...

Is there any way it could be modified to chuck the image into memory and then access that memory as a memblock type thing (maybe from a pointer?) then convert THAT to an image? Then it might be a little faster?

Then again - it could be slow due to my webcam (Genius VideoCAM III)

[EDIT]
Was playing with the code.. Made a very minor tweak to allow the update rate on the camera easier to tweak by using a constant. Also made the movement time base and released the limit of the frame rate.. Not sure if its any better

Rem Project: WebCam
Rem Created: 10-08-2004 12:05:07

Rem ***** Main Source File *****

load dll "c:\windows\system32\avicap32.dll",1
load dll "c:\windows\system32\user32.dll",2

Name$="a"
 Ver$=""
 while Name$<>""
  iReturn = call dll(1,"capGetDriverDescriptionA",x,Name$,100,Ver$,100)
  if iReturn=1
   print "Driver Number ",x
   print "Name: ",Name$
   print Ver$
   print " "
   inc x
  endif
 endwhile

WS_CHILD=1073741824
 WS_VISIBLE=268435456

WM_CAP_SET_SCALE = 1024+53
 wm_cap_driver_connect=1024+10
 wm_cap_set_preview=1024+50
 WM_CAP_SET_PREVIEWRATE=1024+52
 WM_CAP_EDIT_COPY=1024+30
 WM_CAP_SEQUENCE=1024+62
 WM_CAP_FILE_SAVEDIB=1024+25
 WM_CAP_DLG_VIDEODISPLAY=1024+43
 WM_CAP_SET_OVERLAY=1024+51

driver=0
 input "Please select which driver you want to use - 0 usualy works the best: ",driver
 visible=1

picid = call dll (2,"GetActiveWindow")
hHwnd = call dll (1,"capCreateCaptureWindowA","driver",WS_VISIBLE Or WS_CHILD,0,0,1,1,picid,0)

overlay=1

#constant FRAME_DELAY 50
call dll 2,"SendMessageA",hHwnd,wm_cap_driver_connect,0,0
call dll 2,"SendMessageA",hHwnd,wm_cap_set_preview,overlay,0
call dll 2,"SendMessageA",hHwnd,WM_CAP_SET_PREVIEWRATE,FRAME_DELAY,0

make object cube 1,50
sync on
sync rate 0

updateTime# = 0

frameTime# = 1.0
startTime = timer()

do
   frameTime# = (frameTime# * 0.8) + ((timer() - startTime) * 0.2)
   startTime = timer()
   text 10, 10, "frameTime: " + str$(frameTime#)

inc updateTime#, frameTime#

if updateTime# >= FRAME_DELAY
      if file exist("c:\img.dib") then delete file "c:\img.dib"
      call dll 2,"SendMessageA", hHwnd, WM_CAP_FILE_SAVEDIB, 0, "c:\img.dib"
      load image "c:\img.dib",1
      texture object 1,1
      updateTime# = 0.0
   endif

turn object left 1, frameTime# * 0.045
   roll object left 1, frameTime# * 0.060

sync
loop

+ Code Snippet

Rem Project: WebCam
Rem Created: 10-08-2004 12:05:07

Rem ***** Main Source File *****

load dll "c:\windows\system32\avicap32.dll",1
load dll "c:\windows\system32\user32.dll",2

 Name$="a"
 Ver$=""
 while Name$<>""
  iReturn = call dll(1,"capGetDriverDescriptionA",x,Name$,100,Ver$,100)
  if iReturn=1
   print "Driver Number ",x
   print "Name: ",Name$
   print Ver$
   print " "
   inc x
  endif
 endwhile

 WS_CHILD=1073741824
 WS_VISIBLE=268435456

 WM_CAP_SET_SCALE = 1024+53
 wm_cap_driver_connect=1024+10
 wm_cap_set_preview=1024+50
 WM_CAP_SET_PREVIEWRATE=1024+52
 WM_CAP_EDIT_COPY=1024+30
 WM_CAP_SEQUENCE=1024+62
 WM_CAP_FILE_SAVEDIB=1024+25
 WM_CAP_DLG_VIDEODISPLAY=1024+43
 WM_CAP_SET_OVERLAY=1024+51

 driver=0
 input "Please select which driver you want to use - 0 usualy works the best: ",driver
 visible=1

picid = call dll (2,"GetActiveWindow")
hHwnd = call dll (1,"capCreateCaptureWindowA","driver",WS_VISIBLE Or WS_CHILD,0,0,1,1,picid,0)

 overlay=1

#constant FRAME_DELAY 50
call dll 2,"SendMessageA",hHwnd,wm_cap_driver_connect,0,0
call dll 2,"SendMessageA",hHwnd,wm_cap_set_preview,overlay,0
call dll 2,"SendMessageA",hHwnd,WM_CAP_SET_PREVIEWRATE,FRAME_DELAY,0

make object cube 1,50
sync on
sync rate 0

updateTime# = 0

frameTime# = 1.0
startTime = timer()

do
   frameTime# = (frameTime# * 0.8) + ((timer() - startTime) * 0.2)
   startTime = timer()
   text 10, 10, "frameTime: " + str$(frameTime#)

   inc updateTime#, frameTime#

   if updateTime# >= FRAME_DELAY
      if file exist("c:\img.dib") then delete file "c:\img.dib"
      call dll 2,"SendMessageA", hHwnd, WM_CAP_FILE_SAVEDIB, 0, "c:\img.dib"
      load image "c:\img.dib",1
      texture object 1,1
      updateTime# = 0.0
   endif

   turn object left 1, frameTime# * 0.045
   roll object left 1, frameTime# * 0.060


   sync
loop

My Website:

http://www.thingy-ma-jig.co.uk

Back to top

Profile PM Email Website

Manson_NS

21

Years of Service

User Offline

Joined: 4th May 2004

Location: Denmark

Posted: 7th Jan 2005 20:07

Link

well, I'm glad you've found some use for my code!
Hovever I've been playing around with it for the past 6 months, and have got it working much better.

try sending me an email ([email protected]), and I'll throw you the new code - I do not have the code here with me.

if you set the framerate to 2048 it'll have a huch better FPS, but the fps read from the cam will get much lower. 16 seems to be the best.
Other than that, I've tried various stuff, like copying the context of the clipboard to the screen buffer, but I havn't had it blasting away like the windows apps yet.

If anyone out there is interested, I'd love some help with twaking it to go faster, but my main priority is algorithms for analyzation of the images.

Back to top

Profile PM

David R

21

Years of Service

User Offline

Joined: 9th Sep 2003

Location: 3.14

Posted: 7th Jan 2005 21:13

Link

So, in theory, you could use this code to make a [very slow] chatroom with webcam stuff - how would you do that?

Back to top

Profile PM Email Website

Manson_NS

21

Years of Service

User Offline

Joined: 4th May 2004

Location: Denmark

Posted: 8th Jan 2005 06:15

Link

Well, the code I have on my laptop would make it just as easy as sending a memblock.
Yea, webcam communication can easily be done.

Back to top

Profile PM

Sorry your browser is not supported!

DarkBASIC Professional Discussion / Viewing a Webcam in DarkBasic