Google Maps
- Patrick Mast
- Posts: 246
- Joined: Sat Mar 03, 2007 8:42 pm
- Marco Turco
- Posts: 858
- Joined: Fri Oct 07, 2005 12:00 pm
- Location: London
- Contact:
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
Marco Turco
SOFTWARE XP LLP
- karinha
- Posts: 7948
- Joined: Tue Dec 20, 2005 7:36 pm
- Location: São Paulo - Brasil
- Been thanked: 3 times
- Contact:
Re: Google Maps
Señores buenas tardes.
Alguien podría enviarme o un enlace para descargar?
Gracias.
Mi correo:
kmt_karinha@pop.com.br
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
Re: Google Maps
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
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: 7948
- Joined: Tue Dec 20, 2005 7:36 pm
- Location: São Paulo - Brasil
- Been thanked: 3 times
- Contact:
Re: Google Maps
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: 7948
- Joined: Tue Dec 20, 2005 7:36 pm
- Location: São Paulo - Brasil
- Been thanked: 3 times
- Contact:
Re: Google Maps
Gale,
Al intentar compilar, me genera este error:
unresolved external _HB_FUN_DEFAULT refenced from WEBMA.OBJ
Very thanks for help.
Regards, saludos.
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: 1072
- Joined: Thu Nov 17, 2005 11:08 am
- Location: Padova - Italy
- Contact:
Re: Google Maps
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()
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)
Re: Google Maps
I suspect you could change default() to FWH native DEFAULT syntax,
Code: Select all | Expand
DEFAULT <cVar> := <uValue>
FWH 11.08/FWH 19.12
BCC5.82/BCC7.3
xHarbour/Harbour
BCC5.82/BCC7.3
xHarbour/Harbour
- TimStone
- Posts: 2956
- Joined: Fri Oct 07, 2005 1:45 pm
- Location: Trabuco Canyon, CA USA
- Has thanked: 25 times
- Been thanked: 2 times
- Contact:
Re: Google Maps
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
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
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