FiveTech Support Forums

FiveWin / Harbour / xBase community
Board index FiveWin for Harbour/xHarbour Google Map
Posts: 7317
Joined: Thu Oct 18, 2012 07:17 PM
Google Map
Posted: Wed Feb 02, 2022 12:25 PM
On a old App (fwh) I had a dialog to show a map, now not run






Code (fw): Select all Collapse
function Show( cStreet, cCity, cCountry, oActiveX )

   local cHtml := MemoRead( ".\MAPPE\gmap.html" )

   cHtml = StrTran( cHtml, "<<STREET>>", AllTrim( cStreet ) )
   cHtml = StrTran( cHtml, "<<CITY>>", AllTrim( cCity ) )
   cHtml = StrTran( cHtml, "<<COUNTRY>>", AllTrim( cCountry ) )

   MemoWrit( "temp.html", cHtml )

   oActiveX:Do( "Navigate2", CurDrive() + ":\" + CurDir() + "\temp.html" )

   return nil



gmap.html
Code (fw): Select all Collapse
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Strict//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-strict.dtd"> 
<html xmlns="http://www.w3.org/1999/xhtml">                                                                   
  <head>                                                                                                      
    <meta http-equiv="content-type" content="text/html; charset=UTF-8"/> 
    <title> </title>             
    <script src="http://maps.google.com/maps?file=api&amp;v=2.x&amp;key=ABQIAAAAtOjLpIVcO8im8KJFR8pcMhQjskl1-YgiA_BGX2yRrf7htVrbmBTWZt39_v1rJ4xxwZZCEomegYBo1w" type="text/javascript"></script> 
    <script type="text/javascript">                                      
    var map = null;                                                      
    var geocoder = null;                                                 
    var coords = null;                                                   

    function initialize() {                                              
      if (GBrowserIsCompatible()) {                                      
        map = new GMap2(document.getElementById("map_canvas"));          
        map.addControl(new GLargeMapControl());                          
        map.addControl(new GMapTypeControl());                           
        geocoder = new GClientGeocoder();                                
      }                                                                  
    }                                                                    

    function showAddress(address, cAddressName) {                        
      if (geocoder) {                                                    
        geocoder.getLatLng(                                              
          address,                                                       
          function(point) {                                              
            if (!point) {                                                
              showAddress2('<<CITY>>');               
            } else {                                                     
              map.setCenter(point, 15);                                  
              var marker = new GMarker(point);                           
              map.addOverlay(marker);                                    
              coords = marker.getPoint();                                
              var curl = cAddressName + "<p>" + coords.toUrlValue(6) + "</p>" 
              var button = '<input type="button" value="Imprimir" onClick="window.print()"/>;'
              curl = curl + button 
            }                                                            
          }                                                              
        );                                                               
      }                                                                  
    }                                                                    
    function showAddress2(address) {       
      if (geocoder) {                                                    
        geocoder.getLatLng(                                              
          address,                                                       
          function(point) {                                              
            if (!point) {                                                
              alert(address + " not found");                         
            } else {                                                     
              map.setCenter(point, 15);                                  
              var marker = new GMarker(point);                           
              map.addOverlay(marker);                                    
              marker.openInfoWindowHtml(address);                        
            }                                                            
          }                                                              
        );                                                               
      }                                                                  
    }                                                                    
    </script>                                                            
  </head>                                                                

  <body onload="initialize(); showAddress('<<STREET>>, <<CITY>>  <<COUNTRY>>', '<<STREET>>, <<CITY>>  <<COUNTRY>>');" onunload="GUnload()"
        <div id="map_canvas" style="width: 597px; height: 376px"></div> 
  </body>                                                                
</html>



where is the error ?
Since from 1991/1992 ( fw for clipper Rel. 14.4 - Momos)

I use : FiveWin for Harbour March-April 2024 - Harbour 3.2.0dev (harbour_bcc770_32_20240309) - Bcc7.70 - xMate ver. 1.15.3 - PellesC - mail: silvio[dot]falconi[at]gmail[dot]com
Posts: 8515
Joined: Tue Dec 20, 2005 07:36 PM
Re: Google Map
Posted: Wed Feb 02, 2022 12:52 PM

oActivex:Silent := .T. // Para Evitar: Erro de Script na Pagina.

João Santos - São Paulo - Brasil - Phone: +55(11)95150-7341
Posts: 7317
Joined: Thu Oct 18, 2012 07:17 PM
Re: Google Map
Posted: Thu Feb 03, 2022 10:09 AM

But not run the script

Since from 1991/1992 ( fw for clipper Rel. 14.4 - Momos)

I use : FiveWin for Harbour March-April 2024 - Harbour 3.2.0dev (harbour_bcc770_32_20240309) - Bcc7.70 - xMate ver. 1.15.3 - PellesC - mail: silvio[dot]falconi[at]gmail[dot]com
Posts: 7317
Joined: Thu Oct 18, 2012 07:17 PM
Re: Google Map
Posted: Thu Feb 03, 2022 10:11 AM

But not run the script

Since from 1991/1992 ( fw for clipper Rel. 14.4 - Momos)

I use : FiveWin for Harbour March-April 2024 - Harbour 3.2.0dev (harbour_bcc770_32_20240309) - Bcc7.70 - xMate ver. 1.15.3 - PellesC - mail: silvio[dot]falconi[at]gmail[dot]com
Posts: 6755
Joined: Wed Feb 15, 2012 08:25 PM
Re: Google Map
Posted: Thu Feb 03, 2022 02:30 PM

Silvio replace in your code old ActiveX with "InternetExplorer.Application" with webview

viewtopic.php?f=3t=41143start=30#p247840

&&

Cristobal Navarro

Hay dos tipos de personas: las que te hacen perder el tiempo y las que te hacen perder la noción del tiempo

El secreto de la felicidad no está en hacer lo que te gusta, sino en que te guste lo que haces
Posts: 7317
Joined: Thu Oct 18, 2012 07:17 PM
Re: Google Map
Posted: Fri Feb 18, 2022 08:44 PM
Resolved with WebMap class

Since from 1991/1992 ( fw for clipper Rel. 14.4 - Momos)

I use : FiveWin for Harbour March-April 2024 - Harbour 3.2.0dev (harbour_bcc770_32_20240309) - Bcc7.70 - xMate ver. 1.15.3 - PellesC - mail: silvio[dot]falconi[at]gmail[dot]com

Continue the discussion