#1  
Alt 19.02.2009
Benutzerbild von Kai
Kai Kai ist offline
Imabas-Entwickler
Admin
Obertroll
Registriert seit: 11.2003
Ort: Holzwickede
Beiträge: 2.756
Kai befindet sich auf einem aufstrebenden Ast
Standard Umkreissuche um ein Geo-Objekt

Aktionstyp: Objektschlüssel
Objekt: GeoObjekt

Suche alle Bilder im Umkreis von 10km um das gewählte GeoObjekt...

Code:
function PerformAction(ObjectKey: String): Boolean;
var
   geo: TIGeoObject; images: TICollection; umkreis: Integer;
begin
   Result := True;

   //-- Umkreis in Metern --//
   umkreis := 10000;

   { umkreis := 0;
     Started den integrierten Umkreissuche-Dialog }
   
   geo := TIGeoObject.Create;
   try
      if ( not geo.Load(ObjectKey) ) then
         Exit;
         
      Browser_BeginUpdate;
      try
         images := geo.PerimeterSearch(umkreis);
         try
            Browser_AddImages(images);
         finally
            images.Free;
         end;
      finally
         Browser_EndUpdate;
      end;
   finally
      geo.Free;
   end;
end;
__________________
Mit freundlichen Grüßen
Kai Brendel
http://www.pixandmore.com
Mit Zitat antworten
Antwort
Themen-Optionen
Ansicht

Forumregeln
Es ist Ihnen nicht erlaubt, neue Themen zu verfassen.
Es ist Ihnen nicht erlaubt, auf Beiträge zu antworten.
Es ist Ihnen nicht erlaubt, Anhänge hochzuladen.
Es ist Ihnen nicht erlaubt, Ihre Beiträge zu bearbeiten.

BB-Code ist an.
Smileys sind an.
[IMG] Code ist an.
HTML-Code ist aus.
Gehe zu

Ähnliche Themen
Thema Autor Forum Antworten Letzter Beitrag
Anlegen eines neuen Themas, Tier, Objekt etc. gsantner Neue Features in Imabas 1 22.08.2008 12:31
Kein Umkreissuche im Westen? KlausKalb Bugreports 2 31.03.2008 21:04
Löschen unterteilen --> Link löschen; Objekt löschen; etc griesol Neue Features in Imabas 2 17.01.2005 13:06


Powered by vBulletin® Version 3.7.1 (Deutsch)
Copyright ©2000 - 2018, Jelsoft Enterprises Ltd.