Search for: KB10679 - Get shape WKT geometry in a given projection. Implement this function: function MyExportToWKT( const _shp : TGIS_Shape ) : String ; var tmp : TGIS_Shape ; i,j : Integer ; begin tmp := _shp.CreateCopy ; try tmp.Lock( gisLockInternal ); try tmp.Reset ; for j := 0 to _shp.GetNumParts - 1 do begin tmp.AddPart ; for i:= 0 to _shp.GetPartSize( j ) - 1 do begin tmp.AddPoint( _shp.GetPoint( j, i ) ) ; end ; end ; finally tmp.Unlock; end ; Result := tmp.ExportToWKT ; finally tmp.Free ; end ; end ; Created: February 08, 2006, Modified: September 16, 2015