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.

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;
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.

Emmanuel