Delphi - Capturar imagen de video

Necesito capturar una imagen de un frame de un video que se esta reproduciendo en delphi con el tmediaplayer pero no tengo ni la menor idea de como se hace.

de antemano muchas gracias

Bueno, Supongo que ya habras logrado mostrar el video en un componente contenedor como un panel en el formulario pones la propiedad Left y Top del componente donde muestras el video a 0.

El siguiene fragmento de codigo se tiene que hacer antes de la caputra, lo puedes colocar en el OnShow o OnCreate del formulario o al hacer clic en el boton de captura pero antes de la captura.

with MediaPlayer1 do
begin
Display:=Panel1;
Panel1.Width:=DisplayRect.Right;
Panel1.Height:=DisplayRect.Bottom;
Image1.Height:=Panel1.Height;
Image1.Width:=Panel1.Width;
end;

Y el siguiente fragmento lo ponen en el boton que hace la captura

Image1.Canvas.CopyRect(Image1.ClientRect,Self.Canvas,Panel1.ClientRect);

Esta forma ha funcionado al gunas veces pero por alguna razon falla en algunas Computadoras y no se ha descubierto si es problema de la tarjeta de video o de los codecs de windows.

Pruebalo y nos cuentas