FTP | CCD | Buscar | Trucos | Trabajo | Foros |
|
Registrarse | FAQ | Miembros | Calendario | Guía de estilo | Temas de Hoy |
|
Herramientas | Buscar en Tema | Desplegado |
#1
|
|||
|
|||
Alguién conoce una solución simple y confiable para la WebCam en Delphi ?
Hola amigos,
Llevo días investigando el tema de como hacer que me funcione el capturar video, y luego imágenes simples, desde una WebCam con Delphi. En este mismo foro hay un montón de hilos al respecto, y lo mismo ocurre si buscamos con Google; pero, la solución simple, basada en AviCap32.Dll y ampliamente documentada aquí, definitivamente tiene un problema muy serio de estabilidad. He conseguido que a veces me funcione; pero, en la mayoría de los casos la pantalla aparece en negro. Eso es algo que le pasa igualmente a la mayoría de personas que han tratado con esta solución, y por ello se sugieren alternativas; pero, lo que he visto no son soluciones faciles de usar y para mi es un problema porque en mi caso el video es solo un plus a una muy pequeña parte del proyecto; no es algo que me amerite dedicarle demasiado esfuerzo y recursos. Sea porque existe un error o incompatibilidad de la librería; o porque en muchos casos debería usarse alguna opción de la misma que no está documentada (porqu la cámara funciona desde el aplicativo nativo de Windows), el caso es que no es una solución aceptable. La pregunta es : Alguno conoce una solución que : A. Sirva con cualquier versión de Windows B. Que sea confiable (funcione siempre, o casi siempre) C. Que sirva con cualquier versión de Delphi D. Que sea simple de implementar Agradezco cualquier ayuda |
#2
|
|||
|
|||
Qué versión de Delphi tienes ?
Entiendo que con FireMonkey incluido desde XE2 es posible hacer directamente ese manejo ... |
#3
|
||||
|
||||
#4
|
|||
|
|||
Gracias; pero XE2 está descartada por ahora
Cita:
Muchas gracias por contestar. Pués XE2 no es una de las versiones de que dispongo; pero, aún si lo fuera, como dije antes, necesito que sea una solución que funcione en casi todas las versiones. |
#5
|
|||
|
|||
Voy a probar
Cita:
Muchas gracias por el dato. Ese enlace ya lo conocía; pero, no lo había intentado porque tenía referencias de que con DirectX era bastante complicado. Si consideras que no lo es, voy a probar por mi mismo y te cuento. Muchos saludos |
#6
|
|||
|
|||
Avance
Hola,
Muchísmas gracias por el dato. Bueno, me funcionó en Delphi 2007. En Delphi 4 no trabaja; pero, me puse a modificar el código de las librerías DirectX pedidas y me funcionó; aunque hay un par de rutinas que no pude duplicarles facilmente la funcionalidad. Toca probar más a ver que tan necesarias pueden ser y que tan estable resulta. El proceso de adaptación no es tan facil; pero, el uso del objeto en si resulta muy sencillo. Creo que probablemente la opinión que leí al respecto pudo ser porque intentaron primero el ejemplo de DirectXDelphiWebcamCapture que es complejo; pero, si se trabaja con los ejemplos del otro archivo, el DirectXDelphiWebcamCaptureDemos, los demos son muy sencillos y se entiende super rápido el uso básico del objeto (si es que solo me tomó una hora y media probar en Delphi 2007, luego desarrollar mi propio ejemplo y migrar las librerías a Delphi 4) Les estaré contando como me va con el resto de pruebas. Muchos saludos |
#7
|
|||
|
|||
webcam
procedure TForm1.FormCreate(Sender: TObject);
begin VideoCamera := TCaptureDeviceManager.Current.DefaultVideoCaptureDevice; if VideoCamera <> nil then Begin VideoCamera.OnSampleBufferReady := SampleBufferReady; VideoCamera.StartCapture; End; end; procedure TForm1.SampleBufferReady(Sender: TObject; const ATime: TMediaTime); begin TThread.Synchronize(TThread.CurrentThread, SampleBufferSync); end; procedure TForm1.SampleBufferSync; begin VideoCamera.SampleBufferToBitmap(Image1.Bitmap, True); end; procedure TForm1.FormDestroy(Sender: TObject); begin if VideoCamera <> nil then VideoCamera.StopCapture; end; |
#8
|
|||
|
|||
esto con delphi xe 3
|
#9
|
||||
|
||||
Recuerda poner los tags al código fuente, ejemplo:
Gracias |
|
|
Temas Similares | ||||
Tema | Autor | Foro | Respuestas | Último mensaje |
¿ Alguien conoce EL MATE ? | rretamar | La Taberna | 19 | 21-04-2009 21:35:22 |
alguien conoce alguna herramienta para desarrollar sobre xaml en delphi??? | voldemmor | Varios | 0 | 20-10-2008 00:29:28 |
Alguien conoce Geoserver?? | torito | Gráficos | 2 | 26-10-2007 21:16:59 |
Alguien conoce una implementacion de Naive-Bayes en Delphi? | mamcx | Varios | 3 | 25-04-2007 17:00:49 |
alguien conoce manuales? | maruenda | Conexión con bases de datos | 1 | 12-02-2004 01:25:17 |
|