FiveTech Support Forums

FiveWin / Harbour / xBase community
Board index FiveWin para Harbour/xHarbour TWebCam
Posts: 1054
Joined: Sun Oct 09, 2005 10:41 PM
TWebCam
Posted: Sun May 10, 2026 05:56 PM

HOla amigos... A algunos de vosotros les funciona la cámara web para tomas fotografías en una app de FiveWin ? gracias

Posts: 44158
Joined: Thu Oct 06, 2005 05:47 PM
Re: TWebCam
Posted: Sun May 10, 2026 07:56 PM

Sí, FiveWin tiene soporte para cámara web y funciona para tomar fotografías. Existen varias opciones:

Clase TWebCam

La clase TWebCam permite capturar video de una webcam usando la API de Windows Video for Windows (VFW). Puede mostrar vista previa en vivo, guardar imágenes estáticas como BMP y grabar video 0-cite-0 .

Métodos clave para fotografías:

  • SaveFile( cFileName ) - Captura una imagen estática y la guarda como .bmp 0-cite-1
  • Initialize() - Conecta a la webcam e inicia la vista previa en vivo 0-cite-2
  • Finalize() - Desconecta y detiene la vista previa 0-cite-3

Ejemplo básico:

#include "FiveWin.ch"
#include "WebCam.ch"

function Main()
   local oWnd, oCam
   

   DEFINE WINDOW oWnd TITLE "Webcam Demo" SIZE 680, 540
   

   oCam := TWebCam():New( oWnd, 10, 10, 640, 480, .T. )
   

   // Guardar una foto:
   // oCam:SaveFile( "photo.bmp" )
   

   ACTIVATE WINDOW oWnd ;
      ON INIT oCam:Initialize()
   

return nil

Clase tWebCamPhoto (ejemplo especĂ­fico)

Hay un ejemplo más completo en samples/misc/photos.prg con la clase tWebCamPhoto que implementa una interfaz específica para capturar fotografías con botones para capturar, transferir al portapapeles, configurar formato y fuente de video 0-cite-5 .

Ejemplos disponibles

  • samples/web/webcam.prg - Demo completo de la clase TWebCam con menĂş para capturar imágenes y video 0-cite-6
  • samples/misc/photos.prg - Ejemplo especĂ­fico para tomar fotografĂ­as con webcam 0-cite-7
  • samples/misc/dshow.prg - Ejemplo usando DirectShow para captura de cámara 0-cite-8

La funcionalidad está implementada y hay ejemplos funcionales en el repositorio.

regards, saludos

Antonio Linares
www.fivetechsoft.com

Continue the discussion