Forum AtoutFox : Affichage localisation via google map   

jeu. 10 décembre 2020, 14h18
frg
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