KB10348

KB10348 - Display a point from a database on the map.

Create a TGIS_LayerVector layer and then, on each database query, add the following code:

layer.RevertAll ; // will reset layer status while not ors.Eof do begin

 while not ors.Eof do begin

  shp := layer.CreateShape( gisShapeTypePoint ) ;

  shp.Lock( gisLockExtent ) ;

  shp.AddPart ;

  shp.AddPoint( GisPoint( ors.Fields['X'] , ors.Fields['Y'] ) );

  shp.Unlock ;

  shp.SetField( 'somefield', ors.Fields['somefield'] ) ;

  ors.MoveNext ;

 end ;

end ;

Created: August 30, 2004, Modified: August 03, 2015