Hi,
if reading a GeoTiFF with crs epsg=31466 MapSuite raise an exception.
The index was out of range. He must be non-negative and less than the Collection.
Parameter: index.
Other crs working fine.
PublicFunctionLoadGeoTiffLayer(LayerPathAsString, EPSGAsInteger)AsGeoTiffRasterLayerTryDimTiffRasterLayerAsGeoTiffRasterLayer
DimfileExistsAsBooleanfileExists = My.Computer.FileSystem.FileExists(LayerPath.ToLower.Replace(".tif",“.tfw”))IffileExistsThenTiffRasterLayer =NewGeoTiffRasterLayer(LayerPath, LayerPath.ToLower.Replace(".tif",“.tfw”))ElseTiffRasterLayer =NewGeoTiffRasterLayer(LayerPath)EndIf
WithTiffRasterLayer.IsVisible =FalseDimImageProjectionAsNewManagedProj4ProjectionImageProjection.ExternalProjectionParametersString = ManagedProj4Projection.GetSphericalMercatorParametersStringImageProjection.InternalProjectionParametersString = ManagedProj4Projection.GetEpsgParametersString(EPSG)ImageProjection.Open()
.ImageSource.Projection = ImageProjection.Name = LayerPath
.Open()EndWithReturnTiffRasterLayerCatchexAsExceptionc_lastError &= ex.Message & vbNewLineDebug.WriteLine(ex.Message)ReturnNothingEndTry
EndFunction
I’m using Daily Full Development 9.0.229.0
Any idea?
Regards
Hardy
