EncodeABIC Example for Visual Basic

Private Sub EncodeAbic_Click()
   Dim RasterIO As New LEADRasterIO
   Dim InputData As New LEADRasterVariant
   Dim OutputData As New LEADRasterVariant
   Dim BmpData As Byte
   Dim i As Integer

   RasterIO.Load LEADRasterView1.Raster, "c:\Abic.bmp", 0, 0, 1
   Set InputData = RasterIO.SaveArray(LEADRasterView1.Raster, FILE_RAW, 0, 0)

   RasterIO.EncodeABIC InputData, 4, 472, 221, OutputData, False

   Open "c:\Image2Raw.ica" For Binary Access Write As #1
      For i = 0 To OutputData.ItemCount – 1
         BmpData = OutputData.ShortItemValue(i)
         Put #1, , BmpData
      Next i
   Close #1
End Sub