如何去除JPG图片中红章，有对_Gdiplus.vcx有研究的吗？ - 编程论坛

#2

吹水佬2020-07-03 11:14

不明真相

#3

radiofan2020-07-03 15:07

以下是引用吹水佬在2020-7-3 11:14:12的发言：

不明真相

就是有张发票进行OCR识别，但是备注栏通常会有红章，会影响识别结果，因此去掉红色，会提供识别率。

谢谢大佬关注

#4

吹水佬2020-07-03 16:47

去色相对简单点，补色怎算?

#5

radiofan2020-07-03 16:49

以下是引用吹水佬在2020-7-3 16:47:33的发言：

去色相对简单点，补色怎算?

用白色填充！

#6

吹水佬2020-07-03 17:11

以下是引用radiofan在2020-7-3 16:49:05的发言：

用白色填充！

那就用白色替换红色
给个示图看看

#7

radiofan2020-07-03 20:36

以下是引用吹水佬在2020-7-3 17:11:31的发言：

那就用白色替换红色
给个示图看看

只有本站会员才能查看附件，请登录

谢谢！

#8

吹水佬2020-07-04 11:49

给个参考代码，时间问题，像素色的判断就自己去测试
DECLARE LONG GdiplusStartup IN gdiplus LONG@, STRING@, LONG
DECLARE LONG GdiplusShutdown IN gdiplus LONG
DECLARE LONG GdipLoadImageFromFile IN gdiplus STRING@, LONG@
DECLARE LONG GdipGetImageWidth IN gdiplus LONG, LONG@
DECLARE LONG GdipGetImageHeight IN gdiplus LONG, LONG@
DECLARE LONG GdipBitmapGetPixel IN gdiplus LONG, LONG, LONG, LONG@
DECLARE LONG GdipBitmapSetPixel IN gdiplus LONG, LONG, LONG, LONG
DECLARE LONG GdipSaveImageToFile IN gdiplus LONG, STRING@, STRING@, LONG
DECLARE LONG GdipDisposeImage IN gdiplus LONG
inFile = "test0.jpg"
outFile = "test1.jpg"
stGSI = 0h01000000000000000000000000000000
pGDI = 0
GdiplusStartup(@pGDI, @stGSI, 0)
pImage = 0
GdipLoadImageFromFile(STRCONV(inFile+0h00,5), @pImage)
nWidth = 0
GdipGetImageWidth(pImage, @nWidth)
nHeight = 0
GdipGetImageHeight(pImage, @nHeight)
nARGB = 0
FOR i=0 TO nWidth-1
    FOR j=0 TO nHeight-1
        GdipBitmapGetPixel(pImage, i, j, @nARGB) && 取像素颜色
        R = BITAND(BITRSHIFT(nARGB,16), 0xFF)
        G = BITAND(BITRSHIFT(nARGB, 8), 0xFF)
        B = BITAND(nARGB, 0xFF)
        IF (在这判断符合条件的R、G、B值)
            nRGB = 要替换的颜色值
            GdipBitmapSetPixel(pImage, i, j, nRGB) && 替换像素颜色
        ENDIF
    ENDFOR
ENDFOR
CLSID_JPG = 0h01F47C55041AD3119A730000F81EF32E
GdipSaveImageToFile(pImage, STRCONV(outFile+0h00,5), CLSID_JPG, 0)
GdipDisposeImage(pImage)
GdiplusShutdown(pGDI)
CLEAR ALL
RETURN

[此贴子已经被作者于2020-7-4 11:51编辑过]

#9

radiofan2020-07-04 14:15

以下是引用吹水佬在2020-7-4 11:49:47的发言：

给个参考代码，时间问题，像素色的判断就自己去测试
DECLARE LONG GdiplusStartup IN gdiplus LONG@, STRING@, LONG
DECLARE LONG GdiplusShutdown IN gdiplus LONG
DECLARE LONG GdipLoadImageFromFile IN gdiplus STRING@, LONG@
DECLARE LONG GdipGetImageWidth IN gdiplus LONG, LONG@
DECLARE LONG GdipGetImageHeight IN gdiplus LONG, LONG@
DECLARE LONG GdipBitmapGetPixel IN gdiplus LONG, LONG, LONG, LONG@
DECLARE LONG GdipBitmapSetPixel IN gdiplus LONG, LONG, LONG, LONG
DECLARE LONG GdipSaveImageToFile IN gdiplus LONG, STRING@, STRING@, LONG
DECLARE LONG GdipDisposeImage IN gdiplus LONG
inFile = "test0.jpg"
outFile = "test1.jpg"
stGSI = 0h01000000000000000000000000000000
pGDI = 0
GdiplusStartup(@pGDI, @stGSI, 0)
pImage = 0
GdipLoadImageFromFile(STRCONV(inFile+0h00,5), @pImage)
nWidth = 0
GdipGetImageWidth(pImage, @nWidth)
nHeight = 0
GdipGetImageHeight(pImage, @nHeight)
nARGB = 0
FOR i=0 TO nWidth-1
    FOR j=0 TO nHeight-1
        GdipBitmapGetPixel(pImage, i, j, @nARGB) && 取像素颜色
        R = BITAND(BITRSHIFT(nARGB,16), 0xFF)
        G = BITAND(BITRSHIFT(nARGB, 8), 0xFF)
        B = BITAND(nARGB, 0xFF)
        IF (在这判断符合条件的R、G、B值)
            nRGB = 要替换的颜色值
            GdipBitmapSetPixel(pImage, i, j, nRGB) && 替换像素颜色
        ENDIF
    ENDFOR
ENDFOR
CLSID_JPG = 0h01F47C55041AD3119A730000F81EF32E
GdipSaveImageToFile(pImage, STRCONV(outFile+0h00,5), CLSID_JPG, 0)
GdipDisposeImage(pImage)
GdiplusShutdown(pGDI)
CLEAR ALL
RETURN

谢谢！我抽空测试下。对这个没有概念，需要从头学！

只有本站会员才能查看附件，请登录

有点成果

[此贴子已经被作者于2020-7-4 22:13编辑过]

#10

antony5212020-07-04 16:46

回复 5楼 radiofan

用透明才对

#11

radiofan2020-07-04 20:59

以下是引用antony521在2020-7-4 16:46:07的发言：

用透明才对

IF (在这判断符合条件的R、G、B值)
nRGB = 要替换的颜色值
GdipBitmapSetPixel(pImage, i, j, nRGB) && 替换像素颜色
ENDIF

对这个没有概念，需要从头学习

#12

radiofan2020-07-05 08:26

以下是引用antony521在2020-7-4 16:46:07的发言：

用透明才对

不好意思，忘了给分你了