Herramientas Cartograficas!!

[torito]

Hola, pues herramientas gratuitas hay muchas, como geoserver, mapserver, etc. yo tome el api gratuito de google maps (GM)y subi mi aplicación(http://www.aplicanet.gob.mx:8080/geo...spf/ech3v.html) con java y ajax con una bd. y como lo tengo de forma publica, no rompo ningún reglamento de GM. No se cuanto te cueste tenerlo en GM sí lo requieres tener privado. El MapObjects(MO), es correcto ya desapareció del mercado, yo aún tengo la versío 2.1 y 2.3 de la cual somo propietarios de la licencia, y aunque ya haya desaparecido para mi es la mejor herramienta que tengo de automatización de procesos geográficos. lastima que no lo pudimos hacer funcionar en el SDE 10.

Conclusión: entra al mundo de geoserver o del mapserver sí necesitas generar tus mapas tipo GM y de forma privada.

[nicolas.campeon]

Torito, muchisimas gracias por el gran aporte.
Ahora, por lo que vi, estos son para usar via Web, actualmente uso delphi 2010, no hay ninguno free que se pueda utilizar como el mapobject, que sea una extencion de delphi y no requiere de internet?.
En el peor de los casos usare los que me citaste anteriormente, nuevamente muchisimas gracias por tu ayuda.

[torito]

mmm, no pues la verdad no conozco otro, ya que de forma cliente/servidor me case con MapObjects.... no se sí alguien más te pueda ayudar

[J.Elier]

Hola a todos, necesito desarrollar un codigo utilizando mapobject para, a partir de una capa de puntos, imprimir una tabla de distancias (calculo de distancias de un punto a cada uno del resto, no siguiendo la linea recta sino siguiendo el curso de las calles para llegar de un punto a otro). Alguien podra ayudarme? Mil gracias, Elier

[torito]

Hola Eller, mira la distancia entre 2 puntos solo se puede hacer entre vertices y siempre será en linea recta. Saludos.

[RolyH7]

Hoa a todos alguien sabe como mostrar los labels de un shapefile en el Tmap¿? espero q me ayuden.
saludos!

[torito]

ahi te va el código, la verdad ya no recuerod bien los pasos

Código Delphi [-]
procedure TForm2.BBEtiquetaClick(Sender: TObject);
var
aqui : integer;
oleFt    : variant;
lblren   : IMoLabelRenderer;
begin
if (cbvisible2.Checked) and (cbdato.Text<>'') then
 begin
 oleft := FontToOleFont(fuentes.Font);
 lblren :=IMoLabelRenderer(CreateOleObject('MapObjects2.LabelRenderer'));
 LblRen.DrawBackground := True;
 LblRen.Field := 'Nom';
 LblRen.SplinedText := True;
 LblRen.AllowDuplicates := False;
 LblRen.MaxLevel := 10;
 LblRen.MinLevel := 10;

 LblRen.Symbol[0].Font := IFontDisp(IDispatch(oleFt));
 //lblren.AllowDuplicates :=true;
 lblren.field :=cbdato.Text;
 l.renderer := lblren;
 //form1.Map1.Refresh;
 end else //fin if principal
 l.renderer :=nil;

//lcapa:=l;
aqui:= Valida_Nombre(l);
if (aqui = -1) then
  begin
  aqui:= form1.SGalmacen.RowCount;
  form1.SGalmacen.RowCount:=aqui+1;
  form1.SGalmacen.Cells[0,aqui]:=l.Name;
  form1.sgalmacen.Cells[1,aqui]:='True';
  end;//if aqui

if (cbvisible2.Checked) then
  begin
  form1.SGalmacen.Cells[4,aqui]:='True';
  form1.SGalmacen.Cells[5,aqui]:=CBdato.Text;
  end
 else
  begin
  form1.SGalmacen.Cells[4,aqui]:='False';
  form1.SGalmacen.Cells[5,aqui]:='';
  end; //fin else
 close;
 form1.Map1.Refresh;
 form1.refresca_legend;
////////////////////////////////////////////////
end; //fin procedure

[Casimiro Notevi]

Por favor, recuerda poner los tags al código fuente, ejemplo:



Gracias

¡¡¡ Que no eres un novato !!!