[Ubuntu] Handle d'une application externe

Version imprimable

06/08/2017, 23h30
Ludelphi7

[Ubuntu] Handle d'une application externe

Bonjour,
Mon application Lazarus étant réduite et en "tache de fond", je souhaite obtenir et tracer, à l'aide d'un timer, le handle de l'application ayant le focus.
J'utilisais jadis getForeGroundWindow avec succès sur le couple WindowsXP/Delphi7.
Aujourd'hui, sur ubuntu 16.04 x64 et Lazarus 1.6, la fonction getForeGroundWindow me ramène invariablement la valeur 0, indépendamment de l'application ayant réellement le focus.
Pourquoi tant de haine ?
Ludo
06/08/2017, 23h47
Jipété
Salut,

Citation:

Envoyé par Ludelphi7

Aujourd'hui, sur ubuntu 16.04 x64 et Lazarus 1.6, la fonction getForeGroundWindow me ramène invariablement la valeur 0, indépendamment de l'application ayant réellement le focus.
Pourquoi tant de haine ?

Une piste en Debian 32 bits et Gtk2 : on trouve, dans le dossier d'install de Lazarus (habituellement /usr/share/Lazarus) num_version/lcl/interfaces/gtk2/ dans le fichier gtk2winapi.inc ce bout de code :
Code:

1 2 3 4 5 6 7 function TGtk2WidgetSet.GetForegroundWindow: HWND; begin Result:=0; {$IFDEF HASX} Result:=X11GetActiveWindow; {$ENDIF} end;
Il faudrait voir si HASX est défini.

Et X11GetActiveWindow est codé dans gtk2widgetset.inc, au même endroit que l'autre.
07/08/2017, 07h17
jurassic pork

hello,
j'ai le même problème que toi Ludelphi7 (Lubuntu 16.04 64 bits Lazarus 1.8RC3 Gtk2 ) .
J'ai "débogué" mon programme (je suis arrivé au code de Jipété et j'appelle bien ensuite X11GetActiveWindow) et je pense alors que le problème se trouve dans l'appel de la fonction X : XGetWindowProperty
Comme je ne suis pas un spécialiste de X11 , j'ai posé le problème dans le forum officiel de Lazarus.
Pour suivre ce fil de discussion c'est ici

Ami calmant, J.P (sans T)

Salut salut,

Comme je suis curieux de ce genre de choses, j'ai tenté un simple
Code:

1 2 3 4 procedure TMainForm.btn4TestsClick(Sender: TObject); begin Caption := IntToStr(GetForegroundWindow); end;
et ça m'a affiché une valeur que je considère comme valide (sur 9 chiffres, quand même [ex. : 141353912] et qui change), dans la mesure où j'ai suivi l'exécution en pas-à-pas et que ça a été bon tout le temps (Valid = True, etc.)

Mais moi je me traîne encore avec un vieux Debian 7 / 32 bits et un Laz 1.4.
Ceci explique peut-être cela.

De ton autre post, J.P :

Citation:

The function XGetWindowProperty return 0 in the ActualFormatReturn variable which is not good ( <> 32 ) .

En pas-à-pas je l'ai vue à 32 cette valeur. Hélas, aller se traîner dans fpcsrc/.../xlib.pp n'apporte rien à part une fonction qui se mord la queue et que je ne sais pas interpréter :
Code:

1 2 3 4 5 6 function XGetWindowProperty(para1: PDisplay; para2: TWindow; para3: TAtom; para4: clong; para5: clong; para6: Boolean; para7: TAtom; para8: PAtom; para9: Pcint; para10: Pculong; para11: Pculong; para12: PPcuchar): cint; begin Result := XGetWindowProperty(para1,para2,para3,para4,para5,ord(para6),para7,para8,para9,para10,para11,para12); end;
:koi:

08/08/2017, 18h39
Ludelphi7

Citation:

Envoyé par jurassic pork

hello,
j'ai le même problème que toi Ludelphi7 (Lubuntu 16.04 64 bits Lazarus 1.8RC3 Gtk2 ) .
J'ai "débogué" mon programme (je suis arrivé au code de Jipété et j'appelle bien ensuite X11GetActiveWindow) et je pense alors que le problème se trouve dans l'appel de la fonction X : XGetWindowProperty
Comme je ne suis pas un spécialiste de X11 , j'ai posé le problème dans le forum officiel de Lazarus.
Pour suivre ce fil de discussion c'est ici

Ami calmant, J.P (sans T)

Hi !
J'ai tenté de suivre le fil et testé le changement de type de variable proposé.
a) je suis réellement perdu dans X11 -> mon témoignage est sans valeur si j'ai fait mauvaise manip :-(
b) résultat fixe = 0 !
Je reste à l'écoute, ludo
08/08/2017, 20h28
Jipété

Citation:

Envoyé par Ludelphi7

J'ai tenté de suivre le fil et testé le changement de type de variable proposé.

En ce qui me concerne, comme ça fonctionnait avant, ça continue à fonctionner après, ouf !

Mais je rappelle que je suis (encore) en 32 bits !

hello,

Citation:

Envoyé par Ludelphi7

Hi !
J'ai tenté de suivre le fil et testé le changement de type de variable proposé.
a) je suis réellement perdu dans X11 -> mon témoignage est sans valeur si j'ai fait mauvaise manip :-(
b) résultat fixe = 0 !
Je reste à l'écoute, ludo

C'est étrange que la modification que j'ai indiquée dans le fil de discussion du forum officiel Lazarus ne fonctionne pas chez toi.
Voici ce que j'ai modifié dans le fichier gtk2widgetSet.inc (qui est chez moi en /usr/share/lazarus/1.8.0RC3/lcl/interfaces/gtk2 ) :
Code:

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 33 34 35 36 37 38 39 40 41 function TGtk2WidgetSet.X11GetActiveWindow: HWND; var Display: PDisplay; RootWin, ResultWindow: TWindow; WMAtom: TAtom; ActualTypeReturn: TAtom; format_ret: integer; nitems_ret: culong; bytes_after_ret: culong; prop: Pcuchar; // ActualFormatReturn: LongInt; // NItemsReturn, BytesAfterReturn: Cardinal; // Ptr: PByte; ActualFormatReturn: integer; NItemsReturn, BytesAfterReturn: culong; Ptr: Pcuchar; Valid: Boolean; begin Result := 0; Display := gdk_x11_get_default_xdisplay; if Display = nil then Exit; RootWin := gdk_x11_get_default_root_xwindow; WMAtom := XInternAtom(Display,'_NET_ACTIVE_WINDOW', False); Valid:=XGetWindowProperty(Display, RootWin, WMAtom, 0, 1, False, AnyPropertyType, @ActualTypeReturn, @ActualFormatReturn, @NItemsReturn, @BytesAfterReturn, @Ptr)=0; if Valid then try if (ActualTypeReturn = None) or (ActualFormatReturn <> 32) or not Assigned(Ptr) then Valid := False; if Valid then ResultWindow := PWindow(Ptr)^; finally if Assigned(Ptr) then XFree(Ptr); end; if Valid then Result := {%H-}HWND(gdk_window_foreign_new(ResultWindow)); end;
Avec cette modification j'ai la variable ActualFormatReturn qui est bien à 32 maintenant.
As-tu fait un point d'arrêt dans cette zone pour voir si tu passes dedans ? Quelle valeur a ActualFormatReturn après exécution du XGetWindowProperty ?
es-tu bien en gtk2 ?
et merci à Jipété d'avoir testé cette modification qui me répond à ma question :

Citation:

but is it good in all linux O.S ? (32 or 64 bits) ?

Ami calmant, J.P

09/08/2017, 18h18
Ludelphi7
Bonjour,
J'ai fait un copié/collé de ta modif sur le fichier qui se trouve chez moi dans /usr/lib/lazarus/1.6/lcl/interfaces/gtk2/gtk2widgetset.inc et non dans usr/share/... Pôw grave ;-)

Ca ne marche pas, toujours un retour de valeur=0. J'ai mis un point d'arrêt et je passe bien dans TGtk2widgetset.X11GetActiveWindow modifié après appel de la fonction.
Pour contrôle, je fais appel aussi à GetActiveWindow (dans MainForm, juste avant l'appel GetForegroundWindow)) qui me renvoie bien mon handle d'appli lorsque mon application a le focus, 0 dans le cas contraire = tout normal.

le code hyper compliqué en cadeau ahahahah !
Code:

1 2 3 4 5 procedure TForm1.Timer1Timer(Sender: TObject); // le timer appelle la fonction toutes les secondes begin memo1.Lines.Add(format('%d %d',[getActiveWindow,getForegroundWindow])); end;
La sortie du Memo donne ceci :
12624752 0 // mon appli est active
12624752 0
0 0 // j'ai cliqué sur Mozilla ou ailleurs
0 0
12624752 0 // j'ai cliqué sur mon appli Laz
etc...

Pour info, je suis en Laz 1.6 : c'est là le pb ?
ludo

Re-moi !
J'ai investigué un peu la fonction TGtk2WidgetSet.X11GetActiveWindow comme proposé dans ton message.
En fait le soucis apparait très vite à l'analyse de la valeur de Display :
Code:

1 2 3 4 5 6 7 8 9 begin Result := 0; // Display = {} -> nil , mais normal à cette étape Display := gdk_x11_get_default_xdisplay; // après le passage ici Display n'est toujours pas défini : Display = {} if Display = nil then Exit; // Display = {} -> je sors donc rapidement de la fonction ...
J'arrive pas à rentrer en pas à pas dans gdk_x11_get_default_xdisplay (cdecl;external)
Comment défini t'on le Display dans gtk2 ?

ludo

1 pièce(s) jointe(s)

Citation:

Envoyé par Ludelphi7

J'arrive pas à rentrer en pas à pas dans gdk_x11_get_default_xdisplay (cdecl;external)

On ne peut pas : on n'a pas les sources, c'est comme si tu voulais rentrer dans une dll.

En ce qui me concerne, voilà ce que je vois, en pas-à-pas, avec la souris sur Display de la ligne if Display :
Pièce jointe 301870

Citation:

Envoyé par Ludelphi7

Comment définit-on le Display dans gtk2 ?

Je ne sais pas encore, mais, oui, ça fait penser à un truc pas défini.

Sauf qu'en général on ne va pas trifouiller là-dedans...

Que raconte xrandr ? Chez moi par ex., avec une vieille Ati Radeon :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
# xrandr
Screen 0: minimum 320 x 200, current 1920 x 1200, maximum 8192 x 8192
S-video disconnected (normal left inverted right x axis y axis)
DVI-0 disconnected (normal left inverted right x axis y axis)
DVI-1 connected 1920x1200+0+0 (normal left inverted right x axis y axis) 519mm x 324mm
   1920x1200      60.0*+
   1600x1200      60.0  
   1680x1050      60.0  
   1280x1024      76.0     75.0     72.0     60.0  
   1440x900       75.0     59.9  
   1152x864       75.0  
   1024x768       75.1     70.1     60.0  
   832x624        74.6  
   800x600        72.2     75.0     60.3  
   640x480        72.8     75.0     66.7     60.0  
   720x400        70.1  
   640x350        70.1

Et deux autres commandes :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
# lspci | grep ATI
20:00.0 VGA compatible controller: Advanced Micro Devices [AMD] nee ATI RV710 [Radeon HD 4550]
# dmesg | grep 20:00.0
[    0.194596] pci 0000:20:00.0: [1002:9540] type 00 class 0x030000
[    0.194613] pci 0000:20:00.0: reg 10: [mem 0xe0000000-0xefffffff 64bit pref]
[    0.194627] pci 0000:20:00.0: reg 18: [mem 0xf0100000-0xf010ffff 64bit]
[    0.194636] pci 0000:20:00.0: reg 20: [io  0x1100-0x11ff]
[    0.194653] pci 0000:20:00.0: reg 30: [mem 0x00000000-0x0001ffff pref]
[    0.194694] pci 0000:20:00.0: supports D1 D2
[    0.201735] vgaarb: device added: PCI:0000:20:00.0,decodes=io+mem,owns=io+mem,locks=none
[    0.201738] vgaarb: bridge control possible 0000:20:00.0
[    0.247697] pci 0000:20:00.0: BAR 6: assigned [mem 0xf0120000-0xf013ffff pref]
[    0.248216] pci 0000:20:00.0: Boot video device
[    2.423166] radeon 0000:20:00.0: VRAM: 512M 0x0000000000000000 - 0x000000001FFFFFFF (512M used)
[    2.423168] radeon 0000:20:00.0: GTT: 512M 0x0000000020000000 - 0x000000003FFFFFFF
[    2.423268] radeon 0000:20:00.0: irq 50 for MSI/MSI-X
[    2.423277] radeon 0000:20:00.0: radeon: using MSI.
[    3.061993] radeon 0000:20:00.0: WB enabled
[    3.061997] radeon 0000:20:00.0: fence driver on ring 0 use gpu addr 0x0000000020000c00 and cpu addr 0xffda1c00
[    3.062001] radeon 0000:20:00.0: fence driver on ring 3 use gpu addr 0x0000000020000c0c and cpu addr 0xffda1c0c
[    3.461941] radeon 0000:20:00.0: fb0: radeondrmfb frame buffer device
[    3.461943] radeon 0000:20:00.0: registered panic notifier
[    3.461963] [drm] Initialized radeon 2.29.0 20080528 for 0000:20:00.0 on minor 0

Après, pour dépatouiller ça, je crois que dans un premier temps ça relève plus de Linux que de Pascal/Lazarus : faudra(it) vérifier que tout est ok du côté de X et là, franchement c'est pas ma tasse de thé...

1 pièce(s) jointe(s)

hello,
Citation:
Envoyé par Ludelphi7
Re-moi !
J'ai investigué un peu la fonction TGtk2WidgetSet.X11GetActiveWindow comme proposé dans ton message.
En fait le soucis apparait très vite à l'analyse de la valeur de Display :
Code:

1 2 3 4 5 6 7 8 9 begin Result := 0; // Display = {} -> nil , mais normal à cette étape Display := gdk_x11_get_default_xdisplay; // après le passage ici Display n'est toujours pas défini : Display = {} if Display = nil then Exit; // Display = {} -> je sors donc rapidement de la fonction ...
ludo
as-tu bien une variable DISPLAY dans ton environnement X ?
Dans une fenêtre terminal lance la commande env. Tu devrais voir une variable DISPLAY. Moi j'ai :

Code:

DISPLAY=:0.0

Sinon dis-nous ce que tu obtiens pour Desktop environment , si tu lances la commande hardinfo

Moi j'ai ceci :
Pièce jointe 301895

Ami calmant, J.P

10/08/2017, 18h04
Ludelphi7

1 pièce(s) jointe(s)

Bonjour,
Sur la commande env j'obtiens :
DISPLAY=:0

Pour hardinfo :
Pièce jointe 302114

ludo
10/08/2017, 19h34
Jipété

Citation:

Envoyé par Ludelphi7

Bonjour,
Sur la commande env j'obtiens :
DISPLAY=:0

Moi aussi, donc faut chercher ailleurs...
11/08/2017, 00h57
jurassic pork

1 pièce(s) jointe(s)

hello,
bon je viens d'essayer sous un autre Ubuntu (14.04) et avec Unity comme D.E . Cela fonctionne quand je mets ma modification. J'ai bien aussi la variable DISPLAY=:0

Pièce jointe 302186

Soit tu as un paquet Ubuntu absent par rapport à ma configuration (du genre celles qui concernent gdk2pixbuf, gtk2, gdk2, glib2, Pango ) , soit il y a un souci ailleurs du genre avec la carte vidéo mais cela devient difficile à investiguer.

Ami calmant, J.P