FiveTech Support Forums

FiveWin / Harbour / xBase community
Board indexAll discussionsLogin (GitHub)
Board index FiveWin for Harbour/xHarbour Google Maps
Gale FORd
Posts: 663
Joined: Mon Dec 05, 2005 11:22 PM
Google Maps
Posted: Thu Apr 03, 2008 04:22 PM

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
Posts: 113
Joined: Wed Feb 08, 2006 10:32 PM
Google Maps
Posted: Wed Jun 18, 2008 05:57 PM

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

many thanks
Roberto Chiaiese

Roberto Chiaiese
R&C Informatica S.n.c.
https://www.recinformatica.it
info@recinformatica.it

Harbour 3.2 - FW2512

Patrick Mast
Posts: 246
Joined: Sat Mar 03, 2007 08:42 PM
Google Maps
Posted: Wed Jun 18, 2008 07:36 PM
chiaiese wrote: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
Posts: 113
Joined: Wed Feb 08, 2006 10:32 PM
Google Maps
Posted: Thu Jun 19, 2008 07:27 AM

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

Roberto Chiaiese
R&C Informatica S.n.c.
https://www.recinformatica.it
info@recinformatica.it

Harbour 3.2 - FW2512

Marco Turco
Posts: 858
Joined: Fri Oct 07, 2005 12:00 PM
Google Maps
Posted: Thu Jun 19, 2008 10:46 AM
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


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



Marco Turco

SOFTWARE XP LLP
Gale FORd
Posts: 663
Joined: Mon Dec 05, 2005 11:22 PM
Google Maps
Posted: Thu Jun 19, 2008 08:25 PM

Thanks, I wish I could contribute more.

karinha
Posts: 8515
Joined: Tue Dec 20, 2005 07:36 PM
Re: Google Maps
Posted: Wed Oct 26, 2011 04:18 PM

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

Mi correo:

kmt_karinha@pop.com.br

João Santos - São Paulo - Brasil - Phone: +55(11)95150-7341
Gale FORd
Posts: 663
Joined: Mon Dec 05, 2005 11:22 PM
Re: Google Maps
Posted: Wed Oct 26, 2011 04:59 PM
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
Posts: 8515
Joined: Tue Dec 20, 2005 07:36 PM
Re: Google Maps
Posted: Wed Oct 26, 2011 06:08 PM
Gale FORd wrote: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.
João Santos - São Paulo - Brasil - Phone: +55(11)95150-7341
karinha
Posts: 8515
Joined: Tue Dec 20, 2005 07:36 PM
Re: Google Maps
Posted: Fri Oct 28, 2011 11:55 AM

Gale,

Al intentar compilar, me genera este error:

unresolved external _HB_FUN_DEFAULT refenced from WEBMA.OBJ

Very thanks for help.

Regards, saludos.

João Santos - São Paulo - Brasil - Phone: +55(11)95150-7341
MarcoBoschi
Posts: 1091
Joined: Thu Nov 17, 2005 11:08 AM
Re: Google Maps
Posted: Fri Oct 28, 2011 12:24 PM

Very Happy

:D

Marco Boschi
info@marcoboschi.it
Gale FORd
Posts: 663
Joined: Mon Dec 05, 2005 11:22 PM
Re: Google Maps
Posted: Fri Oct 28, 2011 02:26 PM
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 (fw): Select all Collapse
*----------------------------------------
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
Posts: 1096
Joined: Fri Oct 28, 2005 02:27 AM
Re: Google Maps
Posted: Fri Oct 28, 2011 03:45 PM
I suspect you could change default() to FWH native DEFAULT syntax,
Code (fw): Select all Collapse
DEFAULT <cVar> := <uValue>
FWH 11.08/FWH 19.12

BCC5.82/BCC7.3

xHarbour/Harbour
jds
Posts: 124
Joined: Sat Dec 05, 2009 12:44 PM
Re: Google Maps
Posted: Mon Jan 13, 2014 07:00 PM

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

TimStone
Posts: 3022
Joined: Fri Oct 07, 2005 01:45 PM
Re: Google Maps
Posted: Tue Jan 14, 2014 12:27 AM
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 (fw): Select all Collapse
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
Tim Stone
http://www.MasterLinkSoftware.com
http://www.autoshopwriter.com
timstone@masterlinksoftware.com
Using: FWH 23.10 with Harbour 3.2.0 / Microsoft Visual Studio Community 2022-24 32/64 bit
Static archive · New replies & topics via GitHub Discussions