Structure (capture d'écran)

Nombre de messages : 7112 Localisation : 77 Date d'inscription : 29/11/2007

J'ai un problème que je n'arrive pas à cerner.
Voici un petit programme de capture d'écran, largement inspiré de l'ami sergeauze (voir les inutilitaires, capture d'écran).
On clique le point de départ (haut à gauche), puis on déplace la souris sur le point bas/droite et on relâche pour capturer la zone qui se retrouve dans le presse-papier. (je l'affiche ensuite dans IrfanView, pour voir)
Je voulais afficher en temps réel le rectangle délimiteur, mais ça ne marche pas, on ne passe jamais dans la branche de test correspondante, ligne 21, et je n'arrive pas à comprendre pourquoi... scratch

(encore un coup du timer ?)
Voici:

Code:: LABEL Timeur, Capture
DIM t,x1,y1,x,y
t = 0
WIDTH 0,0: HEIGHT 0,0: BORDER_HIDE 0: HIDE 0
IMAGE 2: WAIT 200
2D_IMAGE_COPY 2,0,0,SCREEN_X-1,SCREEN_Y-1: ' Totalité de l'écran dans Image 2
WAIT 200: SHOW 0
WIDTH 0,SCREEN_X-1: HEIGHT 0,SCREEN_y-1
PICTURE 1: WIDTH 1,SCREEN_X-1: HEIGHT 1,SCREEN_y-1
2D_TARGET_IS 1: 2D_PEN_DOT: ' pointillés
2D_IMAGE_PASTE 2,0,0
TIMER 3: TIMER_INTERVAL 3,300: ON_TIMER 3,Timeur
END
' ==============================================================================
Timeur:
x = MOUSE_X_POSITION(1): y = MOUSE_Y_POSITION(1)
IF MOUSE_LEFT_DOWN(1) = 1
   IF t = 0
   t = 1: x1 = x: y1 = y: RETURN: ' coin supérieur gauche
   ELSE
   2D_IMAGE_PASTE 2,0,0: ' régénère l'image <= ON NE VIENT JAMAIS ICI ! ===
   2D_LINE x1,y1,x,y1:2D_POLY_TO x,y:2D_POLY_TO x1,y:2D_POLY_TO x1,y1
   END_IF
ELSE
   IF MOUSE_LEFT_UP(1) = 1
   IF t = 1 THEN GOSUB Capture
   END_IF
END_IF
RETURN
' ==============================================================================
Capture:
TIMER_OFF 3
' 2D_PEN_SOLID
2D_LINE x1,y1,x,y1:2D_POLY_TO x,y:2D_POLY_TO x1,y:2D_POLY_TO x1,y1
2D_IMAGE_COPY 2,x1,y1,x,y: CLIPBOARD_COPY 2
EXECUTE "C:\Progra~2\Irfanv~1\i_view32.exe /clippaste": ' <=== A VOIR ===
TERMINATE

J’ai modifié TIMER_INTERVAL 3,3000
J’ai ajouté en ligne 21 message "je suis ici" pour voir

J’ai lancé le programme : le message ‘Je suis ici’ s’affiche, je vois aussi le rectangle en pointillé mais aussi le message d’erreur : Out of system ressources et puis ça coince !
Pour en sortir <ALT> + <F4>

Avec un TIMER_INTERVAL 3,500 et en ajoutant message "Terminé" avant le TERMINATE, voici ce que j’obtiens

Nombre de messages : 7112 Localisation : 77 Date d'inscription : 29/11/2007

Merci pour tes essais papydall, j'ai aussi essayé divers timings mais ça ne m'avance guère...
Le timer est toujours aussi délicat à manier...
L'idée était séduisante, mais c'est peut-être une fausse bonne idée.
En attendant je continuerai à utiliser Cropper ou SnippingTool !

Nombre de messages : 7112 Localisation : 77 Date d'inscription : 29/11/2007

Papydall (et les autres), si tu m'écoutes je crois que je tiens une solution, c'était un problème de Mouse_Left_Up et Mouse_Left_Down.
Je la mets ici, dans le post d'origine de sergeauze:
https://panoramic.1fr1.net/t3602p15-copie-d-ecran-accidentelle

JL35 a écrit:: Papydall (et les autres), si tu m'écoutes ...

Je ne fais que ça depuis mon inscription sur ce forum.
Bon, je me hâte lentement pour aller voir la solution que tu tiens.

» Capture écran
» Capture des replay TV
» DLL
» Capture d'écran
» Capture vidéo