|
|
|
|
|
|
|
|
WLanguage Procedure llamado por CameraVideoStart Lenguaje WLanguage Procedure ("callback") llamado cuando finaliza la grabación de vídeo. La grabación de vídeo se inició con CameraVideoStart. CameraVideoStop debe haber sido llamada para detener la grabación del video. // BTN_Start_video click code
ChronoStart()
TimerSys(TimerSys_Callback, 1s)
INTERNAL PROCEDURE TimerSys_Callback()
dDuration is Duration = ChronoValue()
STC_CPT_VIDEO = DurationToString(dDuration,"HH:MM:SS")
END
CameraVideoStart(CAM_Camera, CameraVideoStart_Callback)
INTERNAL PROCEDURE CameraVideoStart_Callback(bSuccess is boolean, VideoPath is string)
ChronoEnd()
EndTimerSys()
STC_CPT_VIDEO = "00:00:00"
IF bSuccess THEN
STC_VIDEO_PATH = VideoPath
MyWindow.Plane = 4
ELSE
ToastDisplay("Cannot record video." + CR + ErrorInfo())
END
END // Stop video
CameraVideoStop(CAM_Camera)
Sintaxis
CameraVideoStart_Callback(<Success> , <Video path>)
<Success>: booleano - True si el video fue grabado,
- False en caso contrario. En este caso, ErrorInfo devuelve los detalles del error.
<Video path>: Cadena de caracteres Recorrido del vídeo que se acaba de grabar. |
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|