Discussion :

[Nebulix]

Bonjour
J'ai écrit la procedure ci-dessous pour pouvoir capturer l'écran, quoi qu'il contienne.

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
procedure copiecran(s:string);
var  aBitmap : TBitmap; Jp : TjpegImage;
begin
aBitmap := TBitmap.Create;
Jp := TjpegImage.Create;
//clipboard.clear;
keybd_event(44{VK_SNAPSHOT},0,0,0);//    Capture d'ecran du Bureau
if Clipboard.HasFormat(cf_BitMap) then// si le clipBoard contient un bitmap >> dans Image1
aBitmap.LoadFromClipboardFormat(cf_BitMap,ClipBoard.GetAsHandle(cf_Bitmap),0);
jp.Assign(abitmap);
jp.CompressionQuality := 100;{Qualite {Nombre de 1 a 100};
jp.SaveToFile(s);
abitmap.free;  jp.Free;
end;

çà marche MAIS
je n'enregistre pas l'écran tel qu'il est au moment où j'appelle la fonction mais celui capturé A L'APPEL PRECEDENT !
si j'execute le "clipboard.clear;", j'enregistre un fichier vide
J'ai essayé de répéter chacune des instructions, sans résultat.
Je peux toujours faire deux fois la manoeuvre qui appelle la fonction, mais c'est assez pénible, et parfois j'oublie et je perds des données
Quelqu'un a-t-il une solution ? Merci

[ero-sennin]

Salut,

Je n'ai pas trop regardé la code, mais est-ce que tu es allé voir dans la FAQ ?
Il y a un code tout fait ...

[Nebulix]

Merci !
J'aurais bien aimé comprendre pourquoi çà ne marchait pas, car il me semble que j'avais eu le même genre de problèmes (récupérer le contenu du "clipboard") dans d'autres circonstances.
Si quelqu'un a une idée ...

[Andnotor]

Tout simplement parce que le traitement du clavier n'est pas prioritaire.

Au moment où tu lis le clipboard, VK_SNAPSHOT n'a pas encore été exécuté. Keybd_Event n'a fait qu'ajouter une entrée dans le buffer de clavier sans pour autant assurer que la commande sera traitée immédiatement (peut être qu'un Application.ProcessMessages suffirait). Tu récupères donc l'image précédente .

[Nebulix]

Tout simplement parce que le traitement du clavier n'est pas prioritaire.

Au moment où tu lis le clipboard, VK_SNAPSHOT n'a pas encore été exécuté. Keybd_Event n'a fait qu'ajouter une entrée dans le buffer de clavier sans pour autant assurer que la commande sera traitée immédiatement (peut être qu'un Application.ProcessMessages suffirait). Tu récupères donc l'image précédente .

Cà marche en effet. Merci !
Quand j'ai commencé à programmer, les ordinateurs étaient déterministes, c'est là que je vois comme le temps passe