Duvida Utilizar OCX ezVidC60

Bom dia Pessoal.
Aguem tem um exemplo de como utilizar o ocx ezVidC60, para captura de fotos pelo OpenEdge.
Ja procurei na net e nao achei.
Valeu.

Pessoal Bom dia, alguem pode me ajudar?

Com este software consegue tirar fotos.

https://batchloaf.wordpress.com/commandcam/

Basta chamar o executável pelo OE.

Opa obrigado pela ajuda ae Baltazar,
voce tem um exemplo ae de chamada deste programa?

É só ver os parâmetros.

Código:

/* VERIFICA SE O exe DO CommandCam EXISTE */

o-Path_CommandCam = o-Caminho_Executaveis + "\CommandCam\CommandCam.exe".

if search(o-Path_CommandCam) = ? then do:

    message "Execut vel do 'CommandCam' Inexistente" skip
            "Contacte o Administrador do Sistema"
            view-as alert-box error.
    leave.
   
end.

/* com PREVIEW */

if i-PreviewWebCam = "S" then do:

    x-path = o-Path_CommandCam + ' ' + '/preview /devnum' + ' ' + string(x-Numero_Camara) + ' ' + '/delay 5000 /filename' + ' ' + '"' + x-PathImg_Bmp + '"'.

end.

/* sem PREVIEW */

if i-PreviewWebCam = "N" then do:

    x-path = o-Path_CommandCam + ' ' + '/devnum' + ' ' + string(x-Numero_Camara) + ' ' + '/filename' + ' ' + '"' + x-PathImg_Bmp + '"'.

end.

Para chamar. Também deve dar com o OS-COMMAND.

Código:

/**/

hProcess = CreateProcess(x-path,
                         "",
                         0). /* HIDDEN */

if hProcess = 0 then ShowLastError().
else do:

    run WaitForSingleObject in hpApi (  hProcess,
                                        -1,   /* -1=INFINITE */
                                        output ReturnValue).

    run CloseHandle IN hpApi (hProcess, OUTPUT ReturnValue).

end.