这是我昨天问过看哪个先取到二维码就用哪个的二维码的问题,有人写了,我补充了一些
实际测试效果还行,跟本地取二维码几乎没差,就是因为多线程的问题,导致反复生成二维码的时候
有时候会崩溃,请高手指点一下多线程的写法
窗口程序集名 | 保 留 | 保 留 | 备 注 | 窗口程序集1 | | | | 变量名 | 类 型 | 数组 | 备 注 | 二维码1 | 字节集 | | 二维码2 | 字节集 | | 二维码3 | 字节集 | | 线程1 | 整数型 | | 线程2 | 整数型 | | 线程3 | 整数型 | | 启动线程 (&子程序1, , 线程1 )启动线程 (&子程序2, , 线程2 )启动线程 (&子程序3, , 线程3 )子程序4 ()调试输出 (取字节集长度 (二维码1 )) 调试输出 (取字节集长度 (二维码2 )) 调试输出 (取字节集长度 (二维码3 )) 二维码1 = 网页_验证码读取 (“http://qr.liantu.com/api.php?bg=f3f3f3&fg=ff0000&gc=222222&el=l&w=150&m=10&text=” + 编码_URL编码_UTF8 (编辑框1.内容 ), )二维码2 = 网页_验证码读取 (“http://api.kuaipai.cn/qr?chl=” + 编码_URL编码_UTF8 (编辑框1.内容 ), )二维码3 = 网页_验证码读取 (“http://s.jiathis.com/qrcode.php?url=” + 编码_URL编码_UTF8 (编辑框1.内容 ), )处理事件 ()计次循环首 (5, i ) 如果真 (二维码1 ≠ { })图片框1.图片 = 二维码1 关闭线程句柄 (线程1 )关闭线程句柄 (线程2 )关闭线程句柄 (线程3 )二维码1 = 取空白字节集 (0 )二维码2 = 取空白字节集 (0 )二维码3 = 取空白字节集 (0 )跳出循环 ()如果真 (二维码2 ≠ { })图片框1.图片 = 二维码2 关闭线程句柄 (线程1 )关闭线程句柄 (线程2 )关闭线程句柄 (线程3 )二维码1 = 取空白字节集 (0 )二维码2 = 取空白字节集 (0 )二维码3 = 取空白字节集 (0 )跳出循环 ()如果真 (二维码3 ≠ { })图片框1.图片 = 二维码3 关闭线程句柄 (线程1 )关闭线程句柄 (线程2 )关闭线程句柄 (线程3 )二维码1 = 取空白字节集 (0 )二维码2 = 取空白字节集 (0 )二维码3 = 取空白字节集 (0 )跳出循环 ()程序_延时 (500)计次循环尾 ()
|