Capturar frames del TMediaPlayer

[beginner01]

Saludos.

Prueba este código que encontré en la página de Experts Exchange, a ver si es lo que nesesitas

Código Delphi [-]
//uses Jpeg;
procedure TForm1.Capturar;
var
  BMP : TBitmap;
  ADC : HDC;
  GetPoint : TPoint;
  MyJpeg: TJpegImage;
begin
  BMP := TBitmap.Create;
  BMP.Height := Panel1.Height;
  BMP.Width := Panel1.Width; // it is also the size of Panel1
  MediaPlayer1.TimeFormat := tfFrames;
  //MediaPlayer1.Display := Panel1;
  GetPoint := Panel1.ClientToScreen(Point(0,0));
  ADC := GetDC(0);
  //MediaPlayer1.Position := FrameNumberToCapture;
  Application.ProcessMessages;
  Bitblt(BMP.Canvas.Handle, 0,0,
             BMP.Width,BMP.Height,
             ADC, GetPoint.X, GetPoint.Y, SRCCOPY);

  MyJpeg:= TJpegImage.Create;
  MyJpeg.Assign(BMP);
  MyJpeg.SaveToFile('D:\Temp\Captura.JPG');
end;

Cambia Panel1 por el que usas para visualizar el video.