Copier une image ClipBoard / D6

Question

Bonjour à tous,

J'utilise le compo WebBrowser pour naviguer, dans même fenêtre, je sélectionne et copie une image :

          Form1.WebBrowser2.ExecWB (OLECMDID_SELECTALL, OLECMDEXECOPT_DODEFAULT);
          Form1.WebBrowser2.ExecWB (OLECMDID_COPY, OLECMDEXECOPT_DODEFAULT);

Je vérifie que la copie (une image) est bien dans le ClipBoard, en faisant "Coller" dans un mail, jusqu'à la tout va bien.

Le problème que je n'arrive pas à récupérer cette image dans un compo Delphi6 de style "TImage".

Pourriez vous m'orienter vers un exemple ?

Merci à tous[javascript:window.close() ]

Cirec · Answer

Salut,

c'est très simple :

Pour un Composant TImage nommé Image1 

Si aucun BMP n'est chagé dans Image1 alors 
//a ne faire qu'une fois (dans le OnCreate de la Form par Ex.)
  Image1.Picture.Bitmap :=  TBitmap.Create;

En suite pour récuperer l'image depuis le ClipBoard :
// on verifie que le format soit bon 
 If  ClipBoard.HasFormat(cf_Bitmap) Then
 Image1.Picture.Bitmap.LoadFromClipboardFormat(cf_Bitmap,ClipBoard.GetAsHandle(cf_Bitmap),0);

Il faut bien sur que ClipBrd soit déclarer dans la clause Uses :
Uses clipbrd;

 
@+
Cirec

<hr siz ="" />

bshaka · Answer

Merci pour la rèponse,

Le format de l'image copiée dans le "ClipBoard" est jpg, c'est pourquoi j'ai ce message d'erreur "Format de Presse Papier non supporté", j'ai essayé d'autre constant "CF_Picture", ça n'a pas marché !!!

Copier une image ClipBoard / D6

2 réponses

Votre réponse

Discussions similaires