Google Maps

[Gale FORd]

I don't see how this would have a license problem since this is totally on the address line.

As far as best routing I don't know. I will check on this

[chiaiese]

Hi all,
can the samples posted be compiled with FW 2.5 ? It seems I miss something

many thanks
Roberto Chiaiese

[Patrick Mast]

Hi all,
can the samples posted be compiled with FW 2.5 ? It seems I miss something

Hey Roberto,

Why not upgrade your FiveWin?

Patrick

[chiaiese]

Patrick,
I made a lot of modifications to FW source files and together with my own library now is a very stable one.
Upgrading means to me remake all the changes, so i would upgrade only if necessary

regards
Roberto

[Marco Turco]

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

It 's a really nice routine. Thanks for shared it !!

[Gale FORd]

Thanks, I wish I could contribute more.

[karinha]

Señores buenas tardes.
Alguien podría enviarme o un enlace para descargar?
Gracias.

Mi correo:

kmt_karinha@pop.com.br

[Gale FORd]

Here is a link where you can download it.

http://www.xharbour.com/xhc/index.asp?page=xhc_download.asp&type=dla&auth=517&show_h=8&show_i=8&show_sub=2

[karinha]

Here is a link where you can download it.

http://www.xharbour.com/xhc/index.asp?page=xhc_download.asp&type=dla&auth=517&show_h=8&show_i=8&show_sub=2

Gracias Gale, voy probar.

Very thanks!

Regards, saludos.

[karinha]

Gale,

Al intentar compilar, me genera este error:

unresolved external _HB_FUN_DEFAULT refenced from WEBMA.OBJ

Very thanks for help.

Regards, saludos.

[MarcoBoschi]

Very Happy

[Gale FORd]

Default() is a function in CT (Clipper Tools). I use xHarbour Builder so it never gave me an error.
You can replace the function with your own style of assigning a variable a default value.

FYI here is the code for Default()

Code: Select all | Expand

*----------------------------------------FUNCTION Default( cVarByRef , uDefValue )*----------------------------------------/* This function is similar to SET DEFAULT <var> TO <value> command.* <cVarByRef> Variable passed by reference* <uDefValue> Default value to assign to the cVarByRef. Can be any data type.* ex: Default( @AnyVar, "hello")*     Default( @AnyVar, 10)*/IF cVarByRef == NIL   cVarByRef := uDefValueENDIFRETURN (Nil) 

[hua]

I suspect you could change default() to FWH native DEFAULT syntax,

Code: Select all | Expand

DEFAULT <cVar> := <uValue>

[jds]

How can I use google maps or an other map within a fivetech or clipper program

[TimStone]

Use this function. aAddress has two variables, the street name and the city name. I have a default of 80 spaces each. You can expand it to include the country.

Code: Select all | Expand

FUNCTION ShowMap( aAddress )    LOCAL oDlg, oActiveX    // Use the variables    cStreet := PadR( aAddress[1], 80 )    cCity := PadR( aAddress[2], 80 )    cCountry := PadR( "USA", 80 )    cStreet2 := space( 80 )    cCity2 := space( 80 )    cStreet3 := space( 80 )    cCity3 := space( 80 )    cStreet4 := space( 80 )    cCity4 := space( 80 )    cStreet5 := space( 80 )    cCity5 := space( 80 )    cWhatsNear := ''    nZoomLevel := 0    // Display the map    oWebMap := WebMap():new()    oWebMap:AddStopSep( cStreet, cCity,,, cCountry )    oWebMap:nZoomLevel := nZoomLevel    oWebMap:GenLink()    ShellExecute( 0, "open", oWebMap:cLink,,, 5 )    sysrefresh()RETURN NIL