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.
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.
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;
Partager