WX Informatica - Ativar Webcam e tirar foto - sistema de acesso a empresa
WEBCAM.SetDriver("Microsoft WDM Image Capture (Win32) - (Version: 10.0.17134.1)")
WEBCAM..Visible = True
IMG_FOTO_BENEFICIARIO..Visible = False
WEBCAM..visible = False
IMG_FOTO_BKP = dLoadImage(IMG_FOTO_BENEFICIARIO)
IMG_FOTO_BENEFICIARIO = SelecionaImagem("IW_Table_T001_CLIENTES","IMG_FOTO_BENEFICIARIO")
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
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:
OBS
Voce vai precisar de 2 controles de imagem um IMG_FOTO_BENEFICIARIO e outro IMG_FOTO_BKP "na posicao negativa da tela" x= -200
mais o controle de WEBCAM e dois botoes um para ativar a webcam que vai ocultar e outro que vai tirar a foto com ela
Qualquer dúvida entre em contato comigo pelo 41999491800
Nosso suporte é das 6h até as 24h estamos sempre disponiveis para tirar todas as dúvidas
Juntos somos mais fortes!!!
Simples assim!
é usando Windev!
--
Adriano José Boller
______________________________________________
Consultor e Representante Oficial da
PcSoft no Brasil
+55 (41) 99949 1800
adrianoboller@gmail.com
skype: adrianoboller
http://wxinformatica.com.br/Mensagem modificada, abril, 05 2019 - 3:29 PM