pb 读取图片中的条形码 二维码

在pb中读取图片中的条形码和二维码可以使用第三方库来实现，比如ZXing。首先需要将ZXing库加入到工程中，并在代码中引用它。然后加载待处理的图片，并调用ZXing库提供的二维码和条形码识别方法来进行识别。
对于二维码的识别，可以使用以下代码：
Dim qrcode As Object
set qrcode=createobject("qrcode")
qrcodedim.Load(tmpPath$,2000) ' 读取待解码图像
if qrcodedim is Nothing Then Return ""
s=qrcode.Decode(qrcodedim) ' 解码
if s.Length>0 Then Return s ' 输出识别结果
对于条形码的识别，可以使用以下代码：
Dim barcode As Object
set barcode=createobject("barcode")
BarCode.Load(tmpPath$,2000) ' 读取待解码图像
if barcode is Nothing Then Return ""
s=barcode.Decode(barCode, 0) ' 解码
if s.Length>0 Then Return s ' 输出识别结果
需要注意的是，识别的图片质量要足够高，才能获得准确的识别结果。另外，在运行识别程序时，需要为其提供足够的处理器时间和内存。如果识别不出来，可以尝试调整处理的参数。