Discussion :

[scara]

Bonjour à tous,
Je cherche a coller une image issus das le presse papier avec cecode :

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
 
 
uses
  .......pngimage,Clipbrd;
 
 
procedure TForm1.Copy2clipboardClick(Sender: TObject);
var
  newPng: TPNGObject;
begin
  if (Image1.Picture.Bitmap.Empty) then
  begin
    showmessage('Il n''y a pas de capture à coller dans le presse papier!');
    exit
  end
  else
    newPng := TPNGObject.Create;
  with newPng do begin
    Assign(Image1.Picture.Bitmap);
    CompressionLevel := 9;
    if Clipboard.HasFormat(CF_METAFILEPICT) then
      newPng.assign(Clipboard);
    Free;
  end;
end;

Pas de message d'erreur, mais ça ne fonctionne pas...

Merci de votre aide.

[scara]

Ce code fonctionne....

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
procedure TForm1.Copy2clipboardClick(Sender: TObject);
var
  newPng: TPNGObject;
begin
  if (Image1.Picture.Bitmap.Empty) then
  begin
    showmessage('Il n''y a pas de capture à coller dans le presse papier!');
    exit
  end
  else
    newPng := TPNGObject.Create;
  newPng := TPNGObject.Create;
  newPng.Assign(Image1.Picture.Bitmap);
  Clipboard.Assign(newPng);
  newpng.Free;
end;

Je zappe :

Code :

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

 if Clipboard.HasFormat(CF_METAFILEPICT) then