http://vfp.sunyear.com.tw/ 歡迎 VFP 愛用者參與討論, 教學相長. garfield@sunyear.com.tw http://blogs.law.harvard.edu/tech/rss RSS Feed 2.2.4 Fri, 01 May 2026 17:35:51 GMT http://vfp.sunyear.com.tw/templates/subSilver/images/logo_phpBB_med.gif http://vfp.sunyear.com.tw/ 122 56 http://vfp.sunyear.com.tw/viewtopic.php?p=36992#36992 Fri, 01 May 2026 07:52:38 GMT http://vfp.sunyear.com.tw/viewtopic.php?p=36992#36992 發表人: <a href="http://vfp.sunyear.com.tw/profile.php?mode=viewprofile&u=6455" target="_blank">CPS0204</a><br /> 發表於: 星期五 五月 01, 2026 3:52 pm (GMT 8)<br /> <br /><span class="postbody"> 另一方法: <br /> * 1. 引用 FoxBarcode 類別 <br /> SET PROCEDURE TO FoxBarcode.prg ADDITIVE <br /> LOCAL loFbc, lcBarcodeImage <br /> <br /> * 2. 建立物件並設定屬性 <br /> loFbc = CREATEOBJECT("FoxBarcode") <br /> <br /> * 3. 設定條碼格式為 Code 128 (編號 110) <br /> * 您也可以設定圖片高度、顏色等 <br /> lcBarcodeImage = loFbc.BarcodeImage("YOUR-DATA-123", "C:\temp\barcode.png", 110) <br /> <br /> * 4. 在報表 (Report Designer) 中 <br /> * 放一個 Image 物件，ControlSource 指向 "C:\temp\barcode.png"</span><br /> CPS0204 VFP 討論區 http://vfp.sunyear.com.tw/posting.php?mode=quote&p=36992 http://vfp.sunyear.com.tw/viewtopic.php?p=36991#36991 Fri, 01 May 2026 06:36:42 GMT http://vfp.sunyear.com.tw/viewtopic.php?p=36991#36991 發表人: <a href="http://vfp.sunyear.com.tw/profile.php?mode=viewprofile&u=6455" target="_blank">CPS0204</a><br /> 主題: 分享:免費網頁生成條碼128碼<br /> 發表於: 星期五 五月 01, 2026 2:36 pm (GMT 8)<br /> <br /><span class="postbody"> * 需要有上網才行,存在c:\temp <br /> <br /> FUNCTION DownloadBarcode128(tcData) &&MUST FROM WEB <br /> LOCAL loHttp, lcUrl, lcSavePath, lcBinaryImage <br /> lcSavePath = "C:\temp\barcode128.png" <br /> * 使用專業條碼 API (bwip-js) <br /> lcUrl = "https://bwipjs-api.metafloor.com/?bcid=code128&text=" + tcData + "&scale=2&rotate=N" <br /> <br /> loHttp = CREATEOBJECT("WinHttp.WinHttpRequest.5.1") <br /> loHttp.Open("GET", lcUrl, .F.) <br /> loHttp.Send() <br /> <br /> IF loHttp.Status = 200 <br /> STRTOFILE(loHttp.ResponseBody, lcSavePath) <br /> RETURN lcSavePath <br /> ELSE <br /> RETURN "" <br /> ENDIF <br /> ENDFUNC <br /> <br /> <br /> <br /> <br /> ************* <br /> *你的程式呼叫他 <br /> my_txt='ABC-TEST12345' <br /> =DownloadBarcode128(MY_TXT)</span><br /> CPS0204 VFP 討論區 http://vfp.sunyear.com.tw/posting.php?mode=quote&p=36991 http://vfp.sunyear.com.tw/viewtopic.php?p=36990#36990 Thu, 30 Apr 2026 01:42:31 GMT http://vfp.sunyear.com.tw/viewtopic.php?p=36990#36990 發表人: <a href="http://vfp.sunyear.com.tw/profile.php?mode=viewprofile&u=41" target="_blank">syntech</a><br /> 發表於: 星期四 四月 30, 2026 9:42 am (GMT 8)<br /> <br /><span class="postbody"> 之前用過其他線上產生的網頁 <br /> 問題是, <br /> 他們都會改版,都會限制免費使用的範圍及次數 <br /> 就改用自己產生了<br />_________________<br />如果公司有下列困擾: <br /> 1. 找不到便宜,快速,簡易的 生產排程軟體 <br /> 2. 不知道如何快速排定 採購計劃 <br /> 3. 成本抓不準,自己算比軟體算有用 <br /> 4. 想學習系統規劃,想找系統架構的顧問 <br /> <br /> 請聯絡我們,也許我們幫得上忙</span><br /> syntech VFP 討論區 http://vfp.sunyear.com.tw/posting.php?mode=quote&p=36990 http://vfp.sunyear.com.tw/viewtopic.php?p=36989#36989 Wed, 29 Apr 2026 23:46:47 GMT http://vfp.sunyear.com.tw/viewtopic.php?p=36989#36989 發表人: <a href="http://vfp.sunyear.com.tw/profile.php?mode=viewprofile&u=6455" target="_blank">CPS0204</a><br /> 主題: 分享:免費呼叫網頁生成2維條碼<br /> 發表於: 星期四 四月 30, 2026 7:46 am (GMT 8)<br /> <br /><span class="postbody"> <span style="color: red">生成後自動下載到c:\temp中,只能png,需要能上網才行,斷網不行</span> <br /> <br /> LOCAL loHttp, lcUrl, lcBarcodeData, lcSavePath, lcBinaryImage <br /> <br /> * 1. 設定條碼內容與儲存路徑 <br /> lcBarcodeData = "Your_Barcode_Data_Here" && 您要轉換的內容 <br /> lcSavePath = "C:\temp\myqrcode.png" <br /> * 使用 QRserver API (免費、快速) <br /> lcUrl = "https://api.qrserver.com/v1/create-qr-code/?size=300x300&data=" + lcBarcodeData <br /> <br /> * 2. 建立 HTTP 物件 (使用 WinHttp) <br /> loHttp = CREATEOBJECT("WinHttp.WinHttpRequest.5.1") <br /> <br /> TRY <br /> * 3. 發送請求 <br /> loHttp.Open("GET", lcUrl, .F.) <br /> loHttp.Send() <br /> <br /> * 4. 檢查是否成功抓取 <br /> IF loHttp.Status = 200 <br /> lcBinaryImage = loHttp.ResponseBody <br /> <br /> * 5. 使用 STRTOFILE 將二進位資料寫入 C:\temp\ <br /> IF !DIRECTORY("C:\temp") <br /> MD C:\temp <br /> ENDIF <br /> <br /> STRTOFILE(lcBinaryImage, lcSavePath) <br /> MESSAGEBOX("QR Code 已成功下載至 " + lcSavePath, 64, "系統提示") <br /> ELSE <br /> MESSAGEBOX("下載失敗，錯誤代碼：" + TRANSFORM(loHttp.Status), 16, "系統錯誤") <br /> ENDIF <br /> <br /> CATCH TO loError <br /> MESSAGEBOX("連線異常：" + loError.Message, 16, "錯誤提示") <br /> ENDTRY <br /> <br /> loHttp = NULL</span><br /> CPS0204 VFP 討論區 http://vfp.sunyear.com.tw/posting.php?mode=quote&p=36989