VFP 愛用者社區

[CPS0204]

* 需要有上網才行,存在c:\temp

FUNCTION DownloadBarcode128(tcData) &&MUST FROM WEB
LOCAL loHttp, lcUrl, lcSavePath, lcBinaryImage
lcSavePath = "C:\temp\barcode128.png"
* 使用專業條碼 API (bwip-js)
lcUrl = "https://bwipjs-api.metafloor.com/?bcid=code128&text=" + tcData + "&scale=2&rotate=N"

loHttp = CREATEOBJECT("WinHttp.WinHttpRequest.5.1")
loHttp.Open("GET", lcUrl, .F.)
loHttp.Send()

IF loHttp.Status = 200
STRTOFILE(loHttp.ResponseBody, lcSavePath)
RETURN lcSavePath
ELSE
RETURN ""
ENDIF
ENDFUNC




*************
*你的程式呼叫他
my_txt='ABC-TEST12345'
=DownloadBarcode128(MY_TXT)

[CPS0204]

另一方法:
* 1. 引用 FoxBarcode 類別
SET PROCEDURE TO FoxBarcode.prg ADDITIVE
LOCAL loFbc, lcBarcodeImage

* 2. 建立物件並設定屬性
loFbc = CREATEOBJECT("FoxBarcode")

* 3. 設定條碼格式為 Code 128 (編號 110)
* 您也可以設定圖片高度、顏色等
lcBarcodeImage = loFbc.BarcodeImage("YOUR-DATA-123", "C:\temp\barcode.png", 110)

* 4. 在報表 (Report Designer) 中
* 放一個 Image 物件，ControlSource 指向 "C:\temp\barcode.png"