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?p ... show_sub=2

[karinha]

Here is a link where you can download it.

http://www.xharbour.com/xhc/index.asp?p ... 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

*----------------------------------------
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 := uDefValue
ENDIF
RETURN (Nil)


 

[hua]

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

Code: Select all

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

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