Herramientas Cartograficas!!

[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 Noteví]

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



Gracias

¡¡¡ Que no eres un novato !!!