Alguién conoce una solución simple y confiable para la WebCam en Delphi ?

[gustavosv]

Qué versión de Delphi tienes ?

Entiendo que con FireMonkey incluido desde XE2 es posible hacer directamente ese manejo ...

[dec]

Hola,

Yo uso DirectX Delphi Webcam con buenos resultados en Windows XP SP3, WIndows 7 y Windows 8.

[rolandoj]

Empezado por dec

Hola,

Yo uso DirectX Delphi Webcam con buenos resultados en Windows XP SP3, WIndows 7 y Windows 8.

Hola,

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

[rolandoj]

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

[CCCP]

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;

[CCCP]

esto con delphi xe 3

[Casimiro Notevi]

Recuerda poner los tags al código fuente, ejemplo:



Gracias

[rolandoj]

Empezado por gustavosv

Qué versión de Delphi tienes ?

Entiendo que con FireMonkey incluido desde XE2 es posible hacer directamente ese manejo ...

Hola,

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.