VFP 愛用者社區

CPS0204 · 註冊時間: 2014-08-24 文章: 509 第 1 樓

生成後自動下載到c:\temp中,只能png,需要能上網才行,斷網不行

LOCAL loHttp, lcUrl, lcBarcodeData, lcSavePath, lcBinaryImage

* 1. 設定條碼內容與儲存路徑
lcBarcodeData = "Your_Barcode_Data_Here" && 您要轉換的內容
lcSavePath = "C:\temp\myqrcode.png"
* 使用 QRserver API (免費、快速)
lcUrl = "https://api.qrserver.com/v1/create-qr-code/?size=300x300&data=" + lcBarcodeData

* 2. 建立 HTTP 物件 (使用 WinHttp)
loHttp = CREATEOBJECT("WinHttp.WinHttpRequest.5.1")

TRY
* 3. 發送請求
loHttp.Open("GET", lcUrl, .F.)
loHttp.Send()

* 4. 檢查是否成功抓取
IF loHttp.Status = 200
lcBinaryImage = loHttp.ResponseBody

* 5. 使用 STRTOFILE 將二進位資料寫入 C:\temp\
IF !DIRECTORY("C:\temp")
MD C:\temp
ENDIF

STRTOFILE(lcBinaryImage, lcSavePath)
MESSAGEBOX("QR Code 已成功下載至 " + lcSavePath, 64, "系統提示")
ELSE
MESSAGEBOX("下載失敗，錯誤代碼：" + TRANSFORM(loHttp.Status), 16, "系統錯誤")
ENDIF

CATCH TO loError
MESSAGEBOX("連線異常：" + loError.Message, 16, "錯誤提示")
ENDTRY

loHttp = NULL

syntech · 發表於: 星期四四月 30, 2026 9:42 am 文章主題:

之前用過其他線上產生的網頁
問題是,
他們都會改版,都會限制免費使用的範圍及次數
就改用自己產生了

CPS0204 · 註冊時間: 2014-08-24 文章: 509 第 3 樓

也可以不上網,直接生成

PATH0='\quricol32.DLL' &&須有此檔案,登入可以下載

IF !FILE(PATH0)
=MESSAGEBOX('錯誤:未安裝 quricol32.DLL 在ERP 主目錄,請洽安裝先'+CHR(13)+PATH0,6,ZZ_BOX)
RETURN
ELSE
* =MESSAGEBOX('FOUND DLL')
* RETURN
ENDIF

DECLARE GenerateBMP IN quricol32.DLL STRING, STRING, INTEGER,INTEGER,INTEGER
LB29='\BARCODE2W\FILE-'+SYS15+'.BMP'

*!* *!* 以下是 FoxPro 的範例, 會產生 BMP 與 PNG 檔, 有了圖檔, 在 FoxPro 就能列印了
*!* *!* declare GenerateBMP in quricol32.dll string, string, integer,integer,integer
*!* *!* declare GeneratePNG in quricol32.dll string, string, integer,integer,integer
*!* *!* 參數 1 圖檔名(可含路徑)
*!* *!* 參數 2 QR CODE 的資料, 會自動判斷長度與資料模式來決定版本.
*!* *!* 參數 3 QR CODE 圖像的邊界點數,如果是放在白紙上, 可設成 0.
*!* *!* 參數 4 點圖素的大小, 必須大於等於 3 或 4, 否則會太小, 刷不出來.
*!* *!* 參數 5 容錯等級 0 - 3, 0 是 L 7% 等級.
*!* * GenerateBMP("MyQrcode.bmp",LIO1, 0, 3, 0)
*

TXT1=[THIS IS A QRCODE TEST BMP]
GenerateBMP(LB29,TXT1, 0, 4, 0) &&生成BMP檔

在REPORT或LABEL 直接取用變數 LB29 (EXPRESSION OR VARIABLE NAME) 就可以了,不需要抓磁碟檔!