** HOWTO: Get a Monochromatic 1 bit per pixel image DO LOCFILE("System.App") WITH _SCREEN.System.Drawing * Create a Bitmap object based on a BMP file. LOCAL loOriginalBmp AS xfcBitmap loOriginalBmp = .Bitmap.New(GETPICT()) LOCAL loMonoChrBmp as xfcBitmap loMonoChrBmp = loOriginalBmp.GetMonochrome() * Dispose the original Bitmap because we don't need it any more loOriginalBmp = NULL * Save the created Monochromatic Bmp * loMonochrBmp.Save("c:\Monochromatic.bmp", .Imaging.ImageFormat.Bmp) * Get the Image binaries directly: LOCAL lcImgBinaries lcImgBinaries = loMonochrBmp.GetPictureValFromHBitmap() * For a different image format than BMP, a little slower, but if you use this the image format will not be 1bpp any more: * LOCAL lcImgBinaries * lcImgBinaries = loMonochrBmp.GetPictureVal(.Imaging.ImageFormat.Jpeg) ENDWITH RETURN>Thanks for gdiplusx. getmonochrome() and example start me up.
** HOWTO: Get a Monochromatic 1 bit per pixel image >> >>DO LOCFILE("System.App") >> >>WITH _SCREEN.System.Drawing >> * Create a Bitmap object based on a BMP file. >> LOCAL loOriginalBmp AS xfcBitmap >> loOriginalBmp = .Bitmap.New(GETPICT()) >> >> LOCAL loMonoChrBmp as xfcBitmap >> loMonoChrBmp = loOriginalBmp.GetMonochrome() >> >> * Dispose the original Bitmap because we don't need it any more >> loOriginalBmp = NULL >> >> * Save the created Monochromatic Bmp >> loMonochrBmp.Save("c:\Monochromatic.bmp", .Imaging.ImageFormat.Bmp) >>ENDWITH >> >>RETURN