VFP创建和读取二维码的DLL库

最近社群里面有问VFP怎么读取二维码， 

并发了一段代码是VB的， 需要转换为VFP的。其实VB代码，改成VFP也是很容易的。

VB  代码长这样

Option Explicit


Private Declare Function ScanQRCode Lib "D:\vb\QRCodeLib_vb6\QRCodeLib.dll" Alias "ScanQRCodeA" (ByVal imgPath As String, ByRef imgResult As Byte) As Long
Private Declare Function CreateQRCode Lib "D:\vb\QRCodeLib_vb6\QRCodeLib.dll" Alias "CreateQRCodeA" (ByVal picText As String, ByVal imgSCALE As Long, ByVal picPath