ATOUTFOX
COMMUNAUTÉ FRANCOPHONE DES PROFESSIONNELS FOXPRO
Visual FoxPro : le développement durable

Forum AtoutFox : Affichage localisation via google map   

Sujet

rss Flux RSS des derniers messages

Vous devez vous identifier pour pouvoir poser une question ou répondre.

jeu. 10 décembre 2020, 14h18
frg
France France

atoutfox.public.association

Affichage localisation via google map

Bonjour à tous,
Nous utilisons dans notre appli l'affichage de la localisation à partir d'une adresse postale en utilisant google maps.
Depuis quelques semaines, la carte s'affiche partiellement et on a une erreur de script.
Pour mieux comprendre, vous pouvez exécuter le code ci-dessous qui est sensé localiser l'adresse "122-route-des-Puthods,01340,CRAS-SUR-REYSSOUZE,FRANCE"
Rq: Celle-ci s'affiche correctement depuis une page web
Local lcUrl

* Localisation
lcURL = "https://maps.google.com/maps?q=122-route-des-Puthods,01340,CRAS-SUR-REYSSOUZE,FRANCE";
ShowMap(m.lcUrl)

Procedure ShowMap(tcUrl)
Public oForm
oForm = Createobject('form1')
oForm.Show()
oForm.HTMLViewer.Navigate2(m.tcUrl)
Endproc

Function GetHTML
Local myVar
TEXT to myVar noshow
ENDTEXT
Return myVar
Endfunc

Define Class HTMLViewer As OleControl
OleClass = 'Shell.Explorer'

Procedure Refresh
Nodefault
Endproc

Procedure LoadHTML(tcHTML)
With This
.Navigate2("about:blank")
.Document.Write(m.tcHTML)
Endwith
Enddefine

Define Class form1 As Form
Height = 600
Width = 800
Caption = "HTML sample"

Add Object HTMLViewer As HTMLViewer With ;
Top = 10, ;
Left = 10, ;
Height = 580, ;
Width = 780, ;
Anchor = 15,;
Visible = .T., ;
Name = "HTMLViewer"

Procedure Init
Lparameters tcHTML
If !Empty(m.tcHTML)
With Thisform.HTMLViewer
.LoadHTML(m.tcHTML)
Endwith
Endif
Endproc

Procedure HTMLViewer.NavigateError
Lparameters pdisp, url, frame, statuscode, Cancel
Set Step On
Cancel = .T.
Endproc

Procedure HTMLViewer.BeforeNavigate2
Lparameters pdisp, url, Flags, targetframename, postdata, headers, Cancel
Cancel = .T. && prevents actual navigation
Endproc

Procedure HTMLViewer.Refresh
Nodefault
Endproc
Enddefine

Si quelqu'un a une idée...
Merci.
Françoise

Permalink : http://www.atoutfox.org/nntp.asp?ID=0000019756
19 696 messages dans le forum • Liste complète des messages

www.atoutfox.org - Site de la Communauté Francophone des Professionnels FoxPro - v3.4.0 - © 2004-2021.
Cette page est générée par un composant COM+ développé en Visual FoxPro 9.0-SP2-HF3