Discussion :

[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.

[bauschr]

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 :

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

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

[retwas]

Tu peux pas jouer avec les positions des scrollbars ?

[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 :

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

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.

[bauschr]

Tu peux pas jouer avec les positions des scrollbars ?

Merci pour cette réponse mais la page s'ouvre sans scrollbars.

[bauschr]

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 :

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

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).

[Andnotor]

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;

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

[bauschr]

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 ?

[yvslms]

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

[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.

[yvslms]

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 ?

[bauschr]

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 :

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

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 ...

[yvslms]

....
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.

[bauschr]

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...

[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 :

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

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.

[bauschr]

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 :

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

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.

[Andnotor]

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.