FTP | CCD | Buscar | Trucos | Trabajo | Foros |
|
Registrarse | FAQ | Miembros | Calendario | Guía de estilo | Temas de Hoy |
|
Herramientas | Buscar en Tema | Desplegado |
|
#1
|
|||
|
|||
Qué versión de Delphi tienes ?
Entiendo que con FireMonkey incluido desde XE2 es posible hacer directamente ese manejo ... |
#2
|
||||
|
||||
#3
|
|||
|
|||
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 |
#4
|
|||
|
|||
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 |
#5
|
|||
|
|||
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; |
#6
|
|||
|
|||
esto con delphi xe 3
|
#7
|
||||
|
||||
Recuerda poner los tags al código fuente, ejemplo:
Gracias |
#8
|
|||
|
|||
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. |
|
|
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 |
|