Discussion :

[ChPr]

Bonjour à toutes et à tous,

Soit une application "lambda" présente en premier plan sur l'écran de mon ordinateur. Dans un application que je souhaite créer et qui tournerait donc en second plan, je voudrais pouvoir copier une partie de l'image que présente l'application "lambda", cette partie étant délimitée par deux positions de la souris

Cela exige, de la part de mon application, d'être capable de détecter la position de la souris dans l'application "lambda" et d'être capable de copier l'image délimitée par les positions de la souris.

Est-ce possible ? Si oui, par quel biais aborder le problème ? Est-ce la gestion des messages ? (ça fait une bonne décennie que je n'ai pas jouer avec cela )

Cordialement.

Pierre

[Andnotor]

Sous Windows,

Pour la souris, tu peux le faire en interceptant ses messages à l'aide d'un hook ou par Raw Input.

Hook :
Est contenu dans une DLL qui sera injectée dans le processus cible (voire tous les processus si le ThreadId est non défini) et s'installe par SetWindowsHookEx en spécifiant WH_MOUSE (évite les hooks de bas niveau (WH_MOUSE_LL) qui ne sont plus vraiment supportés).
Le principe est synchrone, l'information doit par conséquent être traitée très rapidement sous peine de pénaliser le système complet (cf. ThreadId ci-dessus). Le mieux dans le cas présent est de simplement router le message par PostMessage vers ton application.

Raw Input :
Une fenêtre de l'application s'enregistre dans la chaîne de notification par RegisterRawInputDevices. Elle reçoit ensuite l'information par message WM_INPUT.
Le principe est asynchrone.


L'image peut ensuite être copiée en récupérant le device context de la source (GetDC) et la dupliquer sur un DC cible par BitBlt.

[ChPr]

Merci Andnotor pour ces suggestions. J'ai oublié de préciser que je souhaite que cela fonctionne aussi sous Linux.

Est-ce le cas pour ce que tu me suggères ?

Cordialement.

Pierre

[Jipété]

Sous Windows,

Pour la souris, tu peux le faire en interceptant ses messages à l'aide d'un hook ou par Raw Input.

Hook :
Est contenu dans une DLL [...]
--snip--

J'ai oublié de préciser que je souhaite que cela fonctionne aussi sous Linux.

Est-ce le cas pour ce que tu me suggères ?

Surement pas, non ! Les dll's sont inconnues dans cet environnement,

En ce qui me concerne, je fais une copie d'écran classique de tout le bureau, que je fais ensuite afficher par-dessus tout ce qui y est affiché, et c'est là-dessus que je vais détecter puis recopier le rectangle délimité par les mouvements de la souris.

[ChPr]

... En ce qui me concerne, je fais une copie d'écran classique de tout le bureau ...

Ça, c'est la touche "Imp.écr.Syst", oui, non ?

... que je fais ensuite afficher par-dessus tout ce qui y est affiché ...

Comment fais-tu ? C'est une touche, une fonction ?

Cordialement.

Pierre

[Jipété]

Ça, c'est la touche "Imp.écr.Syst", oui, non ?

Pas du tout !
Je fais ça par code (mais je ne l'ai pas sous la main, là), et ça génère un TBitmap (un grand classique facilement trouvable sur le web).

Comment fais-tu ? C'est une touche, une fonction ?

C'est une fiche sans bordures, sans menus, sans caption, sur laquelle se trouve un TImage aligné avec alClient et chargé avec le bitmap provenant de la ligne précédente, la fiche étant positionnée par-dessus tout le monde.

[ChPr]

Ok, merci, j'ai compris.

Cordialement.

Pierre

[jurassic pork]

hello,
ce que tu veux faire ressemble fortement à une capture d'écran de région sélectionnée. Dans le forum principal de Lazarus, il y a plusieurs personnes qui ont mis à disposition un projet pour réaliser cela (aradeonas, howardpc) voir ici

Ami calmant, J.P (sans T)

[ChPr]

Merci jurassic pork,

Je vais regarder cela.

Cordialement.

Pierre

[ChPr]

Dans les exemples que vous m'avez donnés, la position de la souris est prise dans l'image copiée, c'est-à-dire non pas dans l’image originale de l'application tierce. Ce que je souhaite est vraiment avoir la position de la souris dans l'application tierce.

Avec la petite application suivante, je récupère la position de la souris dans mon application. Je voudrais étendre cette possibilité à une application tierce.

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
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
uses
  Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs,
  Messages, LMessages;
 
type
 
  { TForm1 }
 
  TForm1 = class(TForm)
  private
    { private declarations }
    procedure Souris(var message: TMessage); message WM_LBUTTONDOWN;
  public
    { public declarations }
  end;
 
var
  Form1: TForm1;
 
implementation
 
{$R *.lfm}
 
procedure TForm1.Souris(var message: TMessage);
var
  x, y: Integer;
begin
  x:= message.wParam;
  y:= message.lParam;
end;
 
end.

Windows et Linux (je suppose) placent dans une pile tous les évènements reçus. Avec l'exemple ci-dessus, j'intercepte ceux relatifs à ma proppre application. N'y a-t-il pas moyen d'intercepter tous les évènements, d'où qu'ils viennent ?

Cordialement.

Pierre

[BeanzMaster]

Salut

Pour détecter la position de la souris à l'écran il existe la procedure GetCursorPos(var Pos : TPoint) dans l'unité LCLIntf. Tu peux la placer dans un timer pour récupérer les informations en temps réel
Ensuite, il te faudras récupérer la position et les dimensions de ton application tierce.
J'ai trouvé ça sur le forum de free pascal pour les "process".
- Pour windows : https://forum.lazarus.freepascal.org...,37493.15.html
- Pour linux : https://forum.lazarus.freepascal.org...?topic=12107.0.

Après comment récupérer la position et les dimensions, de celle-ci je n'en ai aucune idée.

A+

[Jipété]

Bonsoir,

il me semble détecter un changement dans la demande, entre le post d'origine

je voudrais pouvoir copier une partie de l'image que présente l'application "lambda", cette partie étant délimitée par deux positions de la souris

et ce post, où la cible évolue :

Ce que je souhaite est vraiment avoir la position de la souris dans l'application tierce.

Ça change tout...

Faudrait pouvoir trouver la position de l'application tierce, donc, et là, pas la moindre idée, désolé.

[ChPr]

[QUOTE=Jipété;10224979]Bonsoir,

il me semble détecter un changement dans la demande, entre le post d'origine
...

Ça change tout...

Non, dès le début j'ai dit :

...Cela exige, de la part de mon application, d'être capable de détecter la position de la souris dans l'application "lambda" ...

Par ailleurs, je peux connaître la position et les dimensions de l'application tierce. Ce qu'il me faut, est de connaître soit la position de la souris dans cette application, soit :

sa position sur l'écran. Cette dernière proposition est peut-être différente et amène peut-être une solution ?

Cordialement.

Pierre

Cordialement.

Pierre

[Jipété]

Yep !

Par ailleurs, je peux connaître la position et les dimensions de l'application tierce.

Hé bien, si tu connais ça, ça te donne les coordonnées de l'appli tierce dans l'image "copie d'écran du bureau".
Il te suffira de récupérer les coordonnées de la souris au MouseMove sur cette image puis deux bêtes soustractions te donneront les coordonnées de la souris dans (l'image de) l'appli tierce. Non ?

Attention, il va y avoir du sport (et de la lecture, et des tests) avec ClientToScreen et ScreenToClient, dont je ne me souviens jamais dans quel sens qui fait quoi, et il y en a d'autres, je crois...

PS : ton dernier post a perdu un "[/QUOTE]" dans la bataille avec l'éditeur,

[ChPr]

... Pour détecter la position de la souris à l'écran il existe la procedure GetCursorPos(var Pos : TPoint) dans l'unité LCLIntf. Tu peux la placer dans un timer pour récupérer les informations en temps réel ...

Je pensais bêtement que cette fonction n'était valable qu'à l'intérieur de mon application. Je viens d'essayer et effectivement, je peux avoir la position de la souris sur tout l'écran.

C'est un début. Bon, ça, je ne l'avait pas précisé (désolé), mais ce que 'il me faudrait aussi connaître, c'est la position des boutons de la souris.

Pour être plus précis, ce que je souhaite est de connaître la position de la souris au moment où j'appuie sur la touche gauche et au moment où je relâche cette touche. Une fonction du genre GetMouseState(...) que je n'ai pas trouvée.

J'ai trouvé : GetKeyShiftState, mais dans le petit programme suivant, autant lorsque je teste les touches Shift, Alt, Cntrl, ça fonctionne que si je teste les touches de la souris, cela ne fonctionne pas !

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 TForm1.Timer1Timer(Sender: TObject);
var
  PosC: TPoint;
  State: TShiftState;
begin
  GetCursorPos(PosC);
  State:= GetKeyShiftState;
  Edit1.Text:= IntToStr(PosC.x);
  Edit2.Text:= IntToStr(PosC.y);
  if ssLeft in State then
    Edit3.Text:= 'DOWN'
  else
    Edit3.Text:= 'UP';
end;

Cordialement.

Pierre

[ChPr]

Bon, en fait, c'est normal que GetKeyShiftState ne renvoie pas d'informations relatives à la souris car dans cette procédure, les touches de la souris ne sont pas testées.

J'ai donc créé ma propre fonction GetCursorState telle que ci-après :

Code :

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

1
2
3
4
5
6
7
8
9
10
function GetCursorState: TShiftState;
begin
  Result := [];
  if (GetKeyState(VK_LBUTTON) and $8000) <> 0 then
    Include(Result, ssLeft);
  if (GetKeyState(VK_MBUTTON) and $8000) <> 0 then
    Include(Result, ssMiddle);
  if (GetKeyState(VK_RBUTTON) and $8000) <> 0 then
    Include(Result, ssRight);
end;

Je l'ai testée sous WIndows et Linux : ça fonctionne

Bon, avec ça j'espère que je vais me sortir de mon problème.

Cordialement.

Pierre

[Jipété]

Bon, en fait, c'est normal que GetKeyShiftState ne renvoie pas d'informations relatives à la souris car dans cette procédure, les touches de la souris ne sont pas testées.

J'ai donc créé ma propre fonction GetCursorState telle que ci-après :

Mais pourquoi réinventer la roue ?
Il existe MouseDown et MouseUp, qui remontent la position, le bouton appuyé et si une touche était pressée pendant le clic...

[ChPr]

Mais pourquoi réinventer la roue ?
Il existe MouseDown et MouseUp, qui remontent la position, le bouton appuyé et si une touche était pressée pendant le clic...

Je dois être un peu (beaucoup) neu-neu en ce moment. Peux-tu me donner un exemple d'utilisation de MouseDown me retournant les coordonnées de la souris au moment ou j'appuie sur sa touche gauche.

Cordialement.

Pierre

[BeanzMaster]

Je dois être un peu (beaucoup) neu-neu en ce moment. Peux-tu me donner un exemple d'utilisation de MouseDown me retournant les coordonnées de la souris au moment ou j'appuie sur sa touche gauche.

Cordialement.

Pierre

Non, il faut faire comme je te l'ai expliqué plus haut. Un timer tu récupères les coordonnées de la souris sur l'écran et vu que tu connais la position et les dimensions de ta fenêtre tierce il est simple de déduire la position de la souris dans celle-ci

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
17
18
19
20
21
22
23
24
25
26
Uses LCLIntf;
 
Timer1.Interval := 50;
 
Procedure TFBase.Timer1Timer(Sender : TObject);
Var
 mp : TPoint;
 AppRect : TRect;
 OriginApp : TPoint;
 WidthApp, HeightApp : Longint;
 MousePosInApp:TPoint;
Begin
 WidthApp := 800;
 HeightApp:=400;
 OriginApp.Create(250,250);
 AppRect.Create(OriginApp,WidthApp, HeightApp);
 GetCursorPos(mp);
 if AppRect.Contains(mp) then
 begin
   MousePosInApp.X := mp.X - OriginApp.X;
   MousePosInApp.Y := mp.Y - OriginApp.Y;
   Label1.Caption := 'X : '+MousePosInApp.x.ToString+' Y : '+MousePosInApp.y.ToString;
 End
 else
   Label1.Caption := 'Out';
end;

A+

[ChPr]

Merci BeanzMaster pour ce calcul des positions.

En fait, mon problème est à la fois plus simple et plus compliqué qu'il n'y paraît.

Il est plus simple car je ne cherche que la distance entre deux pointages de la souris -> dX et dY,
Il est plus compliqué car cela met en œuvre les moments où la touche gauche de la souris est appuyée puis relâchée.

Autrement dit, ce que je souhaite est de connaître la position (X0, Y0) au moment où j'appuie sur la touche gauche et la position (X1, Y1) au moment où je relâche la touche.

C'est pourquoi la mise en œuvre des deux fonctions MouseDown et MouseUp dont Jipété parle m'intéresse.

Cordialement.

Pierre