Google Maps

[Silvio]

Rafael,
you can put all a zip and go to www.hyperupload.com
U can
pubblish it .

[Patrick Mast]

Of course the trick is in the POS.DLL. Being a work in progress, I wouldn't like to make it public yet. But I'll be happy to send a copy to anybody interested. From the above code you can see how easy is to use it. It has taken Otto all of ten minutes to include it in his software

Great work Rafael.

Please send me a copy so I can test it with xHarbour Builder. Many thanks!

patrick.mast@xharbour.com

Patrick

[Wanderson]

Wanderson,

During the past days, I have sent a copy of the demo program to all the friends that requested it. All of them got a further mail explaing the reason for not posting it for public download.

Also, I informed them that after the code was publicly disclosed on this forum without me even being consulted, I had decided to freeze further development on it. Maybe somebody else will pick up where I left it

Best regards,

Rafael

Ok I believe that you have their reasons.

Thanks.

[Silvio]

I found a free dll at http://www.googleearthairlines.com/

I can see the 3d or 2d earth

he use google Earth and there are two sample in Delphi and VB
YOu not installed all google heart but only a file setup.exe from this site

the setup exe instal some dll :

webplugin4ge.dll
npgeplugin.dll
and a javascript geapi.js

How we can use it on xharbour ?

[Gale FORd]

I've taken a different approach to Google Maps. You can create a link string that can do quite a bit of the work, so I created a class call WebMap that helps me create the link string.

You can download this class and TestWebMap prg at
http://www.hotshare.net/file/24300-4713157df9.html

It does not have the control that the previous postings have but it does everything I need it for, including routes.

[James Bott]

Gale,

>I've taken a different approach to Google Maps.

This works great! Thanks for sharing.

James

[PAUL SIMM]

Aqui hay una función muy simple para hacerlo abriendo el explora.

Function MakeMMapa()
Local cDp,cDir1,cTipoVia,cCiudad,cNum:=""
Local cHttp:="http://maps.google.es/maps?f=q&hl=es&q="
cDp:=TRIM(_ALIAS->DP)
cCiudad:=TRIM(_ALIAS->CIUDAD)
cDir1:=_ALIAS->DIR1

BUSCACITY(@cDir1,@cNum,@cTipoVia)
cHttp:=cHttp+cTipoVia+cDir1+"+"+cNum+"+"+cDp+"+"+cCiudad
SHELLEXECUTE(0,0,cHttp,0,0,1)
RETURN NIL
***********************************************************************
FUNCTION BUSCACITY(cDir1,cNum,cTipoVia)
Local i,j:=0

DO CASE
CASE SUBSTR(_ALIAS->DIR1,1,3)="AV. "
cTipoVia:="AVENIDA DE "
cDir1:=SUBSTR(cDir1,5)

OTHERWISE
cTipoVia:="CALLE+DE+"
ENDCASE
j:=LEN(cdir1)
FOR I=1 TO LEN(cdir1)
IF LEN(cNum)>0 .AND. SUBSTR(cDir1,I,1)=" "
EXIT
ENDIF

IF VAL(SUBSTR(cDir1,I,1))>0

IF EMPTY(cNum)
j:=i
ENDIF

cNum:=cNum+SUBSTR(cDir1,I,1)

ENDIF

next
IF EMPTY(cNum)
cNum:="1"
ENDIF
cDir1:=LTRIM( SUBSTR(cDir1,1,j-1) )
cDir1:=STRTRAN(cDir1,",","")
return nil

[E. Bartzokas]

Please Rafael can you send me a copy, thanks.

Thanks
Evans Bartzokas

<ebartzok@hol.gr>

[E. Bartzokas]

I've taken a different approach to Google Maps. You can create a link string that can do quite a bit of the work, so I created a class call WebMap that helps me create the link string.

You can download this class and TestWebMap prg at
http://www.hotshare.net/file/24300-4713157df9.html

It does not have the control that the previous postings have but it does everything I need it for, including routes.

Gale,
I cannot download the file from provided link.
Is it possible to send a copy to my personal email?

Thanks
Evans Bartzokas


[url]ebartzok@hol.gr[/url]

[SteveLai]

Your Exe works great ... brilliant piece of code. Can you please explain how (or what to do) to include your functions in another application, i.e. how to create link to the Class defined in Webmap.prg? Many thanks in advance.

[Eroni]

Please, can you send a copy too, please?
Regards.
Eroni

[Gale FORd]

Just add webmap.prg to your link script.

Then in your code

Code: Select all  Expand view

//create map object
oWebMap := WebMap():new()

// add stop(s), if you only create one stop then it will bring up map
// if you add another 1 or more stops then it brings up directions.
oWebMap:AddStopSep( cStreet, cCity )
// or you can use oWebMap:Address( cAddress ) if you have
// address information like street and city in one string

//generate link string.
oWebMap:GenLink()

//Windows Explorer link string is now in
// oWebMap:cLink here is how you can use it
//in straight xHarbour code.
if .not. empty( oWebMap:cLink )

   // Fivewin command
   // ShellExecute( 0, "open", oWebMap:cLink,,, 5 )

   // xHarbour command
   oActiveX := TOleAuto():New("InternetExplorer.Application")
   oActiveX:Visible := .T.
   oActiveX:Toolbar := .T.
   oActiveX:Statusbar :=.T.
   oActiveX:MenuBar := .T.
   oActiveX:Navigate( oWebMap:cLink )

endif



There are a couple more things you can do before you run
oWebMap:GenLink()

like change the default zoom level with
oWebMap:nZoomLevel := nZoomLevel

or show nearby points of interest or stores or just about anything.
oWebMap:cWhatsNear := cWhatsNear

[James Bott]

Gale,

>Just add webmap.prg to your link script.

Where do we find webmap.prg?

James

[Gale FORd]

It's still at the hotshare location.
http://www.hotshare.net/file/24300-4713157df9.html

I also uploaded a version to xHarbour community site
http://www.xharbour.com/xhc/index.asp?p ... show_sub=1

[Randal]

It's still at the hotshare location.
http://www.hotshare.net/file/24300-4713157df9.html

I also uploaded a version to xHarbour community site
http://www.xharbour.com/xhc/index.asp?p ... show_sub=1

Gale,

Thanks for the code. Do you know if using this is in any way a violation of Google's license agreement?

Do you know of a way to map several addresses in the most efficient route starting with a particular address or point?

Thanks,
Randal Ferguson