FiveTech Support Forums

FiveWin / Harbour / xBase community
Board index FiveWin para Harbour/xHarbour Librería LeafLet
Posts: 104
Joined: Wed Mar 08, 2006 02:24 PM
Re: Librería LeafLet
Posted: Wed Oct 30, 2019 12:20 PM

El código es tal cual lo publico Ud.

Posts: 6755
Joined: Wed Feb 15, 2012 08:25 PM
Re: Librería LeafLet
Posted: 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
Posts: 6755
Joined: Wed Feb 15, 2012 08:25 PM
Re: Librería LeafLet
Posted: 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
Posts: 104
Joined: Wed Mar 08, 2006 02:24 PM
Re: Librería LeafLet
Posted: Wed Oct 30, 2019 12:30 PM
El código en esa linea es:
Code (fw): Select all Collapse
   cInitMap  += aData[ 1 ][ 3 ] + ", " + aData[ 1 ][ 2 ] + " ], 13);" + CRLF
Posts: 104
Joined: Wed Mar 08, 2006 02:24 PM
Re: Librería LeafLet
Posted: 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

Posts: 6755
Joined: Wed Feb 15, 2012 08:25 PM
Re: Librería LeafLet
Posted: Wed Oct 30, 2019 12:32 PM
caducca wrote:El código en esa linea es:
Code (fw): Select all Collapse
   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
Posts: 6755
Joined: Wed Feb 15, 2012 08:25 PM
Re: Librería LeafLet
Posted: Wed Oct 30, 2019 12:37 PM
Pues a mi me funciona tal cual lo he descargado
https://bitbucket.org/fivetech/fivewin- ... fletjs.prg

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
Posts: 6755
Joined: Wed Feb 15, 2012 08:25 PM
Re: Librería LeafLet
Posted: 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
Posts: 104
Joined: Wed Mar 08, 2006 02:24 PM
Re: Librería LeafLet
Posted: Wed Oct 30, 2019 12:47 PM

Como hago para subir una imagen?

Posts: 6755
Joined: Wed Feb 15, 2012 08:25 PM
Re: Librería LeafLet
Posted: 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
Posts: 104
Joined: Wed Mar 08, 2006 02:24 PM
Re: Librería LeafLet
Posted: Wed Oct 30, 2019 01:21 PM
Posts: 104
Joined: Wed Mar 08, 2006 02:24 PM
Re: Librería LeafLet
Posted: Wed Oct 30, 2019 01: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
Posts: 6755
Joined: Wed Feb 15, 2012 08:25 PM
Re: Librería LeafLet
Posted: Wed Oct 30, 2019 05: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
Posts: 104
Joined: Wed Mar 08, 2006 02:24 PM
Re: Librería LeafLet
Posted: Thu Oct 31, 2019 12:49 PM

Con la última indicación ya lo pude hacer funcionar.
Gracias

Continue the discussion