DK for Delphi | GisLayerVector.TGIS_LayerVector.ExportLayer | Overloads | Constructors | Fields | Methods | Properties | Events
Exports the layer.
// Delphi public procedure ExportLayer( const _layer : TGIS_LayerVector; const _extent : TGIS_Extent; const _type : TGIS_ShapeType; const _scope : String; const _truncated : Boolean ); overload;
// C++ Builder public: void ExportLayer( TGIS_LayerVector* const _layer, TGIS_Extent* const _extent, TGIS_ShapeType* const _type, const UnicodeString _scope, const bool _truncated ) /* overload */;
Name | Type | Description |
---|---|---|
_layer | TGIS_LayerVector | layer to be exported to |
_extent | TGIS_Extent | starting extent of layer - can't be zero sized |
_type | TGIS_ShapeType | shape type supported by a layer; if gistypeUnknown is used then export will try to recognize shape on its own; |
_scope | String | SQL query for which shape will be exported |
_truncated | Boolean | if True, then all shapes will be truncated in _extent; if False, only the shape visible in _extent will be exported ; |
Here is a simple procedure to export a layer.
procedure MyClass.ExportMyLayer(); var ll : TGIS_LayerVector ; lo : TGIS_LayerVector ; begin // check whether GIS object has any layers if GIS.IsEmpty then exit ; // Get first layer from the viewer ll:= TGIS_LayerVector (GIS.Items[0]) ; // create a layer to which existing layer will be exported lo:=TGIS_LayerSHP.Create ; try lo.Path := 'exported.shp'; ll.ExportLayer(lo,GisWholeWorld,TGIS_ShapeType.Unknown,'',False); finally lo.Free; end; end;