默认头像
zcg
路人甲
路人甲
  • 注册日期2003-12-04
  • 发帖数157
  • QQ
  • 铜币615枚
  • 威望0点
  • 贡献值0点
  • 银元0个
阅读:1084回复:0

用程序将遥感数据集Raster或者DEM加到RasterCatalog问题

楼主#
更多 发布于:2006-01-04 14:32

我在用程序将遥感数据集Raster或者DEM加到RasterCatalog时,出现the raster buffer size is too small错误,请问高手如何解决?蓝颜色位置处代码出错

Public Sub DirToGDB(pWs As IWorkspace, pCatalog As IFeatureClass)
   Dim pSDERasterWs As IRasterWorkspaceEx
   Dim pEunmDatasets As IEnumDataset
   Dim pCatalogFeature As IRasterCatalogItem
   Dim pRasterDs As IRasterDataset
   Dim pCursor As IFeatureCursor
   Dim pRow As IFeatureBuffer
   
   ' get the list of datasets in the input workspace
   Set pEunmDatasets = pWs.Datasets(esriDTRasterDataset)
   pEunmDatasets.Reset
   
   ' load raster datasets from the input workspace
   Set pRasterDs = pEunmDatasets.Next
   Set pCursor = pCatalog.Insert(False)
   
   Dim pCat As IRasterCatalog
   Set pCat = pCatalog
   
   ' loop through all the datasets and load
   Do While Not pRasterDs Is Nothing
     Set pRow = pCatalog.CreateFeatureBuffer
     pRow.Value(pCat.RasterFieldIndex) = createRasterValue(pRasterDs)
     pCursor.InsertFeature pRow (出错位置the raster buffer size is too small
     Set pRasterDs = pEunmDatasets.Next
   Loop
   
   ' cleanup
   Set pCatalog = Nothing
   Set pSDERasterWs = Nothing
   Set pEunmDatasets = Nothing
   Set pCatalogFeature = Nothing
   Set pRasterDs = Nothing

End Sub

喜欢0 评分0
默认头像

返回顶部