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