PROCEDURE 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
|