EAN-13格式位图条形码识别

图片句柄_局部 ＝ LoadImageA (0, 图片名称_程序集, 0, 0, 0, 16)
' 获取位图头信息
.如果真 (GetObjectA (图片句柄_局部, 24, 图片信息头_局部) ＝ 0)
返回 ()
.如果真结束
' 获取像素数据区所占用的字节数
图片框_原图.宽度 ＝ 图片信息头_局部.bmWidth
图片框_原图.高度 ＝ 图片信息头_局部.bmHeight
字节长度_程序集 ＝ 图片信息头_局部.bmWidth × 图片信息头_局部.bmHeight × 图片信息头_局部.bmBitsPixel ÷ 8
图片数据_局部 ＝ 申请内存 (字节长度_程序集, 真)
GetBitmapBits (图片句柄_局部, 字节长度_程序集, 图片数据_局部)
图片数据_程序集 ＝ 指针到字节集 (图片数据_局部, 字节长度_程序集)
DeleteObject (图片句柄_局部)
释放内存 (图片数据_局部)
易语言EAN-13格式位图条形码识别例子。