//Ativar Webcam
WEBCAM.SetDriver("Microsoft WDM Image Capture (Win32) - (Version: 10.0.17134.1)")

//exibe controle da webcam e esconde o controle de imagem que tem o mesmo tamanho e mesma posicao
WEBCAM..Visible = True
IMG_FOTO_BENEFICIARIO..Visible = False

//codigo ao clicar na foto
WEBCAM..visible = False
IMG_FOTO_BKP = dLoadImage(IMG_FOTO_BENEFICIARIO)
IMG_FOTO_BENEFICIARIO = SelecionaImagem("IW_Table_T001_CLIENTES","IMG_FOTO_BENEFICIARIO")

//codigo do botao tirar foto pela webcam
Procedure UI_WebCam()

IF fDirectoryExist("C:\Temp\") = False THEN
fMakeDir("C:\Temp\")
END

IF fFileExist("C:\Temp\FOTO_BENEFICIARIO.JPG") = True THEN
fDelete("C:\Temp\FOTO_BENEFICIARIO.JPG")
END

WEBCAM.Capture("C:\Temp\FOTO_BENEFICIARIO.JPG",viPictureCapture)
IMG_FOTO_BENEFICIARIO = "C:\Temp\FOTO_BENEFICIARIO.JPG"
IMG_FOTO_BENEFICIARIO..Visible = True
WEBCAM..Visible = False

//Codigo do controle de imagem ao clicar busca a imagem do disco
Procedure SelecionaImagem(Janela, ControleImagem)

bufImagebuffer is Buffer

sFile is string = fSelect("c:\", "Selecione uma Foto...", "Todos os arquivos (*.*)" + TAB + "*.*" + CR + "PNG" + TAB + "*.PNG" + CR + "JPEG" + TAB + "*.JPEG" + CR + "JPG" + TAB + "*.JPG", "*.*")

IF fFileExist(sFile) = True

bufImagebuffer = fLoadBuffer(sFile)

sControlTelaImg is string = Janela +"."+ ControleImagem

{sControlTelaImg,indControl} = bufImagebuffer

dResize({sControlTelaImg,indControl},{sControlTelaImg,indControl}..Width,{sControlTelaImg,indControl}..Height,drHomotheticCentered)

bufImagebuffer = {sControlTelaImg,indControl}

ELSE

Info("Nenhum arquivo selecionado!")

END

RESULT bufImagebuffer
CASE ERROR: