topic-9183

Silvio

Posts: 3107

Joined: Fri Oct 07, 2005 06:28 PM

Google Maps
Posted: Sun Dec 16, 2007 10:43 AM

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

Best Regards, Saludos

Falconi Silvio

Patrick Mast

Posts: 246

Joined: Sat Mar 03, 2007 08:42 PM

Google Maps
Posted: Sun Dec 16, 2007 11:43 AM

Rafael Clemente wrote: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

Posts: 332

Joined: Thu Nov 17, 2005 09:11 PM

Google Maps
Posted: Sun Dec 16, 2007 03:41 PM

Rafael Clemente wrote: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

Posts: 3107

Joined: Fri Oct 07, 2005 06:28 PM

Google Maps
Posted: Tue Dec 18, 2007 11:59 AM

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 ?

Best Regards, Saludos

Falconi Silvio

Gale FORd

Posts: 663

Joined: Mon Dec 05, 2005 11:22 PM

Google Maps
Posted: Wed Dec 19, 2007 04:55 PM

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

Posts: 4840

Joined: Fri Nov 18, 2005 04:52 PM

Google Maps
Posted: Wed Dec 19, 2007 06:13 PM

Gale,

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

This works great! Thanks for sharing.

James

FWH 18.05/xHarbour 1.2.3/BCC7/Windows 10

PAUL SIMM

Posts: 86

Joined: Fri Oct 07, 2005 07:59 AM

Localización de una dirección en Google Maps
Posted: Wed Dec 26, 2007 11:46 AM

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

Regards/Saludos
Paul

paul@pes-systems.net

E. Bartzokas

Posts: 114

Joined: Tue Feb 14, 2006 08:13 AM

Google Maps
Posted: Tue Mar 11, 2008 05:03 AM

Please Rafael can you send me a copy, thanks.

Thanks
Evans Bartzokas

<ebartzok@hol.gr>

E. Bartzokas

Posts: 114

Joined: Tue Feb 14, 2006 08:13 AM

Google Maps
Posted: Tue Mar 11, 2008 05:11 AM

Gale FORd wrote: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

ebartzok@hol.gr

SteveLai

Posts: 11

Joined: Tue Apr 18, 2006 11:43 AM

Hello Gale Ford re Testwebmap.prg
Posted: Fri Mar 21, 2008 11:55 AM

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

Posts: 114

Joined: Fri Jul 21, 2006 07:15 PM

Google Maps
Posted: Tue Apr 01, 2008 11:42 PM

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

FWH / xHarbour / BCC / MySql

Visual Studio / Harbour / DotNet Maui / C#

Gale FORd

Posts: 663

Joined: Mon Dec 05, 2005 11:22 PM

Google Maps
Posted: Wed Apr 02, 2008 01:54 PM

Just add webmap.prg to your link script.

Then in your code

Code: Select all Collapse

//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

Posts: 4840

Joined: Fri Nov 18, 2005 04:52 PM

Google Maps
Posted: Wed Apr 02, 2008 06:16 PM

Gale,

>Just add webmap.prg to your link script.

Where do we find webmap.prg?

James

FWH 18.05/xHarbour 1.2.3/BCC7/Windows 10

Gale FORd

Posts: 663

Joined: Mon Dec 05, 2005 11:22 PM

Google Maps
Posted: Wed Apr 02, 2008 07:19 PM

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

Posts: 284

Joined: Mon Oct 24, 2005 08:04 PM

Google Maps
Posted: Thu Apr 03, 2008 01:51 PM

Gale FORd wrote: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

FiveTech Support Forums