WEBCAM functions

[serge_girard]

Hello All !

I was wondering if HMG could be used for Webcam issues.
Then I found this:

http://code.google.com/p/fivewin-contri ... r&can=2&q=

http://forums.fivetechsupport.com/viewt ... =6&t=22606

I copied and adepted to HMG (as far as possible: C STRUCTURE .. instead of STRUC, ) but can't get it working.

Anybody has any experience with this?

Greetings and thanks, Serge

[danielmaximiliano]

Hi Serge :
HMGext (Minigui) has examples of using cameras webcam
are in

Code: Select all

C:\MiniGUI\SAMPLES\Advanced\WebCam
C:\MiniGUI\SAMPLES\Advanced\WebCam_2

You can publish some of the modified code to see how it works and fix it to work on HMG / Harbour

[serge_girard]

Thx Daniel !

I will let you know.

Serge

[mustafa]

Hola Serge
El Sample de Minigui, en HMG está dando error en:

*------------------------------------------------------------------------------*
Procedure StartClick()
*------------------------------------------------------------------------------*

// If ! ISNIL(CamSource) <--------- ????????????
webcam.Label_0.Visible := .F.

previewCamera()

webcam.Button_1.Enabled := .T.
webcam.Button_4.Enabled := .F.
webcam.Button_2.Enabled := .T.
// EndIf <--------- ???????????

Return
Si se suprime "ISNIL", parece que funciona en HMG
un saludo
Mustafa

*------------------------------------------------------------------*


Hi Serge
The Sample MiniGUI in HMG is giving error:

*------------------------------------------------------------------------------*
Procedure StartClick()
*------------------------------------------------------------------------------*

// If ! ISNIL(CamSource) <--------- ????????????
webcam.Label_0.Visible := .F.

previewCamera()

webcam.Button_1.Enabled := .T.
webcam.Button_4.Enabled := .F.
webcam.Button_2.Enabled := .T.
// EndIf <--------- ???????????


If "ISNIL" deleted, seems to work on HMG
a greeting
Mustafa

[serge_girard]

Mustafa,

I changed ISNIL to IF !CamSource == Nil
and the repeat-until to
DO WHILE .t.
lConnect := capDriverConnect(hWnd, CamSource)
IF !lConnect .Or. ++i > nMaxAttempt
EXIT
ENDIF
ENDDO

Now I'm looking for 'moving-detection'

Greetings and thanks,

Serge

[mustafa]

Hola Serge
Si resuelves, el sample, ya publicaras el código fuente, creo que tampoco
salva el fichero avi
*---------------------------------*
Hi Serge
If I solve the sample, and will publish the source code, I think not
save the avi file
Regars
Mustafa

[srvet_claudio]

Hi Serge
The Sample MiniGUI in HMG is giving error:

*------------------------------------------------------------------------------*
Procedure StartClick()
*------------------------------------------------------------------------------*

// If ! ISNIL(CamSource) <--------- ????????????
webcam.Label_0.Visible := .F.

previewCamera()

webcam.Button_1.Enabled := .T.
webcam.Button_4.Enabled := .F.
webcam.Button_2.Enabled := .T.
// EndIf <--------- ???????????


If "ISNIL" deleted, seems to work on HMG
a greeting
Mustafa

Hi all,
add the header file of Harbour:

#include <common.ch>

Code: Select all

/* Type checking macros */
#translate ISNIL( <xValue> )       => ( <xValue> == NIL )
#translate ISARRAY( <xValue> )     => HB_ISARRAY( <xValue> )
#translate ISBLOCK( <xValue> )     => HB_ISBLOCK( <xValue> )
#translate ISCHARACTER( <xValue> ) => HB_ISSTRING( <xValue> )
#translate ISDATE( <xValue> )      => HB_ISDATE( <xValue> )
#translate ISLOGICAL( <xValue> )   => HB_ISLOGICAL( <xValue> )
#translate ISMEMO( <xValue> )      => HB_ISMEMO( <xValue> )
#translate ISNUMBER( <xValue> )    => HB_ISNUMERIC( <xValue> )
#translate ISOBJECT( <xValue> )    => HB_ISOBJECT( <xValue> )

[serge_girard]

Thanks Claudio!


Serge

[quartz565]

Hi Serge,

if you are only interested to take images from Webcam, here is a small adjustment in
Filatov' s program.



Nikos

[serge_girard]

Thank you Niko!

I will have a look at it tomorrow.


Serge