应用ISaveAs接口进行栅格格式内部转换代码

    Dim pWsf As IWorkspaceFactory
    Set pWsf = New RasterWorkspaceFactory
   
    Dim pRasterWs As IRasterWorkspace
    Set pRasterWs = pWsf.OpenFromFile("d:/AE/testData", 0)
   
    Dim pRasterDs As IRasterDataset2
    Set pRasterDs = pRasterWs.OpenRasterDataset("tif1.tif")
      
    Dim pRaster As IRaster2
    Set pRaster = pRasterDs.CreateFullRaster
   
    Dim pSaveAs  As ISaveAs
    Set pSaveAs = pRaster
    pSaveAs.SaveAs "ss.pix", pRasterWs, "PIX"