|
|
|
|
- Presentación
- Utilice el ejemplo
Ejemplo de gestión de vídeos (emitidos por un control Cámara)
En este ejemplo, la aplicación le permite hacerlo: - ver la secuencia de vídeo emitida actualmente por la cámara instalada en el ordenador actual.
- modificar la configuración del controlador para la captura de vídeo.
- guardar el vídeo que se está emitiendo actualmente por la cámara especificada como un Image (archivo BMP) o como una secuencia de vídeo (archivo AVI).
Para desarrollar esta aplicación: - Cree una ventana en blanco:
- Haga clic en en los botones de acceso rápido.
- Aparece la ventana de creación: haga clic en "Ventana", y luego en "Ventana".
- En la asistente, seleccione "Blank".
- En esta nueva ventana:
- Crear una control Cámara llamada "CAM_Camera".: en la pestaña "Creación", en el grupo "Controles gráficos", despliegue "Video y captura" y haga clic en "Cámara".
Observación: Por Default, la cámara associated con este control corresponderá a la cámara Default que se encuentra en el ordenador actual. - Crea una control Botón y llámala "BTN_Film": en la pestaña "Creación", en el grupo "Controles frecuentes", haga clic en "Botón".
Esta control Botón se utilizará para mostrar la secuencia de vídeo en la control Cámara. - Crear una control Botón y nombrarla "BTN_Configuración": en la pestaña "Creación", en el grupo "Controles frecuentes", haga clic en "Botón".
Esta control Botón se utilizará para modificar la configuración del controlador para la captura de vídeo. - Cree un control Botón y control Botón un nombre: en la pestaña "Creación", en el grupo "Controles frecuentes", haga clic en "Botón".
Esta control Botón se utilizará para guardar la secuencia de vídeo que se está transmitiendo actualmente, como una Image (archivo BMP). - Crea una control Botón y llámala "BTN_Video": en la pestaña "Creación", en el grupo "Controles frecuentes", haga clic en "Botón".
Esta control Botón se utilizará para guardar la secuencia de vídeo que se está transmitiendo actualmente, como una secuencia de vídeo (archivo AVI). - Crear una control Botón y nombrarla "BTN_Stop": en la pestaña "Creación", en el grupo "Controles frecuentes", haga clic en "Botón".
Esta control Botón se usará para dejar de mostrar y/o guardar la secuencia de video en la control Cámara.
- Escriba el siguiente código en el "Click" Event de "BTN_Film":
// Displays the video sequence currently transmitted in the "CAM_Camera" control ResDisplay is boolean ResDisplay = VideoDisplay(CAM_Camera) // Displays an error message if a problem occurs IF ResDisplay = False THEN Error(ErrorInfo())
- Escriba el siguiente código en el "Click" Event de "BTN_Configuración":
// Displays the standard dialog box used to // configure the driver for video capture used by the "CAM_Camera" control VideoConfigure(CAM_Camera)
- Escriba el siguiente código en el "Click" Event de "BTN_Image":
// Save the image currently broadcasted in the "CAM_Camera" control ResImgBck is boolean ResImgBck = VideoCapture(CAM_Camera, "Temp.gif", viPictureCapture) IF ResImgBck = False THEN Error(ErrorInfo()) END // Select the file to create ImageFile is string ImageFile = fSelect(fExeDir(), "Image", ... "Save as...", "BMP" + TAB + "*.BMP", "bmp", fselCreate + fselExist) // Renames the created BMP file IF ImageFile ~= "" THEN // Delete the temporary file fDelete("Temp.BMP") ELSE // Renames and moves the generated file fRename("Temp.BMP", ImageFile) END
- Escriba el siguiente código en el "Click" Event de "BTN_Video":
// Save the video sequence currently broadcasted // in the "CAM_Camera" control in the format of a 3-minute AVI ResVideoBck is boolean ResVideoBck = VideoCapture(CAM_Camera, "Temp.avi", viVideoCapture, 180) IF ResVideoBck = False THEN Error(ErrorInfo()) END // Select the file to create VideoFile is string = fSelect(fExeDir(), "Video", ... "Save as...", "AVI" + TAB + "*.avi", "avi", fselCreate + fselExist) // Renames the created AVI file IF VideoFile ~= "" THEN // Delete the temporary file fDelete("Temp.avi") ELSE // Renames and moves the generated file fRename("Temp.avi", ImageFile) END
- Escriba el siguiente código en el "Click" Event de "BTN_Stop":
// Displays the display or the backup of the video sequence ResStop is boolean ResStop = VideoStop(CAM_Camera) // Displays an error message if a problem occurs IF ResStop = False THEN Error(ErrorInfo())
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|