Bonjour à tous,
Je travaille sur un projet qui nécessite que je puisse enregistrer la vidéo de la camera sur un mobile android dans le but de l'utiliser par la suite. Voici quelques jours que je m'y colle et rien , ont dirait que je suis fasse à la muraille de chine .J'ai trouvé de bout de code qui lance la camera mais rien qui me permette de stocker la vidéo.
Si quelqu'un a un bout de code ou une idée sur comment récupérer ce flux de données vidéo et le stocker je suis preneur ; merci d'avance.
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27 Procedure TForm1.StartButtonClick(Sender: TObject); begin VideoCamera := TCaptureDeviceManager.Current.DefaultVideoCaptureDevice; IF (VideoCamera <> NIL) THEN BEGIN IF (VideoCamera.State = TCaptureDeviceState.Stopped) THEN BEGIN VideoCamera.OnSampleBufferReady := SampleBufferReady; VideoCamera.StartCapture; StartButton.Text := 'Stop'; END ELSE BEGIN VideoCamera.StopCapture; Image1.Opacity := 0; StartButton.Text := 'Start'; END; END ELSE BEGIN Caption := 'Video capture devices not available.'; END; end;
Emmanuel
Partager