WEBCAM

Alles over het toepassen van API en DLL's in Liberty BASIC

Moderator: anthonio

WEBCAM

Berichtdoor FrederikPot » za aug 16, 2008 12:13 pm

Deze code is misschien handig voor anderen.. het slaat een foto op van de webcam
in'C:\basic.bmp'
Succes !
Code: Selecteer alles
 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


FrederikPot
 
Berichten: 14
Geregistreerd: vr aug 15, 2008 11:31 pm

Re: WEBCAM

Berichtdoor Gordon » za aug 16, 2008 12:27 pm

:oops:

ik heb geen webcam.
OK, misschien wel iets op zolder liggen... maar waar.

Gordon
Avatar gebruiker
Gordon
Site Admin
 
Berichten: 684
Geregistreerd: zo mei 22, 2005 12:50 am

Re: WEBCAM

Berichtdoor anthonio » zo aug 17, 2008 12:40 pm

Zeer nice,

Heb even gegoogled op het internet en zeer mooi overgezet, indrukwekkend en zeer handig.
Heb wat uitleg bij je code geplaats zodanig dat dit makkelijker te begrijpen is voor andere LB'ers.

Andy
Dual boot: Ubuntu 8.04 - WIndows XP SP2 (via VMware) - Windows Vista 32bit - Toshiba L40 - Dual Core @ 1,76GHz - 1GB RAM - 120GB HDD - VDSL Connection
Avatar gebruiker
anthonio
 
Berichten: 281
Geregistreerd: zo mei 20, 2007 9:58 pm


Keer terug naar API/DLL

Wie is er online

Gebruikers op dit forum: Geen geregistreerde gebruikers. en 1 gast

cron