Foros Club Delphi - Herramientas Cartograficas!!

Foros Club Delphi (https://www.clubdelphi.com/foros/index.php)

- Gráficos (https://www.clubdelphi.com/foros/forumdisplay.php?f=8)

- - Herramientas Cartograficas!! (https://www.clubdelphi.com/foros/showthread.php?t=4056)

Hola Fernando, yo solo he trabajado con Mapobjects, el trial lo consigues en la pagina de esri.com, y lo enlazo a delphi 7 o a delphi 5.... saludos

Gracias Torito, revisaré el demo.

Salu2

Pues nada, con la novedad que el susodicho MapObjects cuesta 5 mil dólares. :confused:

Eso significa que a mis clientes (3) les tendré que cobrar 1,666.66 dólares por cabeza (significativo y demoniaco el precio, no creen?)

Claro que, como mis clientes no siembran cocaína o marihuana, dirán que "gracias, pero no"

Si alguno de ustedes, impresindibles foreros, conoce otro programa para controlar el despliegue de mapas, les estaré muy agradecido si me informan.

Salu2.

Cita:

Empezado por Fernando

Si alguno de ustedes, impresindibles foreros, conoce otro programa para controlar el despliegue de mapas, les estaré muy agradecido si me informan.

Echa un vistazo aquí: http://www.freegis.org/

Tal vez puedas encontar algo que te sirva y sea libre.

Saludos.

Oye Fer, el MO no cuesta 5000 dolares, ya que a nosostros nos costo 5000 pesos Mexicanos, eso seria como 480 dolares

Gracias por esta información Kinobi (y por las anteriores) ;)

Con respecto al precio, Torito, en la página de ESRI dice $ 5,000.00 y como está en inglés pensé que eran dólares. Revisaré mejor la información (tengo vista cansada y astigmatismo ¡glup!) y si el precio es en pesos mexicanos (mejicanos) :D lo compro.

Por otra parte, en un sitio de Argentina describen un sistema de fumigación/asperción aérea utilizando GPS y un programa/software que conduce al piloto del avión a través de la superficie a fumigar. ¿Alguno de los geodelphimaniacos ha trabajado o conoce sobre este tema?

Gracias a todos por su ayuda.

Salu2

Pues lo que mencionas no es muy dificil, solo requires un mapa base u ortofoto, tomas de un servidor tus coordenadasd xy y las plasmas sobre tu imagen y se crea la ruta

buenas, soy un nuevo usuario de ArcGis y necesito realizar una personalizaciòn alguen me podria ayudar, no se si se pueda con mapobject o como gracias de antemano.

Pues mira, si vas a trabajar con arcgis te recomiendo que le metas la personalización con Visual Basic ya que es lo más idoneo... ahora si lo vas a hacer con MapObjects te recomiendo ampliamente el Delphi... Saludos

Hola Fer...

Si apenas vas a iniciar vas a tenes un problema principalmente, requieres información de base o mejor dicho, capas base... ya cuando las tengas de acuerdo a su tipo puesdes trabajarla con Maps Objects, mapInfo, Workstation, etc... ahora si tienes bajos costos hay herramientas free, que el problema es encontrarlas... saludos

Mapas y base de datos

Tengo un a base de datos con informacion de inmuebles
(la estucutra de las tblas es algo como
-codigo_inmueble
- descripcion
- tipo_inmueble
- etc

, ahora me piden que los resultados de una consulta Por ejemplo

" todos los imnuebles tipo 'X'"

sean reflejados en un mapa hecho con Arcview

Por favor alguien me puede orientar cual es la mejor forma para lograr esto.

muchas gracias

y salu2

oye pero solo tienes la tabla de datos o ya tieneas la información georefenciada, osea ya tienes esa información geograficamente??

Solo tengo tabla de datos, como hago la georeferenica (disculpa pero desconosco totalmente el tema)

ups, si esta bastante complicadon, primero requieres una capa base de tu ciudad, al referirme a capa me refiero a un mapa (geografico)de tu ciudad y de ahi empiezas generando otra capa para tus puntos de referencia de tus muebles... tienes forma de conseguir esa capa base??

gracias por responder ,
En que formato debe estar el mapa?

El formato depende de que herramienta geografica vayas a usar, yo por ejemplo use arcobjects y actualmente mapobjects, en ambos el archivo debe ser shape, extención .shp

Demo de aplicación

Fernanado, podrías enviarme un demo de tu aplicación, estoy desarrollando una aplicación para mi finca sobre el control ganadero y rotación de potreros, me sería muy util lo que tienes desarrollado. Mi correo: sierraja2000@yahoo.mail

Tengo una cobertura Uv.shp la cual tiene los siguientes campos:
shape,id,color y le he asignado diferentes colores

Como puedo hacer para que lo cargue en el mapa con los colores que yo le he asignado?

estoy trabajando con mapObjects2 y delphi 7

Si alguien me puede ayudar o enviar un ejemplo se lo agradecere...
mi correo es maguipsc@hotmail.com

ok magui, tu tienes que trabajar con el renderer de tu capa y de ahi escalarla, te mando el ejemplo de esto

Código:

procedure TForm2.bbuniClick(Sender: TObject);

var

a,breakVal,z : integer;

zaz : string;

begin

try

memo1.Clear;

recs:=l.Records;

l.Renderer:=nil;

l.Renderer:=ImoClassBreaksRenderer(CreateOleObject('MapObjects2.ClassBreaksRenderer'));

tdesc:=recs.TableDesc;

fields:=recs.Fields;

cbr:=ImoClassBreaksRenderer(l.Renderer);

cbr.Field:=tdesc.FieldName[cbx.ItemIndex];

if cbx.Text='' then

 begin

 showmessage('No Se Eligio Un Campo');

 exit;

 end;

 strsUniqueValues:= IMoStrings(CreateOleObject('MapObjects2.strings'));

 //fld := IMoField(CreateOleObject('MapObjects2.Field'));



 fld := fields.Item(tdesc.FieldName[cbx.ItemIndex]);



except//if varisempty(fld) then

 //begin

 showmessage('Hay Un Error En La Tabla!!');

 exit;

 end;

z:=0;

recs.MoveFirst;

a:=1;

while (not recs.EOF) do

 begin

 strsUniqueValues.Add(fld.value);

 recs.MoveNext;

 inc(z);

 if z = 100 then

  begin

  a:=application.MessageBox( 'USTED TIENE MÁS DE 100 VARIABLES UNICAS, DESEA CONTINUAR A PESAR DE QUE DILATE MUCHO EL PROCESO??', 'EXCEDENTE DE VARIABLES...', MB_OKCANCEL);

  if  a=2 then

  exit; //se sale de la aplicacion

  end; //fin if

 end; //fin while

{a:=1;

if strsUniqueValues.Count > 100 then

 a:=application.MessageBox( 'USTED TIENE MÁS DE 100 VARIABLES UNICAS, DESEA CONTINUAR??', 'EXCEDENTE DE VARIABLES...', MB_OKCANCEL);

if  a=2 then

 exit; //se sale de la aplicacion}

if (vmr=nil)then

vmr:= IMoValueMapRenderer(CreateOleObject('MapObjects2.ValueMapRenderer'));



vmr.SymbolType:=l.Symbol.SymbolType;

vmr.Field:=fld.Name;

vmr.ValueCount:=strsUniqueValues.Count;

vmr.UseDefault:=false;

for a:=0 to strsUniqueValues.Count-1 do

 begin

 vmr.Value[a]:=strsUniqueValues.Item(a);

// showmessage(strsUniqueValues.Item(a));

 end;



memo1.Lines.Add('       LISTADO DE VALORES UNICOS!!');

memo1.Lines.Add('       ');



for a:=0 to vmr.ValueCount-1 do

 begin

 zaz:='';

 zaz:=inttoStr(a+1);

 zaz:=zaz+'     '+vmr.Value[a];

 memo1.Lines.Add(zaz);

 end; //fin for llenado memo1



cbr.BreakCount:=strsUniqueValues.Count;



bbuni2.Enabled:=true;



end; //fin procedure

gracias por el codigo..

lo he probado ..pero no me muestra el mapa con los colores asignados, me imagino que esta es la parte donde se cambia los colores..

if (vmr=nil)then
vmr:= IMoValueMapRenderer(CreateOleObject('MapObjects2.ValueMapRenderer'));

vmr.SymbolType:=l.Symbol.SymbolType;
vmr.Field:=fld.Name;
vmr.ValueCount:=strsUniqueValues.Count;
vmr.UseDefault:=false;
for a:=0 to strsUniqueValues.Count-1 do
begin
vmr.Value[a]:=strsUniqueValues.Item(a);
// showmessage(strsUniqueValues.Item(a));
end;

me gustaria que me expliques un poco mas que tengo que hacer para que funcione..