copier une variable Bitmap dans une autre

Version imprimable

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:

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.

17/02/2011, 23h18
Andnotor

Il te manque un :

Code:

liste_images[i] := TBitmap.Create;

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
 
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 
            begin  
               liste_images[i] := TBitmap.Create; liste_images[i]:=b  Form1.Edit3.Text:=IntToStr(i); end;
 
     finally
       b.FreeImage;
       FreeAndNil(b) ;
     end;
   end;
end;
 
 
procedure TForm1.Timer3Timer(Sender: TObject);
begin
  if (fast_play=True) and (enregistrer=False) and (lecture=False) then
  begin
    i:=i+1;
    Form1.Image1.Picture.Bitmap.Assign(liste_images[i]);
    Form1.Edit3.Text:=IntToStr(i);
  end;
end;

Merci pour la réponse rapide, même si ça ne marche toujours pas. J'ai mis ici 2 fonctions clef : TForm1.Timer1Time sert à enregistrer les images, TForm1.Timer3Timer sert à lire la suite d'images. Lorsque je lance Timer1, je vois les images s'afficher en "vidéo" dans la TImage1. Lorsque je lance Timer3, il ne se passe rien.

18/02/2011, 00h01
Andnotor

Tu as remplacé liste_images[i].Assign(b) par liste_images[i] := b. Suivi d'un FreeAndNil(b), forcement qu'il n'y a plus rien dans liste_images[i] ;)
18/02/2011, 00h35
sys1

Un grand merci à toi! Ca a l'air de marcher maintenant!
Je dois avouer que j'ai pris une partie du code sur quelqu'un d'autre (le programme original servait à visualiser une capture d'écran dans une TImage) pour essayer le transformer en logiciel à filmer ce qu'il se passe sur l'écran.
Du coup, il y a des pans de codes que je ne comprends pas (ou pas beaucoup).

Si j'ai bien compris, le FreeAndNil(b) supprimait aussi le tableau de bitmap car c'était enregistré sous forme de pointeurs et pas d'images?

Après quelques tests, je vois cependant qu'un autre problème apparaît (et c'était prévisible), en 20 à 30 secondes, memory overload!
Dans un test précédent, j'enregistrais les Images sur le disque dur, mais du coup, ça ramait et donc la vidéo produite saccadait. C'est pour ça que je voulais tester sur la RAM. C'est fluide, mais pas plus de 20 secondes de film. Ou alors faudrait une résolution VGA :aie:
18/02/2011, 07h34
Andnotor

:= fait que les 2 variables pointent sur la même adresse mémoire alors qu'Assign copie les données d'une instance dans une autre. Faudrait maintenant voir comment tu as résolu le problème parce que si tu as gardé :=, TBitmap.Create ne sert à rien à part consommer de la mémoire qui ne sera pas restituée.

Cherche aussi sur le forum. Il y a des procédures pour générer directement un avi sans stocker une grande quantité de bitmaps.
Il faudrait aussi peut-être ne faire une prise d'écran que sous certaines circonstances (Evénements souris, création de fenêtre, repeinture, etc.) et ne sauver que la zone qui a été modifiée (ClipRect). Avoir N fois la même image n'est pas utile ;)

Citation:

Envoyé par Andnotor

:= fait que les 2 variables pointent sur la même adresse mémoire alors qu'Assign copie les données d'une instance dans une autre.

attention tout de même, une propriété avec un setter change la donne :)

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
 
type
  TMonObject = class
  private
    FBitmap : TBitmap;
    procedure SetBitmap(Value: TBitmap);
  public
    constructor Create;
    destructor Destroy; override;
    property Bitmap: TBitmap read FBitmap write SetBitmap;
  end;
 
constructor TMonObject.Create;
begin
  inherited;
  FBitmap := TBitmap.Create;
end;
 
destructor TMonObject.Destroy;
begin
  FBitmap.Free;
  inherited;
end;
 
procedure TMonObject.SetBitmap(Value: TBitmap);
begin
  FBitmap.Assign(Value);
end;
 
begin
  MonObject1.Bitmap := Bitmap1; // c'est un Assign()
end;

19/02/2011, 21h13
Montor

Citation:

Envoyé par sys1

Après quelques tests, je vois cependant qu'un autre problème apparaît (et c'était prévisible), en 20 à 30 secondes, memory overload!
Dans un test précédent, j'enregistrais les Images sur le disque dur, mais du coup, ça ramait et donc la vidéo produite saccadait. C'est pour ça que je voulais tester sur la RAM. C'est fluide, mais pas plus de 20 secondes de film. Ou alors faudrait une résolution VGA

Utilse AVIMakeCompressedStream pour choisir un bon codec vidéo disponible sur ton pc