FTP | CCD | Buscar | Trucos | Trabajo | Foros |
|
Registrarse | FAQ | Miembros | Calendario | Guía de estilo | Temas de Hoy |
|
Herramientas | Buscar en Tema | Desplegado |
#6
|
|||
|
|||
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; |
|
|
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 |
|