VIDEO - Capturar Video e Gravar Imagem ou Tirar Foto
Video Functions - http://doc.windev.com
VideoCapture - http://doc.windev.com
VideoStop - http://doc.windev.com
--------------------------------------------------------------------------------------------------------------------
---------------------------------------------------------------------------------------------------------------------
Video Functions - http://doc.windev.com
VideoCapture - http://doc.windev.com
---------------------------------------------------------------------------------------------------------------------
VideoStop - http://doc.windev.com
// Desativa Camera
CAM_camera..Visible=False
// Ativa Camera
CAM_camera..Visible=True
---------------------------------------------------------------------------------------------------------------------
// Salva o video Transmitido - Save the video broadcasted
b_resultado_salvar is boolean // save results
b_resultado_salvar = VideoCapture(CAM_camera, "C:\Temp\Video.AVI", viVideoCapture, 60)
IF b_resultado_salvar = True THEN
Info("Vídeo gravado com sucesso"+CR+"Video successfully saved")
ELSE
Error(ErrorInfo())
END
// viVideoCapture
// Captura uma seqüência de vídeo como um arquivo AVI.
// Captures a video sequence as an AVI file.
// Salva o video Transmitido - Save the video broadcasted
b_resultado_salvar is boolean // save results
b_resultado_salvar = VideoCapture(CAM_camera, "C:\Temp\Video.AVI", viVideoCapture)
// viVideoCapture
// Captura uma seqüência de vídeo como um arquivo AVI.
// Captures a video sequence as an AVI file.
---------------------------------------------------------------------------------------------------------------------
// Para a Gravação do Video - For Video Recording
b_resultado_parar is boolean // stop results
b_resultado_parar = VideoStop(CAM_camera,viStopCapture)
IF b_resultado_parar = True THEN
Info("Vídeo gravado com sucesso"+CR+"Video successfully saved")
ELSE
Error(ErrorInfo())
END
// viStopCapture
// Pára a gravação do vídeo. O arquivo gerado está disponível.
// Stops recording the video. The generated file is available.
---------------------------------------------------------------------------------------------------------------------
// Salvar Imagen
_salvar_imagen is boolean // save image
_salvar_imagen = VideoCapture(CAM_camera, "C:\Temp\imagen.jpeg",viPictureCapture,20)
IF _salvar_imagen = True THEN
Info("Salvado Imagen"+CR+"save image")
IMG_foto="C:\Temp\imagen.jpeg"
ELSE
Error(ErrorInfo())
END
---------------------------------------------------------------------------------------------------------------------
---------------------------------------------------------------------------------------------------------------------
Nenhum comentário:
Postar um comentário