Capturar imagem da WebCam

Bom dia @fabianofss ,

Posso ajudá-lo sem problemas. O programa que coloquei como exemplo acima, hoje se encontra em produção onde trabalho.
O que necessariamente não deu certo?

No aguardo.

Muito obrigado, consegui fazer funcionar e colocar em produção!
eu não tinha me atentado que era necessário registrar o ezVidC60.ocx .
Muito obrigado, seu programa foi a base de tudo.

Opa, disponha.

Bom dia marciel.reis, olha eu qui de novo! rsrsr
Eu to com um probleminha quanto ao tamanho da foto!
peguei este método no manual passado anteriormente:
AllocCapFile returns: Boolean
Creates (preallocates) a capture file of a specified size

e estou tentando usar desta forma em vão:
chCtrlFrame:AllocCapFile(500).
chCtrlFrame:ezVidCap:SaveDIB(pNomeFoto).

As fotos estão com 900Kb estou tentando reduzir pra no minimo 100Kb
Saberia como me ajudar?

Obrigado.

Comprima a imagem

http://www.rw-designer.com/photo-resizer-advanced

Exemplo para comprimir para 150dpi.

Código:

o-Path_FotoResizer = "S:\Unitex\Executaveis\PhotoResizeP100IO.exe".

x-path = o-Path_FotoResizer + " -d150 " + txtNomeImagem:screen-value. /* dpi 150 */
       
        /**/
       
        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.

Atenção que o ficheiro tem opções. Veja no site.

Vou fazer os testes obrigado!