Discussion :

[franckcl]

[ Delphi TOKYO 10.2 - VCL ]

Bonjour,

Je souhaiterais faire du traitement sur chaque image d'un fichier AVI pendant la lecture avant de l'afficher.
Je sais faire du traitement d'image avec une webcam en traitant chaque image dans la fonction call back en revanche je ne vois pas comment faire avec le TMediaPlayer.

Merci de me donner vos idées..

Franck

[anapurna]

salut

dans mon souvenir c'est pas simple d'utiliser Tmediaplayer pour faire de la capture d’écran c'est une surcouche qui utilise les mci_command
il y a DSpack qui est plus ouvert basé sur la techno directshow

[ShaiLeTroll]

Regarde si la WebCam fait du JPEGMotion, tu recevras les images une par une au lieu de traiter le flux.

[anapurna]

salut ,

a priori TmediaPlayer a un peu évolué il y a plus de commande disponible
sur le site de microsoft

j'ai trouvé cela sur le net ...

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
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
 
uses
  MMSystem;
 
 
// MCI_DGV_UPDATE_PARMS from Digitalv.h, Platform SDK July 2000
type
  PMciDgvUpdateParms = ^TMciDgvUpdateParms;
  TMciDgvUpdateParms = packed record
    dwCallback: DWORD;
    rc: TRect;
    hDC: HDC;
  end;
 
// constants from Digitalv.h, Platform SDK July 2000
const
  MCI_DGV_UPDATE_HDC = $00020000;
  MCI_DGV_UPDATE_PAINT = $00040000;
 
procedure TForm1.Button1Click(Sender: TObject);
begin
  // step pour aller jusqu'a la prochaine frame et dessinner dessus
  MediaPlayer1.Step;
  OwnDrawOverFrame;
end;
 
procedure TForm1.OwnDrawOverFrame;
begin
  // Pour l'exemple dessiner une croix 
  Canvas.Pen.Color := clRed;
  with MediaPlayer1.DisplayRect do
  begin
    Canvas.MoveTo(Left, Top);
    Canvas.LineTo(Right, Bottom);
    Canvas.MoveTo(Right, Top);
    Canvas.LineTo(Left, Bottom);
  end;
end;
 
procedure TForm1.FormCreate(Sender: TObject);
begin
  with MediaPlayer1 do
  begin
    Display := Self;
    Open;
  end;
end;
 
 
procedure TMaForm.FormPaint(Sender: TObject);
var
  MciErr: MCIERROR;
  Buf: array[0..128] of Char;
  UpdateParams: TMciDgvUpdateParms;
begin
  with MediaPlayer1 do
  begin
    if Mode = mpStopped then
    begin
      // initialize update params
      FillChar(UpdateParams, SizeOf(TMciDgvUpdateParms), 0);
      UpdateParams.dwCallback := Handle;
      UpdateParams.rc := DisplayRect;
      UpdateParams.hDC := Canvas.Handle;
      // send MCI_UPDATE command
      MciErr := mciSendCommand(DeviceID, MCI_UPDATE, MCI_DGV_UPDATE_HDC or MCI_DGV_UPDATE_PAINT, Cardinal(@UpdateParams));
      // Montrer les erreurs 
      if (MciErr <> 0) then
      begin
        FillChar(Buf, SizeOf(Buf), 0);
        mciGetErrorString(MciErr, Buf, SizeOf(Buf));
        OutputDebugString(PChar(Format('%d: %s', [MciErr, Buf])));
      end;
    end; // dessinner sur la frame encore
    OwnDrawOverFrame;
  end;
end;

[franckcl]

merci anapurna, je vais voir ça.