VFP 愛用者社區

[CPS0204]

生成後自動下載到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]

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