Récupérer une image dans le presse-papier

**ChPr** · 26/08/2011, 18h19

Bonjour à toutes et à tous,

Je sais placer une image dans le presse-papier par :

Code :

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

ClipBoard.Assign(BmPCopy);

"BmpCopy" est mon BitMap dans lequel est l'image.

Je sais que l'image est dans le presse-papier car je peux la récupérer avec un logiciel de dessin.

Mais je n'arrive pas à la récupérer dans mon programme par l'une des procédure suivante :

Code :

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

ClipBoard.AssignTo(BmpCopy);

ou

Code :

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

BmpCopy.Assign(ClipBoard);

Apparemment, c'est lié au type d'image placé dans le presse-papier.

Savez-vous comment faire ?

Merci de votre aide.

Pierre

**parhelie** · 28/08/2011, 08h18

Bonjour,

J'aurais fait :

Code :

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

Image.Picture.Assign(ClipBoard)

Ça ne conviendrait pas pour toi?

P@ric

**ChPr** · 28/08/2011, 10h38

Merci "parhelie" pour cette proposition, mais le problème rest entier.

NOTA : ce problème n'existe que sous Windows, sous Linux, ça fonctionne bien.

Apparemment, ce n'est pas la technique de récupération du presse-papier qui est en cause, mais le type Mime qui n'est pas reconnu : j’obtiens le message suivant :

Code :

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

Unsupported MimeType

Le problème est que je ne sais pas quel type employer.

Ce que je fais est une transposition d'un programme que j'avais écrit avec DELPHI et qui fonctionne très bien. Dans ce programme le type est : "CF_BITMAP"

Merci de votre aide.

Pierre

**CapJack** · 28/08/2011, 12h05

Arrives-tu à récupérer - dans ton application Lazarus - une image que tu viens de coller - à partir de ton application Lazarus - ?

**ChPr** · 28/08/2011, 12h36

Envoyé par CapJack

Arrives-tu à récupérer - dans ton application Lazarus - une image que tu viens de coller - à partir de ton application Lazarus - ?

Non !

Avec mon application Lazarus, je sais placer une image dans le presse-papier par :

Code :

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

    ClipBoard.Assign(MonBitMap);

Je sais que cette image est dans la presse-papier car je peux la récupérer avec une autre application.

Le problème, est que, apparemment, cette image a été mise dans le presse-papier au format "CF_BITMAP" et que lorsque je veux la charger à partir du presse-papier, Lazarus me dit :

Code :

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

Unsupported MimeType

Il ne reconnait même pas ce qu'il vient de mettre !

D'ailleurs, le problème est le même si je veux récupérer une image que j'ai mise dans le presse-papier à partir d'une autre application Windows (Paint, GIMP, PhotoEditor, ...)

Merci de votre aide.

Pierre

**DOLPat®** · 28/08/2011, 21h03

Bonjour

Essaye ceci:

Code :

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

1
2
3
4
5
6
7
8
procedure TForm1.FormCreate(Sender: TObject);
var
  BMP : TBitmap;
begin
  BMP := TBitmap.Create;
  BMP.LoadFromClipboardFormat(CF_BITMAP);
  BmpCopy.Picture.Bitmap.Assign(BMP);
end;

**ChPr** · 29/08/2011, 10h05

Envoyé par DOLPat®

Bonjour

Essaye ceci:

Code :

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

1
2
3
4
5
6
7
8
procedure TForm1.FormCreate(Sender: TObject);
var
  BMP : TBitmap;
begin
  BMP := TBitmap.Create;
  BMP.LoadFromClipboardFormat(CF_BITMAP);
  BmpCopy.Picture.Bitmap.Assign(BMP);
end;

Merci pour cette proposition, mais elle ne fonctionne qu'à moitié. Hier, j'ai essayé tout un tas de solution, dont une proche de celle-ci, mais qui aussi ne fonctionne qu'à moitié. J'ai créé un rapport de bug (0020089) dont voici la traduction en français

:

Sous Windows XP,

Si je transferts une image à partir d'une application Lazarus vers le presse-papier avec soit :

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

ClipBoard.Assign(MyBitMap);

soit :

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

MyBitMap.SaveToClipboardFormat(PredefinedClipboardFormat(pcfBitMap));

si j'utilise une application telle que : Paint, PhotoEditor, GIMP, ... Je retrouve mon image par le menu "coller", mais je ne peux pas la retrouver dans mon application Lazarus en utilisant : :

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

MyBitMap.LoadFromClipboardFormat(PredefinedClipboardFormat(pcfXXX));

où pcfXXX est l'une des valeurs prédéfinies.

Maintenant, si je transferts une image au presse-papier à partir de mon application Lazarus avec :

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

MyBitMap.SaveToClipboardFormat(PredefinedClipboardFormat(pcfDelphiBitMap));

je la retrouve dans mon application avec :

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

MyBitMap.LoadFromClipboardFormat(PredefinedClipboardFormat(pcfDelphiBitMap));

mais cette fois, je ne peux plus la retrouver avec le menu "coller" dans les applications telles que : Paint, PhotoEditor, GIMP, ...

Il serait normal qu'il y ait une valeur de pdfXXX qui permette de retrouver mon image à la fois dans mon application Lazarus et dans les autres logiciels !

Je considère ce problème comme un bug.

Apparemment "CF_BITMAP" a le même comportement que "pcfDelphiBitmap".

Merci de votre aide.

Pierre

**tourlourou** · 29/08/2011, 14h07

Bonjour,

Si j'ai bien compris, le BitMap de Lazarus se veut indépendant du contexte, à la différence de celui de Windows. En regardant ici :
http://www.lazarus.freepascal.org/in...ic=5979.5;wap2
et là : http://forum.lazarus.freepascal.org/...?topic=11545.0
je pense que tu peux essayer :

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
  MyBitMap.SaveToClipboardFormat(PredefinedClipboardFormat(pcfBitMap));
 
  PictureAvailable:=false;
 
  if Clipboard.HasFormat(PredefinedClipboardFormat(pcfDelphiBitmap)) 
  then PictureAvailable:=true;
  if Clipboard.HasFormat(PredefinedClipboardFormat(pcfBitmap)) 
  then PictureAvailable:=true;
 
  if PictureAvailable 
  then begin
    ImageToEdit.Picture.LoadFromClipboardFormat(PredefinedClipboardFormat(pcfDelphiBitmap));
   MyBitMap.LoadFromClipboardFormat(PredefinedClipboardFormat(pcfDelphiBitmap));
  end
  else ShowMessage('wtf ?');

**ChPr** · 29/08/2011, 15h46

Merci tourlourou pour cette proposition. Je m'étais aussi basé sur les liens que tu donnes.

Malheureusement, la solution que tu proposes fait partie de celles que j'ai données précédemment (voir bug 0020089) et ne fonctionne pas.

Merci de votre aide.

Pierre

**DOLPat®** · 29/08/2011, 17h51

Envoyé par ChPr

J'ai créé un rapport de bug (0020089) dont voici la traduction en français

Très bonne initiative.

Y'a plus qu'à attendre un retour du Bug Tracker.

**CapJack** · 30/08/2011, 19h59

En attendant, après une petite demi-heure à me battre avec le code source de Lazarus, voilà une solution qui marche (enfin, chez moi...) :

Code :

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

 OnLoadGraphicFromClipBoardFormat(Bmp,ctClipBoard,CF_Bitmap);

Ne m'en demandez pas plus...

**ChPr** · 30/08/2011, 21h10

Merci CapJack pour cette solution. Malheureusement, comme les autres solutions, celle-ci ne fonctionne qu'à moitié, c'est-à-dire que le copier/coller fonctionne au sein de l'application Lazarus, mais si on ouvre le presse-papier avec une autre application (Paint, PhotoEditor, GIMP, ...), rien n'apparaît.

Quelle version de Lazarus/Free Pascal as-tu ?

Merci de votre aide.

Pierre

**DOLPat®** · 30/08/2011, 22h23

Bizarre bizarre tout cela...
Je viens d'essayer de coller une image à partir de Paint avec mon code d'origine:

Code :

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

1
2
3
4
5
6
7
8
procedure TForm1.FormCreate(Sender: TObject);
var
  BMP : TBitmap;
begin
  BMP := TBitmap.Create;
  BMP.LoadFromClipboardFormat( CF_BITMAP );
  Image1.Picture.Bitmap.Assign(BMP);
end;

Et cela fonctionne sans souci !
J'ai juste ouvert Paint, gribouillé n'importe quoi, sélectionné toute l'image puis Ctrl-C pour la copier. Ensuite, j'ai lancé le code sous Lazarus et j'ai bien mon dessin dans le TImage...
Idem en ouvrant un jpeg dans Paint.

J'utilise Lazarus 0.9.31 r30288 FPC 2.4.3 et je compile en 64 bits

[Edit] Même constat avec Photoshop: aucun souci, l'image est correctement importée.
[Edit2] L'image que tu copie a bien une profondeur de couleur d'au moins 16 bits ??? ou bien c'est une image 256 couleurs avec une palette, auquel cas, les problèmes pourraient s'expliquer...

**ChPr** · 31/08/2011, 00h09

Oui DOLPat®, ce que tu fais fonctionne aussi chez moi (Lazarus 0.9.30 et FP 2.4.2), ce qui ne fonctionne pas, c'est la même chose mais dans le sens inverse, avec "CF_Bitmap", c'est à dire de Lazarus vers Paint ou autres.

De tout ce que j'ai pu essayer, je n'ai jamais pu avoir les 3 modes d'échange suivants fonctionnels en même temps :

- Copier de Lazarus --> Coller dans Paint
- Copier de Lazarus --> Coller dans Lazarus
- Copier de Paint --> Coller dans Lazarus

Paint ou autre chose : Gimp, ...

NOTA : quand on suit le parcours avec le débugger on s'aperçoit que, quelque soit la procédure employée (de toutes celles qui ont été citées dans ce fil par exemple), on passe pratiquement toujours dans les mêmes fonctions. Ce qui expliquerait que, quelque soit la solution envisagée, le problème est le même.

Mais j'espère que je me trompe ...

Merci de votre aide.

Piezrre

**CapJack** · 31/08/2011, 00h29

La solution que j'ai proposée, je l'ai testée bien évidemment avec une image copiée dans Paint, puis collée dans l'application Lazarus ! Sinon ça n'avait aucun intérêt...

Lazarus 9.30 (32 bits), fpc 2.4.2.

**CapJack** · 31/08/2011, 06h36

Alors, j'ai refait quelques essais avec OnSaveGraphicToClipBoardFormat et OnLoadGraphicFromClipBoardFormat ; effectivement, c'est plus que bizarre...

Étant donnée une fiche comportant 2 TImage, Image1 contenant un bitmap au démarrage, et Image2 vierge, et 3 TButton dont l'évènement "OnClick" est associé respectivement aux opérations "coller", "copier", "dupliquer", j'obtiens ça moi aussi :

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
// Coller application tierce -> Lazarus : OK
procedure TTestPasToolsForm.Button1Click(Sender: TObject);
begin
 OnLoadGraphicFromClipBoardFormat(Image2.Picture.Bitmap,ctClipBoard,CF_Bitmap);
end;
 
// Copier Lazarus -> application tierce
// Pas ok, le bouton "coller" de Paint reste désactivé.
// Comme si le format du bitmap n'était pas reconnu...
procedure TTestPasToolsForm.Button2Click(Sender: TObject);
begin
 OnSaveGraphicToClipBoardFormat(Image1.Picture.Bitmap,ctClipBoard,CF_Bitmap);
end;
 
// Dupliquer Lazarus -> Lazarus : OK
procedure TTestPasToolsForm.Button3Click(Sender: TObject);
begin
 OnSaveGraphicToClipBoardFormat(Image1.Picture.Bitmap,ctClipBoard,CF_Bitmap);
 OnLoadGraphicFromClipBoardFormat(Image2.Picture.Bitmap,ctClipBoard,CF_Bitmap);
end;

Comme si le format copié dans le presse-papier n'était pas standard.

Edit : encore plus bizarre... si on fait directement appel à l'API de Windows (en ajoutant "windows" dans la clause uses), ça déclenche une erreur. Le handle encapsulé dans le TBitmap de Lazarus serait-il un standard HBitmap, ou un format "maison" ?

Code :

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

1
2
3
4
5
6
7
8
procedure TTestPasToolsForm.Button2Click(Sender: TObject);
begin
 //OnSaveGraphicToClipBoardFormat(Image1.Picture.Bitmap,ctSecondarySelection,CF_Picture);
 Clipboard.Open;
 if windows.SetClipboardData(windows.CF_BITMAP,Image1.Picture.Bitmap.Handle) = 0
    then ShowMessage('Error');
 ClipBoard.Close;
end;

Edit 2 : La nuit du presse-papier... nouveau thriller.

Si j'ouvre/ferme le presse-papier avec l'API de Windows :

Code :

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

1
2
3
4
 windows.OpenClipboard(Handle);
 if windows.SetClipboardData(windows.CF_BITMAP,Image1.Picture.Bitmap.Handle) = 0
    then ShowMessage('Error');
 windows.CloseClipboard;

plus d'erreur, le bouton "coller" de Paint s'active, mais :

Le handle de Bitmap fourni par Lazarus n'est pas au format Windows, selon moi. Lazarus peut interpréter les données reçues de Windows, mais pas les fournir dans le bon format attendu par Windows. À cause du multi-plateforme, il doit utiliser un format pointé par le Handle qui est "générique", ce qui expliquerait que le problème ne se pose pas dans d'autres environnements. Mais il devrait être capable de faire les conversions nécessaires, donc il y a souci. On doit pouvoir trouver une solution basée sur l'API.

Edit 3 : C.Q.F.D. -> http://62.166.198.202/bug_view_advan...p?bug_id=12729
Le bug est déclaré "fixed", mais manifestement il ne l'est pas.

**CapJack** · 31/08/2011, 10h12

Bon, voilà un truc qui marche, mais c'est vraiment "usine à gaz"

:

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
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
// Le type doit être Graphics.TBitmap, il existe un autre
// TBitmap dans les types prédéfinis, qui est de type record !
// Ou alors, mettre la clause windows AVANT Graphics.
// Il faut transmettre le bitmap en 32 bits au presse-papier,
// sinon on obtient une image noire...
 
// Si l'image source contient des zones transparentes,
// les zones correspondantes seront noires
// dans l'application tierce.
 
procedure CopyBmpToClipboard(const ABmp:Graphics.TBitmap);
var
  hdcSrc, hdcDst: Windows.HDC;
  DstBitmap, OldSrcBitmap, OldDstBitmap: Windows.HBITMAP;
  bm : Windows.BITMAP;
begin
  if not assigned(ABmp) then exit;
  hdcDst := Windows.CreateCompatibleDC(0);
  Windows.GetObject(ABmp.Handle,SizeOf(bm),@bm);
  //ShowMessageFmt('w=%d  h=%d  planes=%d  BitsPixel=%d',[bm.bmWidth,bm.bmHeight,bm.bmPlanes,bm.bmBitsPixel]);
  DstBitmap := Windows.CreateBitmap(bm.bmWidth,bm.bmHeight,bm.bmPlanes,32,nil); // /!\
  //if DstBitmap=0 then ShowMessage('DstBitmap=0');
  OldDstBitmap := Windows.SelectObject(hdcDst,DstBitmap);
  //if OldDstBitmap=0 then ShowMessage('OldDstBitmap=0');
  if (Windows.BitBlt(hdcDst, 0, 0, bm.bmWidth, bm.bmHeight,
                     ABmp.Canvas.Handle, 0, 0, SRCCOPY) = False)
     then ShowMessage('Impossible de copier le bitmap dans le presse-papiers.');;
  Windows.OpenClipboard(0);
  Windows.EmptyClipboard;
  Windows.SetClipboardData(Windows.CF_BITMAP, DstBitmap);
  Windows.CloseClipboard;
  Windows.SelectObject(hdcDst, OldDstBitmap);
  Windows.DeleteDC(hdcDst);
end;
 
procedure CopyBmpFromClipboard(var ABmp:Graphics.TBitmap);
var
  hdcSrc, hdcDst: Windows.HDC;
  SrcBitmap, DstBitmap, OldSrcBitmap, OldDstBitmap: Windows.HBITMAP;
  bm : Windows.BITMAP;
begin
  if not assigned(ABmp) then exit;
  hdcSrc := Windows.CreateCompatibleDC(0);
  hdcDst := Windows.CreateCompatibleDC(0);
  Windows.OpenClipboard(0);
  SrcBitmap := Windows.GetClipboardData(Windows.CF_BITMAP);
  Windows.CloseClipboard;
  Windows.GetObject(SrcBitmap,SizeOf(bm),@bm);
  DstBitmap := Windows.CreateBitmap(bm.bmWidth,bm.bmHeight,bm.bmPlanes,bm.bmBitsPixel,nil);
  OldSrcBitmap := Windows.SelectObject(hdcSrc,SrcBitmap);
  OldDstBitmap := Windows.SelectObject(hdcDst,DstBitmap);
  if (Windows.BitBlt(hdcDst, 0, 0, bm.bmWidth, bm.bmHeight,
                     hdcSrc, 0, 0, SRCCOPY) = False)
     then ShowMessage('Impossible de récupérer le bitmap du presse-papiers.');;
  ABmp.SetHandles(DstBitmap,0);
  Windows.SelectObject(hdcSrc, OldSrcBitmap);
  Windows.SelectObject(hdcDst, OldDstBitmap);
  Windows.DeleteDC(hdcSrc);
  Windows.DeleteDC(hdcDst);
  Windows.DeleteObject(SrcBitmap);
end;
 
// Coller application tierce -> Lazarus : OK
procedure TTestPasToolsForm.Button1Click(Sender: TObject);
var Bmp:Graphics.TBitmap;
begin
Bmp := Graphics.TBitmap.Create;
 CopyBmpFromClipBoard(Bmp);
 Image2.Picture.Bitmap.Assign(Bmp);
 Bmp.Free;
end;
 
// Copier Lazarus -> application tierce : OK, sauf transparence => noir
procedure TTestPasToolsForm.Button2Click(Sender: TObject);
begin
  CopyBmpToClipboard(Image1.Picture.Bitmap);
end;
 
// Dupliquer Lazarus -> Lazarus : OK
procedure TTestPasToolsForm.Button3Click(Sender: TObject);
var Bmp:Graphics.TBitmap;
begin
 CopyBmpToClipboard(Image1.Picture.Bitmap);
 Bmp := Graphics.TBitmap.Create;
 CopyBmpFromClipBoard(Bmp);
 Image2.Picture.Bitmap.Assign(Bmp);
 Bmp.Free;
end;

**DOLPat®** · 31/08/2011, 17h29

Bizarre bizarre tout cela. Chez moi, c'est deux procédures fonctionnent sans souci. Que ce soit pour:
- copier de Lazarus ==> coller vers Lazarus
- copier de Lazarus ==> coller dans Paint ou Photoshop
- copier de Paint ou Photoshop ==> coller vers Lazarus

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
procedure TForm1.btnCollerClick(Sender: TObject);
var
  BMP : TBitmap;
begin
  BMP := TBitmap.Create;
  BMP.LoadFromClipboardFormat(CF_BITMAP);
  imgDestination.Canvas.Clear;
  imgDestination.Picture.Bitmap.Assign(BMP);
  imgDestination.Refresh;
end;
 
procedure TForm1.btnCopierClick(Sender: TObject);
begin
  Clipboard.Open;
  Clipboard.Assign(imgSource.Picture.Bitmap);
  Clipboard.Close;
end;

Peut-être un bug dans l'unité Clipboard de Lazarus 0.9.30 qui a été corrigé dans la 0.9.31.

**DOLPat®** · 31/08/2011, 17h45

Un truc de ouf ! Oubliez ce que j'ai dit précédemment. Pas que cela ne fonctionne pas, cela marche très bien tant que l'on lance l'application dans l'EDI. Dès que l'on lance directement l'exécutable, effectivement on arrive plus à coller...

Vraiment un truc de

...