Gracias por la colaboracion Bebe gatosoft
Resulta que ingreso lo que tu me envias y me saca un error de declaracion del image y ya lo tengo declarado, te voy ha enviar un peazo del codigo que me convierte el video en los bitmaps, y tu lo revisas, bueno si puedes, te lo agardeceria en el alma, ese codigo si tu lo corres, veras que toma un video y lo convierte en frames de bitmaps, lo que necesito es que cada uno de esos bitmaps me lo despliegue en un tImage diferente, ese el el gallo.
procedure TFrmVisualizarKVNN.BitBtn5Click(Sender: TObject);
var
Bitmap: TBitmap;
i : integer;
begin
begin
for i := 1 to MediaPlayer1.Length do
begin
Edit3.Text := IntToStr(i);
MediaPlayer1.StartPos := i;
MediaPlayer1.EndPos := i;
MediaPlayer1.Play;
Bitmap := TBitmap.Create;
Try
Bitmap.Width := Panel1.Width;
Bitmap.Height := Panel1.Height;
Bitmap.PixelFormat := pf24bit;
Bitmap.Canvas.CopyRect(Bitmap.Canvas.ClipRect,
FrmvisualizarKVNN.Canvas,
Rect(Panel1.Left,
Panel1.Top,
Panel1.Left + Bitmap.Width,
Panel1.Top + Bitmap.Height));
Image1.Picture.Bitmap := Bitmap;
Bitmap.SaveToFile(IntToStr(i) + '.BMP'); //CLAVE
finally
Bitmap.Free
end;
Sleep (250); //250
Application.ProcessMessages
end
end
end;
Por favor cualquier ayuda, es que en realidad no se mucho de tratamiento de imagenes y videos...
