WebBrowser OnMouseMove impossible

Version imprimable

11/01/2017, 12h56
bauschr

WebBrowser OnMouseMove impossible

Bonjour.
J'utilise un Twebbrowser pour afficher une page de geoportail. Je voudrais déplacer la carte de façon précise et automatique. Pour ceci je pensais simuler le déplacement de la souris (send message) mais il semble que ce soit impossible. Qui a une piste ?
Merci.

Une partie de la solution?

Voilà ce que j'ai écrit :
Position = les coordonnées écran de mon Webbrowser (Tpoint)
j = la longueur de mon déplacement (plus petit que la largeur du Webbrowser)

Pour déplacer de gauche à droite en réponse a un bouton:
Code:

1 2 3 4 5 6 7 SetCursorPos(position.X,position.y); mouse_event(MOUSEEVENTF_LEFTDOWN, 0, 0, 0, 0); for i:=position1.X to position1.X+j do begin SetCursorPos(i,position1.y); end; mouse_event(MOUSEEVENTF_LEFTUP, 0, 0, 0, 0);
j'ai essayé sans succès mouse_event(MOUSEEVENTF_MOVE,j,0,0,0) à la place de la boucle

30/01/2017, 10h25
Invité

Tu peux pas jouer avec les positions des scrollbars ?
30/01/2017, 10h35
Andnotor

C'est bien avec mouse_event(MOUSEEVENTF_MOVE) qu'il faut notifier le mouvement. Il n'y a pas de message souris avec SetCursorPos. Attention cependant, le mouvement réel en relatif dépend aussi de l’accélération de la souris définie au niveau OS. Pour de la précision, il faut passer par des coordonnées absolues mouse_event(MOUSEEVENTF_ABSOLUTE or MOUSEEVENTF_MOVE) et calculer la position en mickey et non en pixel.

Pour un mouvement de 100px :

Code:

Mouse_Event(MOUSEEVENTF_ABSOLUTE or MOUSEEVENTF_MOVE, (Mouse.CursorPos.X +100) *65535 div screen.Width, Mouse.CursorPos.Y *65535 div screen.Height, 0, 0);

En mickey, la position 0/0 correspond au coin supérieur gauche de l'écran principal et 65535/65535 au coin inférieur droit. Dans un environnement multi-moniteur, il faut encore spécifier MOUSEEVENTF_VIRTUALDESK pour que la position 0/0 corresponde au coin supérieur gauche du bureau et évidemment 65535/65535 à son coin inférieur droit.
31/01/2017, 00h31
bauschr

Citation:

Envoyé par retwas

Tu peux pas jouer avec les positions des scrollbars ?

Merci pour cette réponse mais la page s'ouvre sans scrollbars.
31/01/2017, 00h39
bauschr

Citation:

Envoyé par Andnotor

C'est bien avec mouse_event(MOUSEEVENTF_MOVE) qu'il faut notifier le mouvement. Il n'y a pas de message souris avec SetCursorPos. Attention cependant, le mouvement réel en relatif dépend aussi de l’accélération de la souris définie au niveau OS. Pour de la précision, il faut passer par des coordonnées absolues mouse_event(MOUSEEVENTF_ABSOLUTE or MOUSEEVENTF_MOVE) et calculer la position en mickey et non en pixel.

Pour un mouvement de 100px :

Code:

Mouse_Event(MOUSEEVENTF_ABSOLUTE or MOUSEEVENTF_MOVE, (Mouse.CursorPos.X +100) *65535 div screen.Width, Mouse.CursorPos.Y *65535 div screen.Height, 0, 0);

En mickey, la position 0/0 correspond au coin supérieur gauche de l'écran principal et 65535/65535 au coin inférieur droit. Dans un environnement multi-moniteur, il faut encore spécifier MOUSEEVENTF_VIRTUALDESK pour que la position 0/0 corresponde au coin supérieur gauche du bureau et évidemment 65535/65535 à son coin inférieur droit.

Merci, maintenant ça marche avec : Mouse_Event(MOUSEEVENTF_ABSOLUTE or MOUSEEVENTF_MOVE...
J'utilise deux écran et j'ai donc essayé MOUSEEVENTF_VIRTUALDESK j'ai alors une erreur à la compilation (identificateur non déclaré). Cependant les deux écrans ne semblent pas poser de problèmes. J'ajoute qu'il ne faut oublier de mettre le focus sur le webbrowser (mon bouton de commande est sur une autre form).
31/01/2017, 10h06
Andnotor

Citation:

Envoyé par bauschr

J'utilise deux écran et j'ai donc essayé MOUSEEVENTF_VIRTUALDESK j'ai alors une erreur à la compilation (identificateur non déclaré).

const MOUSEEVENTF_VIRTUALDESK = $4000;

Citation:

Envoyé par bauschr

Cependant les deux écrans ne semblent pas poser de problèmes.

Ca ne pose pas de problème tant que le déplacement est inférieur ou égal à 65535 mickeys ;)
01/02/2017, 12h48
bauschr

Réaction différente selon le site

Bonjour.
Je pensais le problème résolu mais jusqu'ici la page "géoportail" que j'ouvrais avec le webbrowser était une page personnelle (http://chateau.branlant.free.fr/copi...cementv20.html).
En utilisant le site de géoportail (https://www.geoportail.gouv.fr/) il est impossible de déplacer une carte avec la souris et donc impossible d'utiliser "mouse_event(MOUSEEVENTF_MOVE)".
Quelqu'un a une piste ?
01/02/2017, 21h00
yvslms

Citation:

Envoyé par bauschr

Bonjour.
J'utilise un Twebbrowser pour afficher une page de geoportail. Je voudrais déplacer la carte de façon précise et automatique. Pour ceci je pensais simuler le déplacement de la souris (send message) mais il semble que ce soit impossible. Qui a une piste ?
Merci.

Une autre piste : ne serait-il pas plus logique d'utiliser l'API Geoportail :
http://api.ign.fr/accueil
qui permet justement de déplacer la carte, zoomer etc.

Reste à piloter cette api conçue pour être utilisée en Javascript ou en Java à partir d'un site, en utilisant les composants idoines....
Voir aussi peut-être TMapView avec Google Maps et
http://api.ign.fr/jsp/site/Portal.js...&dossier_id=74
02/02/2017, 22h41
bauschr

Api géoportail

Merci pour la réponse.
La page qui fonctionne et que je cite utilise l'API de géoportail avec 4 boutons qui commandent le déplacement. Mais je souhaite écrire une application qui fonctionne dans tous les cas de figure (avec un autre site par exemple). Il semble qu'il faut passer par "webbrowser.document" mais là je bloque.
06/02/2017, 09h37
yvslms

Citation:

Envoyé par bauschr

Merci pour la réponse.
La page qui fonctionne et que je cite utilise l'API de géoportail avec 4 boutons qui commandent le déplacement. Mais je souhaite écrire une application qui fonctionne dans tous les cas de figure (avec un autre site par exemple). Il semble qu'il faut passer par "webbrowser.document" mais là je bloque.

Le temps me manque pour approfondir la question.
Vous avez exploré ce qu'il est possible de faire avec la méthode TWebBrowser.EvaluateJavaScript ?
22/02/2017, 01h05
bauschr

Toujours pas de solution
Citation:

Envoyé par yvslms

Le temps me manque pour approfondir la question.
Vous avez exploré ce qu'il est possible de faire avec la méthode TWebBrowser.EvaluateJavaScript ?

Cette méthode n'est pas présente sur ma version (delphi 7, windows 10).

J'ai le même résultat avec un OLEContainer :
Code:

1 2 3 4 5 adresse : string olecontainer1.CreateObject('Shell.Explorer',false); olecontainer1.DoVerb(-1); olecontainer1.OleObject.navigate2(adresse);
Si j'ouvre ma page personnelle sur géoportail (http://chateau.branlant.free.fr/copi...cementv20.html) aucun problème.
Si j'ouvre géoportail (https://www.geoportail.gouv.fr/carte/) impossible de déplacer la carte avec la souris.
Je continue donc a chercher ...
22/02/2017, 14h04
yvslms

Citation:

Envoyé par bauschr

....
Cette méthode n'est pas présente sur ma version (delphi 7, windows 10).
....

Vous pouvez aussi télécharger la dernière version de Delphi gratuitement ("Starter" pour Win32 uniquement).
Pour le reste tenez nous au courant, perso le sujet m'intéresse.
J'ai vu aussi que l'IGN venait de sortir une nouvelle version de son SDK.
Je tâcherai de m'y pencher dès que j'aurai un moment.

Bon courage.
26/02/2017, 00h38
bauschr

Citation:

Envoyé par yvslms

Vous pouvez aussi télécharger la dernière version de Delphi gratuitement ("Starter" pour Win32 uniquement).
Pour le reste tenez nous au courant, perso le sujet m'intéresse.
J'ai vu aussi que l'IGN venait de sortir une nouvelle version de son SDK.
Je tâcherai de m'y pencher dès que j'aurai un moment.

Bon courage.

Pas de chance pour moi la version Delphi d'embarcadero plante sur mon PC...

Je continue mes recherches en m'appuyant sur le fait que la molette fonctionne (zoom sur la carte). J'ai récupérer les valeurs envoyées lorsqu'on utilise celle-ci (Msg.wParam et Msg.lParam ainsi que Msg.hwnd). Puis avec un bouton j'envoie le message suivant sendmessage(fenetre,WM_MOUSEWHEEL,7864320,32049148); avec fenetre=Msg.hwnd, 7864320=Msg.wParam, 32049148=Msg.lParam
Le clic sur mon bouton provoque bien un zoom.
Si je le modifie ainsi :
sendmessage(webbrowser1.Handle,WM_MOUSEWHEEL,7864320,32049148);
Rien ne se passe...
A noter que j'ouvre une autre page internet Msg.hwnd change.
Mais pour l'instant cela ne me donne pas la solution...
26/02/2017, 11h57
Andnotor
Essaye déjà de remplacer webbrowser1.Handle par GetForegroundWindow.

Ensuite, ces nombres écrits ainsi 7864320, 32049148 ne sont pas très parlants. En héxa ce serait déjà un peu mieux : $00780000, $01E907FC.

Soit pour :
wParam : $0078 = 120 = un WHEEL_DELTA et $0000 pour aucun bouton enfoncé ;
lParam : y = $01E9 = 489px, x = $07FC = 2044px.

Une façon plus propre d'écrire cela est de passer par la construction des paramètres :
Code:

1 2 3 X := 2044; Y := 489; SendMessage(GetForegroundWindow, WM_MOUSEWHEEL, MakeWParam(0, WHEEL_DELTA), MakeLParam(X, Y));
Maintenant, il faut savoir que même si ce message est bien envoyé au bon contrôle fenêtré (ce qui n'est pas encore sûr), il faut obligatoirement que le curseur soit positionné sur ce composant (que X et Y soient corrects). Si la position 2044/489 n'est pas dans la zone de l'élément scrollable/zoomable ça ne fonctionne pas. lParam n'est en aucun cas une constante.

Il serait à nouveau plus simple de simuler cette molette par Mouse_Event(MOUSEEVENTF_WHEEL) et laisser l'OS déterminer la fenêtre cible lui-même.
26/02/2017, 20h42
bauschr

Merci pour cet éclairage.
Citation:
Envoyé par Andnotor

Essaye déjà de remplacer webbrowser1.Handle par GetForegroundWindow.

Ensuite, ces nombres écrits ainsi 7864320, 32049148 ne sont pas très parlants. En héxa ce serait déjà un peu mieux : $00780000, $01E907FC.

Soit pour :
wParam : $0078 = 120 = un WHEEL_DELTA et $0000 pour aucun bouton enfoncé ;
lParam : y = $01E9 = 489px, x = $07FC = 2044px.

Une façon plus propre d'écrire cela est de passer par la construction des paramètres :

Code:

1 2 3 X := 2044; Y := 489; SendMessage(GetForegroundWindow, WM_MOUSEWHEEL, MakeWParam(0, WHEEL_DELTA), MakeLParam(X, Y));

Maintenant, il faut savoir que même si ce message est bien envoyé au bon contrôle fenêtré (ce qui n'est pas encore sûr), il faut obligatoirement que le curseur soit positionné sur ce composant (que X et Y soient corrects). Si la position 2044/489 n'est pas dans la zone de l'élément scrollable/zoomable ça ne fonctionne pas. lParam n'est en aucun cas une constante.

Il serait à nouveau plus simple de simuler cette molette par Mouse_Event(MOUSEEVENTF_WHEEL) et laisser l'OS déterminer la fenêtre cible lui-même.
Votre réponse me permet de mieux comprendre ces paramètres, mais malheureusement ce n'est pas le sujet principal.
Mon souci est l'impossibilité de déplacer une carte en ouvrant géoportail dans mon application.
Le sendmessage n'a été écris que pour vérifier que j'arrivais bien a envoyer un message sur le webbrowser (comme le site réagit à la molette j'ai utilisé cet événement).
Je me suis alors rendu compte que webbrowser1.Handle n'était pas le bon paramètre. Mais tout cela n'explique pas pourquoi geoportail ouvert par un webbrowser interagi avec la molette mais pas a un déplacement de la souris.
27/02/2017, 12h04
Andnotor

Citation:

Envoyé par bauschr

Mais tout cela n'explique pas pourquoi geoportail ouvert par un webbrowser interagi avec la molette mais pas a un déplacement de la souris.

Est-ce que ça fonctionne dans Internet Explorer ?
Si oui, as-tu essayé de mettre à jour le TWebBrowser (menu Composant -> Importer un composant -> Importer un contrôle ActiveX -> Microsoft Internet Controls) ?

Pense qu'il est difficile de t'aider, TWebBrowser n'est qu'une grosse boîte noire (un contrôle ActiveX) et savoir ce qui se passe à l'intérieur est un mystère.