comment réaliser + de 24 capture d'ecran/ sec

Question

salut a tous

voila je sui entrain de réaliser un pti prog ki fai environ 24 screenshot/ sec pui je converti le tou en video.

Jai essayer de simuler la touche imprime ecran pui d'enregistré limage en jpeg ms ceci est bien tro long. Je n'arrive qu'a faire 5 ou 7 image par sec.

je cherche une autre methode plus rapide pour réaliser des screen shot et les enregistrer en jpeg ou en tga.
merci a tous :)

Pollux84 · Answer

Tu peu faire un impr ecran avec sa le code n'est pas de moi je les recups sur se site jsais pas si ca pourra t'aider je trouve que les screen shot sont moin propre avec cette fonction que avec  keybpevent() 
tshusss

-pour l'enregistrement il te faut mettre  un SaveDialog sur ta fiche (dans l'onglet dialog de la pallette).

var ImageBureau:TPicture;

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


// ENREGISTREMENT DE L IMAGE ac SAVE DIALOG
ImageBureau.SaveToFile(edit1.text + '\' + IntToStr(fotonumber) + '.bmp');
ImageBureau.Free; // On lib&#232;re l'image

MIAM

Pollux84 · Answer

oops en aite ya pas bsoin du save dialog la dsl ptite erreur , on peu remplacer edit1.text + '\' + IntToStr(fotonumber) + '.bmp' par c:	onimage.bmp

MIAM

Comment réaliser + de 24 capture d'ecran/ sec

2 réponses

Votre réponse

Discussions similaires