Sauvegarde une form sous forme d'imageRésolu

Question

Bonjour,

Voici mon problème. Je travaille sur une application qui permet de créer des documents multimédias et l'interface qui permet de placer les différents éléments (image, vidéo)
est une fenêtre Delphi.

Pour permettre à l'utilisateur d'avoir un aperçu de ses différentes créations j'ai besoin de créer une image à partir du contenu de cette fenêtre. Pour l'instant j'utilise la fonction "imprime écran" de windows mais ca pose problème si l'utilisateur met une fenêtre devant pile au mauvais moment.

Existe t-il une méthode qui permettrait d'obtenir le même résultat qu'un "Alt + impr écran" mais différemment ?
( une sorte de sérialisation de l'objet mais sous forme d'image)

Merci d'avance pour vos réponses.

Cordialement.

Ludovic Charollais

Cirec · Accepted Answer

Salut

pour obtenir une image d'une fiche partiellement caché ou en dehors de l'écran il faut proceder autrement:

"le code est juste fait pour montrer le principe  "
  Private 
    Procedure 
GetWindowImage(aHandle: THandle); 
    { 
Déclarations privées }
  Public 

    { Déclarations publiques }
  End; 

Function PrintWindow(ahwnd:HWND; hdcBlt:HDC; 
nFlags:UINT): Bool; Stdcall; External 'User32.dll' 
name 'PrintWindow'; 
Var 
  Form1: TForm1; 

Implementation 

Uses testwnd; { Fiche uniquement pour teser le code }

{$R *.dfm}

Procedure 
TForm1.GetWindowImage(aHandle : THandle); 
Var DC, hdcMem : HDC; 
    aRect : TRect; 

    hBMP : HBitmap; 
    aWidth, aHeight : Integer; 
    BMP : 
TBitmap; 
Begin 
  dc :=  
GetWindowDC(0); 
   If   dc > 0 Then 

  Try 
    hdcMem : = CreateCompatibleDC(dc); 
    If  hdcMem > 0  Then 
    Try 
      GetWindowRect(aHandle, 
aRect); 
      aWidth :=  aRect.Right-aRect.Left; 
      aHeight := 
aRect.Bottom-aRect.Top; 
      hBMP := CreateCompatibleBitmap(dc, aWidth, 
aHeight); 
       If   hBMP > 0 Then 
      Try 

        SelectObject(hdcMem, hBMP); 

        PrintWindow(aHandle, hdcMem, 0); 

        BMP : = TBitmap.Create; 
        Try 

          BMP.Width :=  aWidth; 
          BMP.Height := 
aHeight; 
          BitBlt(BMP.Canvas.Handle, 0, 
0, aWidth, aHeight, hdcMem, 0, 0, srcCopy); 

          Image1.Picture.Bitmap.Assign(BMP); 
        Finally 
          BMP.Free; 
         End ; 
      Finally 

        DeleteObject(hBMP); 
      End; 
    Finally 

      DeleteObject(hdcMem); 
    End; 
  Finally 

    ReleaseDC(0, dc); 
  End; 
End; 

Procedure TForm1.Button1Click(Sender: 
TObject); 
Begin 

  GetWindowImage(testfrm.handle); 
End; 

voilà tout simplement 

 
@+
Cirec

<hr siz ="" />

cs_cantador · Answer

Bonsoir,

Pourquoi ne pas mettre directement sur la forme un popup et sur clic droit
envoyer le forme dans le presse papier ?

cantador

Guillemouze · Answer

tu peux essayer TWinControl.PaintTo ou TWinControl.PaintWindow, mais il me semble que ca affiche aussi la fenetre qui se trouve devant. A verifier.

ludo2223 · Answer

Bonsoir,

Merci pour votre réponse.

Votre solution me conviendrais mais comme fait on ?
( à la limite à la place du clic droit je le ferais juste avant de fermer la form comme ca quand l'utilisateur retourne sur l'interface principale l'aperçu est mis à jour. )

Quel serait le code de cette méthode, si vous avez des pistes de méthodes ou composants qui permettent de faire ca, je les testerais avec plaisir.

Merci

Ludovic

ludo2223 · Answer

Bonsoir Guillemouze,

Merci pour l'astuce, je le teste et je poste le résultat !

Ludovic

cs_cantador · Answer

Il faut chercher un peu Ludo...

cantador

ludo2223 · Answer

Re bonsoir;

J'ai testé :
    - Form1.PaintTo(bmp.canvas.handle,0,0);
    - Form1.PaintWindow(bmp.canvas.handle);
    - Form1.PaintControls(bmp.canvas.handle,Self.Controls[0]);

mais je n'obtiens pas la totalité du contenu de la fenêtre. Par exemple le label y est mais pas le bouton.

Je continue mes recherches...

Caribensila · Answer

Salut,




var  FormImage : TBitmap;
...
FormImage := GetFormImage;

Caribensila · Answer

Salut Cirec,

Ma méthode fonctionne très bien pour une Form cachée, en dehors de l'écran, etc...

procedure TMainForm.Button1Click(Sender: TObject);
  var FormImage : TBitmap;
  begin
  FormImage := GetFormImage;
  try
    Image1.Picture.Bitmap.Assign(FormImage);
  finally FormImage.Free; end;
end;

Cirec · Answer

MDR

oui mais pas pour une fiche d'une application externe ... ben ça ne fonctionne pas 
GetFormImage est une méthode de TCustomForm 

function TCustomForm.GetFormImage: TBitmap;

et je suis désolé mais j'ai fait le teste avec sur la forme à capturer (1 TMemo avec texte; 1 TImage avec une image et 1 TBitButton avec un glyph) et une différence y est notable:
avec GetFormImage les ScrollBars de TMemo ne sont pas visible et la taille d'image n'est pas bonne du fait que barre de titre n'est pas prise en compte

alors qu'avec PrintWindow tout est bon 

donc dans un cadre plus général il est préférable d'utiliser PrintWindow 

 
@+
Cirec

<hr siz="" />

Caribensila · Answer

Ok.
J'avais mal compris la question, alors.
Désolé.

ludo2223 · Answer

Bonjour à tous,

Merci beaucoup pour votre aide. Je teste tout ca et je vous tiens au courant.

Cordialement

Ludovic

ludo2223 · Answer

Bonjour à tous,

Voilà j'ai fait pas mal de tests avec la solution de Cirec et tout marche parfaitement.

Les deux autres solutions fonctionnent aussi mais ne couvrent pas tout les types de composants.

Merci beaucoup pour votre aide.

Ludovic

Sauvegarde une form sous forme d'image

13 réponses

Votre réponse

Discussions similaires