SegmentExt Example for Visual Basic

Private Sub SaveMulti_Click()
Dim nRet As Integer
Dim RasterMrc1 As New LEADRasterMrc
Dim RasterMrc2 As New LEADRasterMrc
Dim RasterIO As New LEADRasterIO
Dim RasterList As New LEADRaster
Dim Raster As New LEADRaster

Raster.UnlockSupport L_SUPPORT_DOCUMENT, L_KEY_DOCUMENT

RasterIO.Load Raster, "c:\1.jpg", 0, 0, 1
RasterMrc1.StartSegmentation Raster
nRet = RasterMrc1.SegmentExt(Raster, 5, 50, 25, 10, 75, SGM_WITHOUTBKGRND Or SGM_FAVOR_TWOBIT)
RasterMrc1.StopSegmentation
RasterList.InsertBitmapListItem -1, Raster.Bitmap

RasterIO.Load Raster, "c:\2.jpg", 0, 0, 1
RasterMrc2. StartSegmentation LEADRasterView1.Raster
nRet = RasterMrc2.SegmentExt(Raster, 5, 5, 25, 10, 75, SGM_WITHOUTBKGRND Or SGM_FAVOR_TWOBIT)
RasterMrc2.StopSegmentation
RasterList.InsertBitmapListItem -1, Raster.Bitmap

RasterIO.MRCRasterCount = 2
RasterIO.MRCRaster(0) = RasterMrc1
RasterIO.MRCRaster(1) = RasterMrc2

RasterIO.MaskCoder = MRC_MASK_COMPRESSION_FAX_G3_1D
RasterIO.PictureCoder = MRC_PICTURE_COMPRESSION_JPEG
RasterIO.PictureQFactor = 10
RasterIO.Grayscale8BitCoder = MRC_GRAYSCALE_COMPRESSION_GRAYSCALE_CMW_8BIT
RasterIO.Grayscale8BitQFactor = 2
RasterIO.Grayscale2BitCoder = MRC_GRAYSCALE_COMPRESSION_JBIG_2BIT
RasterIO.Text2BitCoder = MRC_TEXT_COMPRESSION_JBIG_2BIT

nRet = RasterIO.SaveList(RasterList, "c:\Multi.tif", FILE_TIF_MRC)