Discussion :

[moechofe]

Bonjours

Je tente de capturer le contenu graphique d'un composant de ma fenêtre.
J'ai commencé par chercher à faire une capture d'écran tout simple.
J'ai trouvé plusieurs solutions sur le forum et ailleur, mais j'ai toujours le même problème.

L'image résultante ne contient que les icones de la barre des tâches.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
var
  DCDesk: HDC;
  bmp: TBitmap;
begin
  bmp := TBitmap.Create;
  bmp.SetSize(Screen.Width, Screen.Height);
  DCDesk := GetWindowDC(GetDesktopWindow);
  BitBlt(bmp.Canvas.Handle, 0, 0, Screen.Width, Screen.Height, DCDesk, 0, 0, SRCCOPY);
  bmp.SaveToFile('ScreenShot.bmp');
  ReleaseDC(GetDesktopWindow, DCDesk);
  bmp.Free;

[Clorish]

Utilise un TCanvas.
Tu lui affecte le handle d'un composant et/ou 0 pour l'ecran.
Puis une copie ou un assign dans un TBitmap de bonne taille devrais faire l'affaire.

A noter que l'on peut peut etre directement affecter le handle du canvas du bitmap ... a tester.

[moechofe]

J'ai essayé de copier le contenu du canvas de mon composant avec la méthode Assign(). Je reçois une exception.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
Canvas:= TControlCanvas.Create;
Canvas.Assign( MyComponent.Canvas );

[Clorish]

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
 
Var Canvas : TCanvas;
Canvas := TCanvas.Create;
Canvas.Handle := MonControl.Handle;

Eventuelement passer par un GetHDC ....

[moechofe]

Merci.
J'ai essayé ceci :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
var
  Bitmap: TBitmap;
begin
  Bitmap:= TBitmap.Create;
  Bitmap.SetSize(Fenetre.Editeur.Width, Fenetre.Editeur.Height);
  Bitmap.Handle:= Fenetre.Editeur.Handle;
  Bitmap.SaveToFile('Screenshot.bmp');
  Bitmap.ReleaseHandle();
  Bitmap.Free;

...j'obtient une image de zéro octes.

[moechofe]

J'ai trouvé un example de Loupe en delphi qui ma permis de trouver ceci

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
begin
  Form1.Image1.Canvas.Handle:= getDC(Form1.Edit1.Handle);
  Form1.Image1.Canvas.CopyRect(
    Form1.Image1.ClientRect,
    Form1.Image1.Canvas,
    Form1.Edit1.ClientRect );
end;

merci @Clorish

[moechofe]

Voici le but de mon programe.
J'utilise un dérivé de TEdit qui permet de maintenir plusieurs tampons (fichiers) ouverts. Je souhaite afficher des vignettes du contenu des ces tampons.

Voila ce que je fait :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
begin
Image.Canvas.Handle:= getDC(Fenetre.Editeur.Handle);
Image.Canvas.CopyRect(
  Image.ClientRect,
   Fenetre.Editeur.Canvas,
   Fenetre.Editeur.ClientRect );
end;

Image est un Timage créer dynamiquement.
Editeur est un composant dérivé de TEdit.
Fenetre est un TForm.

1. Le contenu graphique capturé n'est pas toujours le contenu de Edit, mais de ce tout les autres composants qui rentre dans la zone ClientRect de Edit
2. Le contenu est tout le temps mis à jour, a chaque appel de Paint() je suppose, je preférerais contôler les sceenshots.

Je comprend donc que la resource DC n'est pas le contenu graphique de mon composant Edit mais plutot l'adresse mémoire graphique de Fenetre.

Comment je peux cloner le contenu graphique et non pointer dessus.

[philnext]

Tu as dans la JVCL un composant pour faire les captures d'écran avec un exemple (JvScreenCapture ?)

[moechofe]

Tu as dans la JVCL un composant pour faire les captures d'écran avec un exemple (JvScreenCapture ?)

J'ai trouvé merci !

[philnext]

Et du coup c'est résolu ou pas ??

[moechofe]

Et du coup c'est résolu ou pas ??

Oui c'est résolu, merci.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
var
  Bitmap: TBitmap;
begin
  Bitmap := TBitmap.Create;
  ScreenShot(
    Bitmap,
    Fenetre.Editeur.Left,
    Fenetre.Editeur.Top,
    Fenetre.Editeur.Width,
    Fenetre.Editeur.Height,
    Fenetre.Handle);
  Image.Picture.Bitmap.Assign(Bitmap);
  Bitmap.Free;
end;