🚀 go-pugleaf

Simonetti wrote...

> How do I get the first frame of an AVI (either file or resource)
> as a bitmap?

I don't know if there is a direct way to do it.
What once did was loading the AVI in a TAnimate,
play frame by frame and copy the canvas content
to a bitmap. Something like this...

var
  Bitmap: TBitmap;
  i, x: Integer;
begin  for x := 1 to 8 do  // eight common AVIs
  begin
    Animate1.CommonAVI := TCommonAVI(x);
    for i := 1 to Animate1.FrameCount do
    begin
      Animate1.Play(i, i+1, 1);
      Label1.Caption := IntToStr(i);
      Bitmap := TBitmap.Create;
      try
        Bitmap.Width  := Animate1.Width;
        Bitmap.Height := Animate1.Height;
        Bitmap.Pixelformat := pf8bit; // pf24bit;
        Bitmap.Canvas.CopyRect(Bitmap.Canvas.ClipRect,
                               Self.Canvas,
                               Rect(Animate1.Left, Animate1.Top,
                                    Animate1.Left + Bitmap.Width,
                                    Animate1.Top  + Bitmap.Height));
        Bitmap.SaveToFile('AviBitmaps\'+
          IntToStr(Ord(Animate1.CommonAVI))+'_'+IntToStr(i) +'.bmp');
      finally
        Bitmap.Free
      end;
      Sleep(50);
      Application.ProcessMessages; // Just to update the label.
    end;
  end;
end;

-- 
Pieter