<?xml version="1.0" encoding="big5" ?>
<rss version="2.0" xmlns:dc="http://purl.org/dc/elements/1.1/"
xmlns:annotate="http://purl.org/rss/1.0/modules/annotate/" xmlns:rdf="http://www.w3.org/1999/02/22-rdf-syntax-ns#">
<!--
	This feed generated for Anonymous
	More info at http://naklon.info/rss/about.htm
-->
<channel>
<title>VFP 愛用者社區</title>
<link>http://vfp.sunyear.com.tw/</link>
<description>本討論區為 Visual Foxpro 愛用者經驗交流的地方, 請多多利用&quot;搜尋&quot;的功能, 先查看看有無前例可循, 如果還有不懂的再發問. 部份主題有附加檔案, 須先註冊成為社區居民才可以下載.</description>
<managingEditor>garfield@sunyear.com.tw</managingEditor>
<docs>http://blogs.law.harvard.edu/tech/rss</docs>
<generator>RSS Feed 2.2.4</generator>
<lastBuildDate>Sat, 09 May 2026 04:10:38 GMT</lastBuildDate>
<image>
	<url>http://vfp.sunyear.com.tw/templates/subSilver/images/logo_phpBB_med.gif</url>
	<title>VFP 愛用者社區</title>
	<link>http://vfp.sunyear.com.tw/</link>
	<width>122</width>
	<height>56</height>
</image>
<item>
<title>VFP 討論區 :: RE: 分享:免費呼叫網頁生成2維條碼</title>
<link>http://vfp.sunyear.com.tw/viewtopic.php?p=36994#36994</link>
<pubDate>Thu, 07 May 2026 01:21:38 GMT</pubDate>
<guid isPermaLink="true">http://vfp.sunyear.com.tw/viewtopic.php?p=36994#36994</guid>
<description>發表人: &lt;a href=&quot;http://vfp.sunyear.com.tw/profile.php?mode=viewprofile&amp;u=6455&quot; target=&quot;_blank&quot;&gt;CPS0204&lt;/a&gt;&lt;br /&gt;
主題: qrcode&lt;br /&gt;
發表於: 星期四 五月 07, 2026 9:21 am (GMT 8)&lt;br /&gt;
&lt;br /&gt;&lt;span class="postbody"&gt;
也可以不上網,直接生成 
&lt;br /&gt;

&lt;br /&gt;
PATH0='\quricol32.DLL'  &lt;span style=&quot;color: red&quot;&gt;&amp;&amp;須有此檔案,登入可以下載&lt;/span&gt;
&lt;br /&gt;

&lt;br /&gt;
 
&lt;br /&gt;
IF !FILE(PATH0)
&lt;br /&gt;
	=MESSAGEBOX('錯誤:未安裝  quricol32.DLL 在ERP 主目錄,請洽安裝先'+CHR(13)+PATH0,6,ZZ_BOX)
&lt;br /&gt;
	RETURN
&lt;br /&gt;
ELSE
&lt;br /&gt;
*	=MESSAGEBOX('FOUND DLL')
&lt;br /&gt;
*	RETURN
&lt;br /&gt;
ENDIF
&lt;br /&gt;

&lt;br /&gt;

&lt;br /&gt;

&lt;br /&gt;

&lt;br /&gt;
DECLARE GenerateBMP IN quricol32.DLL STRING, STRING, INTEGER,INTEGER,INTEGER
&lt;br /&gt;
 LB29='\BARCODE2W\FILE-'+SYS15+'.BMP'
&lt;br /&gt;
	 
&lt;br /&gt;
*!*	*!*		以下是 FoxPro 的範例, 會產生 BMP 與 PNG 檔, 有了圖檔, 在 FoxPro 就能列印了
&lt;br /&gt;
*!*	*!*	declare GenerateBMP in quricol32.dll string, string, integer,integer,integer
&lt;br /&gt;
*!*	*!*	 declare GeneratePNG in quricol32.dll string, string, integer,integer,integer
&lt;br /&gt;
*!*	*!*	參數 1 圖檔名(可含路徑)
&lt;br /&gt;
*!*	*!*	參數 2 QR CODE 的資料, 會自動判斷長度與資料模式來決定版本.
&lt;br /&gt;
*!*	*!*	參數 3 QR CODE 圖像的邊界點數,如果是放在白紙上, 可設成 0.
&lt;br /&gt;
*!*	*!*	參數 4 點圖素的大小, 必須大於等於 3 或 4, 否則會太小, 刷不出來.
&lt;br /&gt;
*!*	*!*	參數 5 容錯等級 0 - 3, 0 是 L 7% 等級.
&lt;br /&gt;
*!*	*	GenerateBMP(&quot;MyQrcode.bmp&quot;,LIO1, 0, 3, 0)
&lt;br /&gt;
* 
&lt;br /&gt;
	 
&lt;br /&gt;
	TXT1=[THIS IS A QRCODE TEST BMP]
&lt;br /&gt;
	GenerateBMP(LB29,TXT1, 0, 4, 0)   &amp;&amp;生成BMP檔
&lt;br /&gt;

&lt;br /&gt;

&lt;br /&gt;
 在REPORT或LABEL 直接取用變數 LB29 (EXPRESSION OR VARIABLE NAME) 就可以了,不需要抓磁碟檔!&lt;/span&gt;&lt;br /&gt;
</description>
<dc:creator>CPS0204</dc:creator>
<dc:subject>VFP 討論區</dc:subject>
<annotate:reference rdf:resource="http://vfp.sunyear.com.tw/viewtopic.php?p=36989#36989" />
<comments>http://vfp.sunyear.com.tw/posting.php?mode=quote&amp;p=36994</comments>
</item>
<item>
<title>VFP 討論區 :: 分享:於vfox9程式運行中,hardcopy螢幕至jpg中</title>
<link>http://vfp.sunyear.com.tw/viewtopic.php?p=36993#36993</link>
<pubDate>Sun, 03 May 2026 06:30:32 GMT</pubDate>
<guid isPermaLink="true">http://vfp.sunyear.com.tw/viewtopic.php?p=36993#36993</guid>
<description>發表人: &lt;a href=&quot;http://vfp.sunyear.com.tw/profile.php?mode=viewprofile&amp;u=6455&quot; target=&quot;_blank&quot;&gt;CPS0204&lt;/a&gt;&lt;br /&gt;
主題: 分享:於vfox9程式運行中,hardcopy螢幕至jpg中&lt;br /&gt;
發表於: 星期日 五月 03, 2026 2:30 pm (GMT 8)&lt;br /&gt;
&lt;br /&gt;&lt;span class="postbody"&gt;
&lt;span style=&quot;color: red&quot;&gt;同目錄中需要有system.app,請下載後解rar&lt;/span&gt;
&lt;br /&gt;
*--- 設定 JPG 儲存路徑 ---
&lt;br /&gt;
LOCAL lcFile
&lt;br /&gt;
lcFile = &quot;C:\temp\HardCopy_&quot; + DTOS(DATE()) + &quot;_&quot; + STRTRAN(TIME(), &quot;:&quot;, &quot;&quot;) + &quot;.jpg&quot;
&lt;br /&gt;
*--- 正確的 VFP 宣告方式 ---
&lt;br /&gt;

&lt;br /&gt;
DECLARE keybd_event IN user32 ;
&lt;br /&gt;
    INTEGER bVk, ;
&lt;br /&gt;
    INTEGER bScan, ;
&lt;br /&gt;
    INTEGER dwFlags, ;
&lt;br /&gt;
    INTEGER dwExtraInfo
&lt;br /&gt;

&lt;br /&gt;
*--- 執行模擬 PrintScreen ---
&lt;br /&gt;
keybd_event(44, 0, 0, 0)
&lt;br /&gt;
*--- 2. 使用 GdiPlusX 處理剪貼簿並存檔 ---
&lt;br /&gt;
* 雖然不用 CopyFromScreen，但存成 JPG 仍建議用 GdiPlusX
&lt;br /&gt;
IF NOT FILE(&quot;System.app&quot;)
&lt;br /&gt;
    MESSAGEBOX(&quot;請確保目錄下有 System.app&quot;, 16)
&lt;br /&gt;
    RETURN
&lt;br /&gt;
ENDIF
&lt;br /&gt;

&lt;br /&gt;
DO System.app
&lt;br /&gt;
&lt;span style=&quot;color: red&quot;&gt;=messagebox('照相中...',6,1)  &amp;&amp;等待一秒&lt;/span&gt;
&lt;br /&gt;
WITH _Screen.System.Drawing
&lt;br /&gt;
    * 從剪貼簿取得圖片物件
&lt;br /&gt;
    LOCAL loBitmap AS xfcBitmap
&lt;br /&gt;
    loBitmap = .Bitmap.FromClipboard()
&lt;br /&gt;
    
&lt;br /&gt;
    IF ISNULL(loBitmap)
&lt;br /&gt;
        MESSAGEBOX(&quot;剪貼簿內無影像，擷取失敗&quot;, 4&lt;img src=&quot;http://vfp.sunyear.com.tw/images/smiles/icon_cool.gif&quot; alt=&quot;Cool&quot; border=&quot;0&quot; /&gt;
&lt;br /&gt;
        RETURN
&lt;br /&gt;
    ENDIF
&lt;br /&gt;

&lt;br /&gt;
    * 儲存為 JPG (品質設為 90)
&lt;br /&gt;
    loBitmap.Save(lcFile, .Imaging.ImageFormat.Jpeg)
&lt;br /&gt;
    MESSAGEBOX(&quot;螢幕已存檔至：&quot; + lcFile, 64, &quot;完成&quot;)
&lt;br /&gt;
ENDWITH&lt;/span&gt;&lt;br /&gt;
</description>
<dc:creator>CPS0204</dc:creator>
<dc:subject>VFP 討論區</dc:subject>
<annotate:reference rdf:resource="http://vfp.sunyear.com.tw/viewtopic.php?p=36993#36993" />
<comments>http://vfp.sunyear.com.tw/posting.php?mode=quote&amp;p=36993</comments>
</item>
<item>
<title>VFP 討論區 :: RE: 分享:免費網頁生成條碼128碼</title>
<link>http://vfp.sunyear.com.tw/viewtopic.php?p=36992#36992</link>
<pubDate>Fri, 01 May 2026 07:52:38 GMT</pubDate>
<guid isPermaLink="true">http://vfp.sunyear.com.tw/viewtopic.php?p=36992#36992</guid>
<description>發表人: &lt;a href=&quot;http://vfp.sunyear.com.tw/profile.php?mode=viewprofile&amp;u=6455&quot; target=&quot;_blank&quot;&gt;CPS0204&lt;/a&gt;&lt;br /&gt;

發表於: 星期五 五月 01, 2026 3:52 pm (GMT 8)&lt;br /&gt;
&lt;br /&gt;&lt;span class="postbody"&gt;
另一方法:
&lt;br /&gt;
* 1. 引用 FoxBarcode 類別
&lt;br /&gt;
SET PROCEDURE TO FoxBarcode.prg ADDITIVE
&lt;br /&gt;
LOCAL loFbc, lcBarcodeImage
&lt;br /&gt;

&lt;br /&gt;
* 2. 建立物件並設定屬性
&lt;br /&gt;
loFbc = CREATEOBJECT(&quot;FoxBarcode&quot;)
&lt;br /&gt;

&lt;br /&gt;
* 3. 設定條碼格式為 Code 128 (編號 110)
&lt;br /&gt;
* 您也可以設定圖片高度、顏色等
&lt;br /&gt;
lcBarcodeImage = loFbc.BarcodeImage(&quot;YOUR-DATA-123&quot;, &quot;C:\temp\barcode.png&quot;, 110)
&lt;br /&gt;

&lt;br /&gt;
* 4. 在報表 (Report Designer) 中
&lt;br /&gt;
* 放一個 Image 物件，ControlSource 指向 &quot;C:\temp\barcode.png&quot;&lt;/span&gt;&lt;br /&gt;
</description>
<dc:creator>CPS0204</dc:creator>
<dc:subject>VFP 討論區</dc:subject>
<annotate:reference rdf:resource="http://vfp.sunyear.com.tw/viewtopic.php?p=36991#36991" />
<comments>http://vfp.sunyear.com.tw/posting.php?mode=quote&amp;p=36992</comments>
</item>
<item>
<title>VFP 討論區 :: 分享:免費網頁生成條碼128碼</title>
<link>http://vfp.sunyear.com.tw/viewtopic.php?p=36991#36991</link>
<pubDate>Fri, 01 May 2026 06:36:42 GMT</pubDate>
<guid isPermaLink="true">http://vfp.sunyear.com.tw/viewtopic.php?p=36991#36991</guid>
<description>發表人: &lt;a href=&quot;http://vfp.sunyear.com.tw/profile.php?mode=viewprofile&amp;u=6455&quot; target=&quot;_blank&quot;&gt;CPS0204&lt;/a&gt;&lt;br /&gt;
主題: 分享:免費網頁生成條碼128碼&lt;br /&gt;
發表於: 星期五 五月 01, 2026 2:36 pm (GMT 8)&lt;br /&gt;
&lt;br /&gt;&lt;span class="postbody"&gt;
* 需要有上網才行,存在c:\temp
&lt;br /&gt;

&lt;br /&gt;
FUNCTION DownloadBarcode128(tcData)  &amp;&amp;MUST FROM WEB
&lt;br /&gt;
    LOCAL loHttp, lcUrl, lcSavePath, lcBinaryImage
&lt;br /&gt;
    lcSavePath = &quot;C:\temp\barcode128.png&quot;
&lt;br /&gt;
    * 使用專業條碼 API (bwip-js)
&lt;br /&gt;
    lcUrl = &quot;https://bwipjs-api.metafloor.com/?bcid=code128&amp;text=&quot; + tcData + &quot;&amp;scale=2&amp;rotate=N&quot;
&lt;br /&gt;
    
&lt;br /&gt;
    loHttp = CREATEOBJECT(&quot;WinHttp.WinHttpRequest.5.1&quot;)
&lt;br /&gt;
    loHttp.Open(&quot;GET&quot;, lcUrl, .F.)
&lt;br /&gt;
    loHttp.Send()
&lt;br /&gt;
    
&lt;br /&gt;
    IF loHttp.Status = 200
&lt;br /&gt;
        STRTOFILE(loHttp.ResponseBody, lcSavePath)
&lt;br /&gt;
        RETURN lcSavePath
&lt;br /&gt;
    ELSE
&lt;br /&gt;
        RETURN &quot;&quot;
&lt;br /&gt;
    ENDIF
&lt;br /&gt;
ENDFUNC
&lt;br /&gt;

&lt;br /&gt;

&lt;br /&gt;

&lt;br /&gt;

&lt;br /&gt;
*************
&lt;br /&gt;
*你的程式呼叫他
&lt;br /&gt;
my_txt='ABC-TEST12345'
&lt;br /&gt;
=DownloadBarcode128(MY_TXT)&lt;/span&gt;&lt;br /&gt;
</description>
<dc:creator>CPS0204</dc:creator>
<dc:subject>VFP 討論區</dc:subject>
<annotate:reference rdf:resource="http://vfp.sunyear.com.tw/viewtopic.php?p=36991#36991" />
<comments>http://vfp.sunyear.com.tw/posting.php?mode=quote&amp;p=36991</comments>
</item>
<item>
<title>VFP 討論區 :: RE: 分享:免費呼叫網頁生成2維條碼</title>
<link>http://vfp.sunyear.com.tw/viewtopic.php?p=36990#36990</link>
<pubDate>Thu, 30 Apr 2026 01:42:31 GMT</pubDate>
<guid isPermaLink="true">http://vfp.sunyear.com.tw/viewtopic.php?p=36990#36990</guid>
<description>發表人: &lt;a href=&quot;http://vfp.sunyear.com.tw/profile.php?mode=viewprofile&amp;u=41&quot; target=&quot;_blank&quot;&gt;syntech&lt;/a&gt;&lt;br /&gt;

發表於: 星期四 四月 30, 2026 9:42 am (GMT 8)&lt;br /&gt;
&lt;br /&gt;&lt;span class="postbody"&gt;
之前用過其他線上產生的網頁
&lt;br /&gt;
問題是,
&lt;br /&gt;
他們都會改版,都會限制免費使用的範圍及次數
&lt;br /&gt;
就改用自己產生了&lt;br /&gt;_________________&lt;br /&gt;如果公司有下列困擾:
&lt;br /&gt;
1. 找不到便宜,快速,簡易的 生產排程軟體
&lt;br /&gt;
2. 不知道如何快速排定 採購計劃
&lt;br /&gt;
3. 成本抓不準,自己算比軟體算有用
&lt;br /&gt;
4. 想學習系統規劃,想找系統架構的顧問
&lt;br /&gt;

&lt;br /&gt;
請聯絡我們,也許我們幫得上忙&lt;/span&gt;&lt;br /&gt;
</description>
<dc:creator>syntech</dc:creator>
<dc:subject>VFP 討論區</dc:subject>
<annotate:reference rdf:resource="http://vfp.sunyear.com.tw/viewtopic.php?p=36989#36989" />
<comments>http://vfp.sunyear.com.tw/posting.php?mode=quote&amp;p=36990</comments>
</item>
<item>
<title>VFP 討論區 :: 分享:免費呼叫網頁生成2維條碼</title>
<link>http://vfp.sunyear.com.tw/viewtopic.php?p=36989#36989</link>
<pubDate>Wed, 29 Apr 2026 23:46:47 GMT</pubDate>
<guid isPermaLink="true">http://vfp.sunyear.com.tw/viewtopic.php?p=36989#36989</guid>
<description>發表人: &lt;a href=&quot;http://vfp.sunyear.com.tw/profile.php?mode=viewprofile&amp;u=6455&quot; target=&quot;_blank&quot;&gt;CPS0204&lt;/a&gt;&lt;br /&gt;
主題: 分享:免費呼叫網頁生成2維條碼&lt;br /&gt;
發表於: 星期四 四月 30, 2026 7:46 am (GMT 8)&lt;br /&gt;
&lt;br /&gt;&lt;span class="postbody"&gt;
&lt;span style=&quot;color: red&quot;&gt;生成後自動下載到c:\temp中,只能png,需要能上網才行,斷網不行&lt;/span&gt;
&lt;br /&gt;

&lt;br /&gt;
LOCAL loHttp, lcUrl, lcBarcodeData, lcSavePath, lcBinaryImage
&lt;br /&gt;

&lt;br /&gt;
* 1. 設定條碼內容與儲存路徑
&lt;br /&gt;
lcBarcodeData = &quot;Your_Barcode_Data_Here&quot;  &amp;&amp; 您要轉換的內容
&lt;br /&gt;
lcSavePath = &quot;C:\temp\myqrcode.png&quot;
&lt;br /&gt;
* 使用 QRserver API (免費、快速)
&lt;br /&gt;
lcUrl = &quot;https://api.qrserver.com/v1/create-qr-code/?size=300x300&amp;data=&quot; + lcBarcodeData
&lt;br /&gt;

&lt;br /&gt;
* 2. 建立 HTTP 物件 (使用 WinHttp)
&lt;br /&gt;
loHttp = CREATEOBJECT(&quot;WinHttp.WinHttpRequest.5.1&quot;)
&lt;br /&gt;

&lt;br /&gt;
TRY
&lt;br /&gt;
    * 3. 發送請求
&lt;br /&gt;
    loHttp.Open(&quot;GET&quot;, lcUrl, .F.)
&lt;br /&gt;
    loHttp.Send()
&lt;br /&gt;
    
&lt;br /&gt;
    * 4. 檢查是否成功抓取
&lt;br /&gt;
    IF loHttp.Status = 200
&lt;br /&gt;
        lcBinaryImage = loHttp.ResponseBody
&lt;br /&gt;
        
&lt;br /&gt;
        * 5. 使用 STRTOFILE 將二進位資料寫入 C:\temp\
&lt;br /&gt;
        IF !DIRECTORY(&quot;C:\temp&quot;)
&lt;br /&gt;
            MD C:\temp
&lt;br /&gt;
        ENDIF
&lt;br /&gt;
        
&lt;br /&gt;
        STRTOFILE(lcBinaryImage, lcSavePath)
&lt;br /&gt;
        MESSAGEBOX(&quot;QR Code 已成功下載至 &quot; + lcSavePath, 64, &quot;系統提示&quot;)
&lt;br /&gt;
    ELSE
&lt;br /&gt;
        MESSAGEBOX(&quot;下載失敗，錯誤代碼：&quot; + TRANSFORM(loHttp.Status), 16, &quot;系統錯誤&quot;)
&lt;br /&gt;
    ENDIF
&lt;br /&gt;
    
&lt;br /&gt;
CATCH TO loError
&lt;br /&gt;
    MESSAGEBOX(&quot;連線異常：&quot; + loError.Message, 16, &quot;錯誤提示&quot;)
&lt;br /&gt;
ENDTRY
&lt;br /&gt;

&lt;br /&gt;
loHttp = NULL&lt;/span&gt;&lt;br /&gt;
</description>
<dc:creator>CPS0204</dc:creator>
<dc:subject>VFP 討論區</dc:subject>
<annotate:reference rdf:resource="http://vfp.sunyear.com.tw/viewtopic.php?p=36989#36989" />
<comments>http://vfp.sunyear.com.tw/posting.php?mode=quote&amp;p=36989</comments>
</item>
</channel>
</rss>

<!-- Page generation time: 0.005s  - Memory Usage: 1.630 Mb  - GZIP enabled -->