Librería LeafLet

Re: Librería LeafLet

Postby caducca » Wed Oct 30, 2019 12:20 pm

El código es tal cual lo publico Ud.
caducca
 
Posts: 104
Joined: Wed Mar 08, 2006 2:24 pm

Re: Librería LeafLet

Postby cnavarro » Wed Oct 30, 2019 12:21 pm

Cual es tu linea 97 de tu prg?
Me llamo Cristobal
Cristobal Navarro
Hay dos tipos de personas: las que te hacen perder el tiempo y las que te hacen perder la noción del tiempo
El secreto de la felicidad no está en hacer lo que te gusta, sino en que te guste lo que haces
User avatar
cnavarro
 
Posts: 6549
Joined: Wed Feb 15, 2012 8:25 pm
Location: España

Re: Librería LeafLet

Postby cnavarro » Wed Oct 30, 2019 12:29 pm

El ejemplo que estás utilizando lo has descargado del enlace que puse?
Cristobal Navarro
Hay dos tipos de personas: las que te hacen perder el tiempo y las que te hacen perder la noción del tiempo
El secreto de la felicidad no está en hacer lo que te gusta, sino en que te guste lo que haces
User avatar
cnavarro
 
Posts: 6549
Joined: Wed Feb 15, 2012 8:25 pm
Location: España

Re: Librería LeafLet

Postby caducca » Wed Oct 30, 2019 12:30 pm

El código en esa linea es:
Code: Select all  Expand view  RUN
  cInitMap  += aData[ 1 ][ 3 ] + ", " + aData[ 1 ][ 2 ] + " ], 13);" + CRLF
caducca
 
Posts: 104
Joined: Wed Mar 08, 2006 2:24 pm

Re: Librería LeafLet

Postby caducca » Wed Oct 30, 2019 12:32 pm

Cuando quiero poner todo el código me da el error indicado anteriormente, en apariencia es cuando hace referencia a HTML
caducca
 
Posts: 104
Joined: Wed Mar 08, 2006 2:24 pm

Re: Librería LeafLet

Postby cnavarro » Wed Oct 30, 2019 12:32 pm

caducca wrote:El código en esa linea es:
Code: Select all  Expand view  RUN
  cInitMap  += aData[ 1 ][ 3 ] + ", " + aData[ 1 ][ 2 ] + " ], 13);" + CRLF


Ok espera que lo pruebo, es raro
Cristobal Navarro
Hay dos tipos de personas: las que te hacen perder el tiempo y las que te hacen perder la noción del tiempo
El secreto de la felicidad no está en hacer lo que te gusta, sino en que te guste lo que haces
User avatar
cnavarro
 
Posts: 6549
Joined: Wed Feb 15, 2012 8:25 pm
Location: España

Re: Librería LeafLet

Postby cnavarro » Wed Oct 30, 2019 12:37 pm

Pues a mi me funciona tal cual lo he descargado
https://bitbucket.org/fivetech/fivewin- ... fletjs.prg

Image
Cristobal Navarro
Hay dos tipos de personas: las que te hacen perder el tiempo y las que te hacen perder la noción del tiempo
El secreto de la felicidad no está en hacer lo que te gusta, sino en que te guste lo que haces
User avatar
cnavarro
 
Posts: 6549
Joined: Wed Feb 15, 2012 8:25 pm
Location: España

Re: Librería LeafLet

Postby cnavarro » Wed Oct 30, 2019 12:39 pm

Es posible que no estés utilizando éste y estés utilizando el antiguo antes de mi actualización?
Cristobal Navarro
Hay dos tipos de personas: las que te hacen perder el tiempo y las que te hacen perder la noción del tiempo
El secreto de la felicidad no está en hacer lo que te gusta, sino en que te guste lo que haces
User avatar
cnavarro
 
Posts: 6549
Joined: Wed Feb 15, 2012 8:25 pm
Location: España

Re: Librería LeafLet

Postby caducca » Wed Oct 30, 2019 12:47 pm

Como hago para subir una imagen?
caducca
 
Posts: 104
Joined: Wed Mar 08, 2006 2:24 pm

Re: Librería LeafLet

Postby cnavarro » Wed Oct 30, 2019 12:51 pm

caducca wrote:Como hago para subir una imagen?

Tienes que copiarla y pegarla en algun programa, por ejemplo yo uso paint.net y la grabas
Después has de utilizar alguna web para subirla y que te dé el enlace para ponerla en un foro
Yo utilizo https://postimages.org/
Cuando la subas, abajo te dará el enlace que es el que has de poner aqui ( te pondrá varios enlaces, y uno de ellos es "Hotlink for forums:" )
Cristobal Navarro
Hay dos tipos de personas: las que te hacen perder el tiempo y las que te hacen perder la noción del tiempo
El secreto de la felicidad no está en hacer lo que te gusta, sino en que te guste lo que haces
User avatar
cnavarro
 
Posts: 6549
Joined: Wed Feb 15, 2012 8:25 pm
Location: España

Re: Librería LeafLet

Postby caducca » Wed Oct 30, 2019 1:21 pm

Image
caducca
 
Posts: 104
Joined: Wed Mar 08, 2006 2:24 pm

Re: Librería LeafLet

Postby caducca » Wed Oct 30, 2019 1:26 pm

Application
===========
Path and name: C:\Disco-F\FWH2017\samples\leafletjs.exe (32 bits)
Size: 3,739,136 bytes
Compiler version: Harbour 3.2.0dev (r1801051438)
FiveWin version: FWH 17.05
C compiler version: Borland/Embarcadero C++ 7.0 (32-bit)
Windows version: 6.2, Build 9200

Time from start: 0 hours 1 mins 33 secs
Error occurred at: 10/30/19, 09:50:25
Error description: (DOS Error -2147352567) WINOLE/1007 (0x800704C7): NAVIGATE
Args:
[ 1] = C D:\fwh\fwhteam\samples\GMaps.htm

Stack Calls
===========
Called from: => TOLEAUTO:NAVIGATE( 0 )
Called from: leafletjs.prg => VIEWLEAFLET( 154 )
Called from: leafletjs.prg => MAIN( 13 )

System
======
CPU type: Intel(R) Core(TM) i3-7100U CPU @ 2.40GHz 2400 Mhz
Hardware memory: 3975 megs

Free System resources: 90 %
GDI resources: 90 %
User resources: 90 %

Windows total applications running: 5
1 ,
2 , C:\Disco-F\FWH2017\samples\leafletjs.exe
3 , C:\WINDOWS\System32\shcore.dll
4 DDE Server Window, C:\WINDOWS\System32\OLE32.DLL
5 G, C:\WINDOWS\WinSxS\x86_microsoft.windows.gdiplus_6595b64144ccf1df_1.1.18362.418_none_5f5edc43821bf93

Variables in use
================
Procedure Type Value
==========================
TOLEAUTO:NAVIGATE
Param 1: O Class: ERROR
VIEWLEAFLET
Param 1: C "D:\fwh\fwhteam\samples\GMaps.htm"
Local 1: U
Local 2: U
MAIN
Param 1: A Len: 3
Local 1: C "D:\fwh\fwhteam\samples\GMaps.htm"
Local 2: C "

"
Local 5: C " var mymap = L.map('mapid').setView( [ 40.4597525, -3.4822266 ], 13);
"
Local 6: C " L.polygon([
[ 40.4597525, -3.4822266],
[ 40.4646123, -3.4649566],
[ 40.4559019, -3.477471]
]).addTo(mymap).bindPopup('I am a polygon.');

L.marker( [ 40.4597525, -3.4822266 ] ).addTo(mymap).bindPopup('<b>Marker 1 !</b><br />I am a popup.').openPopup();

L.marker( [ 40.4646123, -3.4649566 ] ).addTo(mymap).bindPopup('<b>Marker 2 !</b><br />I am a popup.').openPopup();

L.marker( [ 40.4559019, -3.477471 ] ).addTo(mymap).bindPopup('<b>Marker 3 !</b><br />I am a popup.').openPopup();

"
Local 7: O Class: TOLEAUTO
Local 8: N 4

Linked RDDs
===========
DBF
DBFFPT
DBFBLOB
DBFNTX

DataBases in use
================

Classes in use:
===============
1 ERROR
2 HBCLASS
3 HBOBJECT
4 WIN_OLEAUTO
5 TOLEAUTO
6 TREG32
7 TSTRUCT

Memory Analysis
===============
360 Static variables

Dynamic memory consume:
Actual Value: 720896 bytes
Highest Value: 720896 bytes


Aquí tuve que eliminar lo que hace referencia al HTML porque sino no me deja subir el texto
caducca
 
Posts: 104
Joined: Wed Mar 08, 2006 2:24 pm

Re: Librería LeafLet

Postby cnavarro » Wed Oct 30, 2019 5:05 pm

Busca esto en el prg
local cMapFile := "D:\fwh\fwhteam\samples\GMaps.htm"

y pon el path que a ti te venga bien, y el nombre del htm claro
Cristobal Navarro
Hay dos tipos de personas: las que te hacen perder el tiempo y las que te hacen perder la noción del tiempo
El secreto de la felicidad no está en hacer lo que te gusta, sino en que te guste lo que haces
User avatar
cnavarro
 
Posts: 6549
Joined: Wed Feb 15, 2012 8:25 pm
Location: España

Re: Librería LeafLet

Postby caducca » Thu Oct 31, 2019 12:49 pm

Con la última indicación ya lo pude hacer funcionar.
Gracias
caducca
 
Posts: 104
Joined: Wed Mar 08, 2006 2:24 pm

Previous

Return to FiveWin para Harbour/xHarbour

Who is online

Users browsing this forum: karinha and 59 guests