New Class TWebCam in FWH 10.9

[Antonio Linares]

Code: Select all  Expand view

//-------------- --------------------------------------------------------------//
  #include "Fivewin.ch"  
  #include "WebCam.ch"
//----------------------------------------------------------------------------//
  Function Main ()
   Local oWnd, oMenu, oWebCam

   MENU oMenu  2007
      MENUITEM "&Opções"
      MENU
         MENUITEM "Ligar"               ACTION oWebCam:Initialize();
            WHEN !oWebCam:isConnected
         MENUITEM "Desligar"            ACTION oWebCam:Finalize();
               WHEN oWebCam:isConnected
         SEPARATOR
         MENUITEM "Salvar Imagem"       ACTION oWebCam:SaveFile();
               WHEN oWebCam:isConnected
         SEPARATOR
         MENUITEM "Controle de Video"   ACTION oWebCam:VideoControl();
            WHEN oWebCam:isConnected
         MENUITEM "Formatação de Video" ACTION oWebCam:Configuration();
            WHEN oWebCam:isConnected
         SEPARATOR
         MENUITEM "Sair"                ACTION oWnd:End()
      ENDMENU
      MENUITEM "&Option"
      MENU
         MENUITEM "Start"               ACTION oWebCam:Initialize();
            WHEN !oWebCam:isConnected
         MENUITEM "Stop"                ACTION oWebCam:Finalize();
               WHEN oWebCam:isConnected
         SEPARATOR
         MENUITEM "Save Picture"        ACTION oWebCam:SaveFile();
            WHEN oWebCam:isConnected
         SEPARATOR
         MENUITEM "Video Control"       ACTION oWebCam:VideoControl();
            WHEN oWebCam:isConnected
         MENUITEM "Video Format"        ACTION oWebCam:VideoFormat();
            WHEN oWebCam:isConnected
         SEPARATOR
         MENUITEM "Exit"                ACTION oWnd:End()
      ENDMENU
   ENDMENU
   
   DEFINE WINDOW oWnd TITLE "Sample Class TWebCam" MENU oMenu PIXEL
   DEFINE WEBCAM oWebCam FROM 0,0 TO 640,480 OF oWnd

   SET MESSAGE OF oWnd TO oWebCam:cName+Space(6)+oWebCam:cVersion 2007
   ACTIVATE window oWnd Maximized

   oWebCam:Destroy()

  Return Nil
//----------------------------------------------------------------------------//
 

[Silvio]

Antonio is supported th epossibility to link many webcam ?

sample:

I have the net into all house and I have 4 webcam , each cam is on a net port

1 Room
2 Bathroom
3 Garden
4 Office

it is possibil ecreate a dialog with 4 videobox to control all ?

[Horizon]

Hi,

Code: Select all  Expand view

Type: C >>>xhb.exe -o"test.c" -m -n -p -q -gc0   -I"D:\fwh\include" -I"D:\xHB\include" -I"D:\xHB\include\w32" "test.prg"<<<

xHarbour Compiler build 1.2.1 (SimpLex) (Rev. 6726)
Copyright 1999-2010, http://www.xharbour.org http://www.harbour-project.org/
Generating object output to 'test.obj'...

Type: C >>>xlink.exe -NOEXPOBJ -MAP -FORCE:MULTIPLE -NOIMPLIB -subsystem:windows -UNMANGLE -LIBPATH:"D:\fwh\lib" -LIBPATH:"D:\xHB\lib" -LIBPATH:"D:\xHB\c_lib" -LIBPATH:"D:\xHB\c_lib\win"  "test.obj" "FiveHCM.lib" "FiveHMX.lib" "OptG.lib" "xhb.lib" "dbf.lib" "nsx.lib" "ntx.lib" "cdx.lib" "rmdbfcdx.lib" "ct3comm.lib" crt.lib kernel32.lib user32.lib winspool.lib ole32.lib oleaut32.lib odbc32.lib odbccp32.lib uuid.lib wsock32.lib ws2_32.lib wininet.lib advapi32.lib shlwapi.lib msimg32.lib mpr.lib OleDlg.lib version.lib comctl32.lib comdlg32.lib gdi32.lib shell32.lib winmm.lib lz32.lib Netapi32.lib -out:"test.exe"<<<

Creating object: test.EXP

Creating library: test.LIB

xLINK: error: Unresolved external symbol '_capCreateCaptureWindowA referenced from Fivehmx.lib(TWEBCAM.obj)'.

xLINK: error: Unresolved external symbol '_capGetDriverDescriptionA referenced from Fivehmx.lib(TWEBCAM.obj)'.

xLINK: error: Unresolved external symbol '??2@YAPAXI@Z referenced from Fivehcm.lib(ACTX.obj)'.

xLINK: error: Unresolved external symbol '??3@YAXPAX@Z referenced from Fivehcm.lib(ACTX.obj)'.

xLINK: fatal error: 4 unresolved external(s).


Type: C >>>Couldn't build: test.exe<<<

Regards,

[Antonio Linares]

Hakan,

You have to link avicap32.lib

If your compiler does not provide it, then you have to create it yourself from avicap32.dll

[Horizon]

ok. Thanks