[Screenshot] Capture et enregistrement.Résolu

Question

Bonjour tout le monde.

Alors voilà je voudrais ordonner à mon programme de faire une capture d'écran. J'ai vu quelque part qu'il fallait utiliser cette api : keybd_event.
Est-ce que le fait de rentrer ce code suffit ou il faut autre chose :

keybd_event 44
// 44 pour la touche Impr Ecran.

?

De même je voudrais également faire en sorte que la capture s'enregistre dans un fichier, comment puis je faire cela ?

Merci bcp pour les futures réponses :) ...

ni69 · Answer

Slt kinkey_wizard !

T'es pa obligé de passer par keybd_event...
Utilise plutôt ce code...
Il faut juste que tu mettes le composant SaveDialog sur ta fiche.

var  
ImageBureau:TPicture;

------------

procedure TForm1.CaptureImage;
begin
 ImageBureau := TPicture.Create; //Création de l'image
 {On adapte les dimensions de l'image à celles de l'écran}
 ImageBureau.Bitmap.Width := Screen.Width;  ImageBureau.Bitmap.Height := Screen.Height;hauteur
  BitBlt(ImageBureau.Bitmap.Canvas.Handle,0,0,Screen.Width,Screen.Height,
          GetDC(GetDesktopWindow),0,0,SrcCopy);//capture l'image 
end

procedure TForm1.SauvegarderImage;
begin
  if SaveDialog1.Execute then
  ImageBureau.SaveToFile(SaveDialog1.FileName);
  ImageBureau.Free; // On libère l'image
end;


Voilà c tt !
Bonne Prog'
Nico

N'oubliez pas de cliquer sur Réponse acceptée lorsque la réponse vous convient !  :)

kinkey_wizard · Answer

Merci beaucoup à vous 2...
;) ...

lucn · Answer

rocedure TForm1.CaptureImage;
begin
ImageBureau := TPicture.Create; //Cr&#233;ation de l'image
{On adapte les dimensions de l'image &#224; celles de l'&#233;cran}
ImageBureau.Bitmap.Width := Screen.Width; ImageBureau.Bitmap.Height := Screen.Height;hauteur
BitBlt(ImageBureau.Bitmap.Canvas.Handle,0,0,Screen.Width,Screen.Height,
GetDC(GetDesktopWindow),0,0,SrcCopy);//capture l'image
end

procedure TForm1.SauvegarderImage;
begin
if SaveDialog1.Execute then
ImageBureau.SaveToFile(SaveDialog1.FileName);
ImageBureau.Free; // On lib&#232;re l'image
end;

Mon probl&#232;me: avec certains ordinateurs, la capture est une "image blanche" tout comme l'impression- feuille blanche ou parfois une ligne lat&#233;ral - (je demande que l'image soit sauv&#233;e comme fichier et qu'elle soit imprim&#233;e)
Quelqu'un aurait-il une explication pour pouvoir corriger ce "d&#233;faut"
un grand merci
lucien

[Screenshot] Capture et enregistrement.

3 réponses

Votre réponse

Discussions similaires