Discussion :

[cprogil]

J'utilise Delpi 6 pro et je souhaite copier une image JPEG dans le presse-papier pour la récupérer dans une autre application.
J'utilise Delpi 6 pro.
Pour cela j'essaie d'utiliser la méthode

Code :

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

1
2
 
 SaveToClipboardFormat(MyFormat,AData,APalette);

Il n'y a pas d'exemple d'utilisation dans delphi.
J'ai bien trouvé un exemple sur internet mais dans ce dernier les différentes variables ne sont pas initialisée. J'ai donc essayé sans les initialiser mais sans succès.
Si quelqu'un avait un exemple ou des infos sur l'utilisation de cette méthode se serai super!

[ThomasB]

Salut,
J'ai pas testé mais voici un exemple avec un TBitMap.

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
procedureTForm1.Button1Click(Sender:TObject);
var
MyFormat :Word;
Bitmap :TBitMap;
AData,APalette :THandle;
begin
Bitmap :=TBitmap.Create;
try
Bitmap.LoadFromFile('c:\Program Files\Common Files\Borland Shared\Images\Splash\256color\factory.bmp');
Bitmap.SaveToClipBoardFormat(MyFormat,AData,APalette);
ClipBoard.SetAsHandle(MyFormat,AData);
finally
Bitmap.Free;
end;
end;

je suppose que si tu arrive à faire :

Code :

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

SaveToClipBoardFormat(MyFormat,AData,APalette);

il te reste plus qu'a faire :

Code :

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

ClipBoard.SetAsHandle(MyFormat,AData);

A mon avis c'est le SaveToClipBoardFormat qui initialise les variables.

[cprogil]

Merci ThomasB, je vais essayer ta solution et je mettrai mon tag résolu si j'y arrive !!

[cprogil]

J'utilise Delphi 6 pro.
Les méthodes ClipBoard.setAsHandle
et ClipBoard.getAsHandle
n'existent pas dans ma version.
Qui a une autre solution ?
peut être avec le handle du presse-papier de windows :

[Lung]

Bien entendu, tu as ajouté Clipbrd dans tes uses !?

[Chonchon]

Bonjour

voici des exemples copie coller ouper avec un memo

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 TF_Normal.BCouperClick(Sender: TObject);
begin
 Memo_Texte.CopyToClipboard;
 Memo_Texte.ClearSelection;
end;
 
procedure TF_Normal.BCopierClick(Sender: TObject);
begin
Memo_Texte.CopyToClipboard;
end;
 
procedure TF_Normal.BCollerClick(Sender: TObject);
begin
Memo_Texte.PasteFromClipboard;
end;

A+ et bon développement

[cprogil]

Merci Chonchon, mais mon problème est de copier des images dans le presse-papier et non du texte, je n'arrive pas à trouver un exemple de copie soit d'un bitmap, soit d'un Jpeg

[cprogil]

J'ai trouvé la solution:
Il fallait que je mette dans la clause use clipbrd et non qclipbrd comme je l'avais trouvé dans la doc en ligne delphi.
Merci encore à ThomasB, ChonChon et aussi à Lung dont je viens de voir le message à l'instant et qui avais la solution