PC SOFT

FOROS PROFESIONALES
WINDEVWEBDEV y WINDEV Mobile

Inicio → WINDEV 2024 → Google Map function in Windev 20
Google Map function in Windev 20
Iniciado por guest, 24,feb. 2016 19:33 - 3 respuestas
Publicado el 24,febrero 2016 - 19:33
Hello,

I use the Google Map function, works Always ok but now when i use the streetview function i get the error as in the attach. Anyone now how it comes?
[attachment 1878 Knipsel.JPG]
Publicado el 24,febrero 2016 - 20:49
Hi,
take a look here :
http://faq.windev.com/
Unfortunately for me, the patch didn't solve the problem for ALL my users.

You can ignore the patch and go to the faq 10478 (just under the above) called:
"How to make the HTML Control emulate IE11 ?"

This will solve ALL your problems !!!!

One thing to do - that isn't in the code in the faq - is FIRST check to see that the setting in the registry - ("HKEY_CURRENT_USER\Software\Microsoft\Internet Explorer\Main\FeatureControl\FEATURE_BROWSER_EMULATION") is ALREADY there ..
If NOT - and it happens on almost ALL my users - the simple copy and paste of the above code will not work.

Steven Sitas
Publicado el 24,febrero 2016 - 20:53
Just a quick and dirty FIX for the code PC Soft published:
**SOS**
Check the code before using, because the forum sometimes "misses" text etc ...


//////////////////////////////////////////////////////////
sExecutableName is a string
nVersionIE is int
nResult is int
bResExist is boolean
bResCreate is boolean


// for the current executable
sExecutableName = fExtractPath(ExeInfo(exeName),fFileName + fExtension )
// Read the current setting
bResExist = RegistryExist("HKEY_CURRENT_USER\Software\Microsoft\Internet Explorer\Main\FeatureControl\FEATURE_BROWSER_EMULATION")
IF bResExist=False THEN
bResCreate = RegistryCreateKey("HKEY_CURRENT_USER\Software\Microsoft\Internet Explorer\Main\FeatureControl\FEATURE_BROWSER_EMULATION")
IF bResCreate=False THEN
Info("Problem updating registry (FEATURE_BROWSER_EMULATION)"+ErrorInfo())
END
END

nVersionIE = RegistryQueryValue("HKEY_CURRENT_USER\Software\Microsoft\Internet Explorer\Main\FeatureControl\FEATURE_BROWSER_EMULATION",sExecutableName )
// Already IE 10 or 11 forced?
IF NOT nVersionIE IN (10001,11001) THEN

// No
// // is forced IE11
nVersionIE = 11001 // 10001 for IE10, IE11 11001 for
nResult=RegistrySetValue("HKEY_CURRENT_USER\Software\Microsoft\Internet Explorer\Main\FeatureControl\FEATURE_BROWSER_EMULATION",sExecutableName,nVersionIE)
IF nResult=True THEN
Info("registry updated")
ELSE
Info("Problem updating the registry "+ErrorInfo())
END
END
Publicado el 25,febrero 2016 - 10:03
Thanks a lot Steven!
It works ok for me.