J'essaye de faire une série de captures d'écran puis la transférer dans un tableau de Bitmap, de sorte à transformer ensuite la séquence en film.

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
 
procedure TForm1.Timer1Timer(Sender: TObject);
var
    b,c:TBitmap;
    image_nom:String;
    chaine_de_zeros:String;
    j:Integer;
begin
   if (enregistrer=True) and (lecture=False) and (fast_play=False) then
   begin
     i:=i+1;
     b := TBitmap.Create;
     try
        ScreenShot(TRUE, b) ;
        Form1.Image1.Picture.Bitmap.Assign(b);
        if  i<1000 then liste_images[i].Assign(b);
     finally
       b.FreeImage;
       FreeAndNil(b) ;
     end;
   end;
end;
A l'exécution, j'ai une erreur de type "access violation at adress...''. En enlevant la ligne " if i<1000 then liste_images[i].Assign(b);", ça ne produit pas d'erreur, mais ça n'enregistre pas non plus le défilement d'images.