VFP 愛用者社區

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

剛問AI:可以顯示先看照片
期望可以突破UNICODE限制....也無需使用造字檔,已經測過可行(AI教的),讀寫,轉EXCEL的精神就是:不讓VFP9 轉BIG5,直接呼叫剪貼簿的COPY/PASTE
這些異體字(堃堃堃)等是手工輸入在 MS SQL 後台的
可以應用在ERP 的客戶廠商名稱欄位,地址等欄位
無須外掛DLL等

1.先撈進ACTIVE X MS FORMS 2.0 TEXTBOX (名稱=OLE1),先開啟一個NEW FORM,然後撈進來此OLE控件....再新增一個按紐 COMMAND1 (查MS-SQL資料)
2.後台的 TABLE ,的異體字欄位:需設定為NVARCHAR(1000)設大一點
後台的TABLE= CPU (隨便取名),NVARCHAR() 欄位名稱=V20 (隨便取名)

3.在此FORM的COMMAND1.CLICK寫下:
DECLARE LONG OpenClipboard IN user32 LONG hwnd
DECLARE LONG CloseClipboard IN user32
DECLARE LONG EmptyClipboard IN user32
DECLARE LONG SetClipboardData IN user32 LONG uFormat, LONG hMem
DECLARE LONG GlobalAlloc IN kernel32 LONG uFlags, LONG dwBytes
DECLARE LONG GlobalLock IN kernel32 LONG hMem
DECLARE LONG GlobalUnlock IN kernel32 LONG hMem
DECLARE LONG RtlMoveMemory IN kernel32 LONG pDest, STRING pSource, LONG dwBytes

CON=RET_SQL_CON() && 連接後台ODBC SQL CONNECT 通道

AA=[SELECT CAST(V20 AS VARBINARY(1000)) V21, DATALENGTH(V20) AS my_true_len FROM CPU ]
BB=SQLEXEC(CON,AA,'TEMP1')
=SQLDISCONNECT(CON)
SELECT TEMP1
lnLen= my_true_len+2 && 長度+4不行

IF OpenClipboard(0) != 0
EmptyClipboard()

* 使用強行加大的安全長度來申請全域記憶體
lnHmem = GlobalAlloc(2, lnLen)
IF lnHmem != 0
lnPtr = GlobalLock(lnHmem)

* 盲刷寫入，此時結尾會自帶乾淨的空字元（Null-terminator），對 Unicode 來說是完美的結束標記
RtlMoveMemory(lnPtr, lcUtf16Raw, lnLen)

GlobalUnlock(lnHmem)
SetClipboardData(13, lnHmem)
ENDIF
CloseClipboard()
ENDIF
thisform.ole1.Object.Value = ""
* 穿越 COM 外殼，叫微軟 TextBox 內核直接去跟 Windows 系統申請剛剛灌進去的高清 Unicode 剪貼簿
thisform.ole1.Object.Paste()

內容等一下補上

CPS0204 · 註冊時間: 2014-08-24 文章: 524 第 2 樓

逆向將UNICODE UTF16 寫入MS SQL,已經測過可行(AI教的),原本不能寫入長文字(有255)限制,現在可以了,換行也可以
後台ms sql table nvarchar(800) 請設大一點
1.手動輸入在剛剛建立的FORM.OLE1上面隨便輸入一些異體字(例如:堃堃堃)

WRITE COMMAND.CLICK 如下
LOCAL lcHexStr, lcSqlCmd, lnResult

* ==============================================================================
*
LOCAL lcSqlCmd, lnResult, CON, BB
LOCAL lnHmem, lnPtr, lnSize, lcRawBuffer, lbBlobData
LOCAL laErr[1]

* 透過您的全域變數或配置控管提示方塊標題（若無此變數可改為常規字串）
IF TYPE("ZZ_BOX") # "C"
ZZ_BOX = "系統提示"
ENDIF

* ==============================================================================
* 1. 宣告 Windows 內核記憶體與剪貼簿 Win32 API 通廊
* ==============================================================================
DECLARE LONG OpenClipboard IN user32 LONG hwnd
DECLARE LONG CloseClipboard IN user32
DECLARE LONG GetClipboardData IN user32 LONG uFormat
DECLARE LONG GlobalLock IN kernel32 LONG hMem
DECLARE LONG GlobalUnlock IN kernel32 LONG hMem
DECLARE LONG GlobalSize IN kernel32 LONG hMem

* 剛性指定第一個參數為 STRING @，專門對齊 VFOX 內部變數的實體指針位址
DECLARE LONG RtlMoveMemory IN kernel32 STRING @pDest, LONG pSource, LONG dwBytes

* ==============================================================================
* 2. 畫面背景截取：命令 Forms 2.0 控制項在背景直接圈選並發動原生複製
* ==============================================================================
* ?? 核心優化：全面拔除 SetFocus()！直接調用內核屬性，不干擾使用者滑鼠游標
thisform.ole1.Object.SelStart = 0
thisform.ole1.Object.SelLength = 99999999 && 直接給予超大值，強制圈選全部多行文字
thisform.ole1.Object.Copy() && 擊發微軟原生 Unicode 複製協定！

* ==============================================================================
* 3. 記憶體攔截：直接向 Windows 系統剪貼簿榨出這塊純淨的 UTF-16LE 二進位肉體
* ==============================================================================
lcRawBuffer = ""

IF OpenClipboard(0) != 0
lnHmem = GetClipboardData(13) && 讀取標準 Unicode 剪貼簿快取 (CF_UNICODETEXT = 13)

IF lnHmem != 0
lnPtr = GlobalLock(lnHmem)
lnSize = GlobalSize(lnHmem)

* 排除 Windows 結尾自動補的空字元位元組 (Unicode Null-Terminator 佔 2 Bytes)
IF lnSize > 2
lnSize = lnSize - 2
ENDIF

IF lnSize > 0
* 在 VFOX 大腦內部開闢一塊尺寸完全剛好、不浪費空間的安全貨櫃
lcRawBuffer = REPLICATE(CHR(0), lnSize)

* 剛性撈回 VFOX 變數中，此時裡面裝的是 100% 純正、未受 Big5 污染的 UTF-16 肉體
=RtlMoveMemory(@lcRawBuffer, lnPtr, lnSize)
ENDIF

=GlobalUnlock(lnHmem)
ENDIF
=CloseClipboard()
ENDIF

* 取消畫面的選取狀態，維持 ERP 系統視覺衛生乾淨
thisform.ole1.Object.SelLength = 0

* ==============================================================================
* 4. ?? 降維打擊：將二進位肉體轉型為萬靈 Blob 變數，並利用【?】特權參數通道盲刷
* ==============================================================================
* ?? 關鍵核心：徹底廢除 CONVERT(NVARCHAR, 0x...) 與大字串引號拼接！
* 我們直接將剛剛撈回來的純二進位字串，強行 CAST 成 VFOX 內核最頂階的 Blob 物件（W 類型）
lbBlobData = CAST(lcRawBuffer AS Blob)

IF !EMPTY(lbBlobData)
* 呼叫您的資料庫連線控制柄
CON = RET_SQL_CON()

IF CON <= 0
=MESSAGEBOX('MS SQL 資料庫後台連線失敗，請檢查工廠網路或控柄狀態！', 16, ZZ_BOX)
RETURN
ENDIF

* ?? ?? ?? 世紀解盲打法：
* 我們在 SQL 語句中直接指派「?lbBlobData」動態變數指針。
* 這段 SQL 字串長度極短，完美繞過 VFOX9 引號字串 255 字元的致命物理限制！
* VFOX 的 ODBC 驅動一看到問號，會直接在底層發動動態記憶體綁定，把整串長備註 100% 全量灌入後台！
lcSqlCmd = [UPDATE CPU SET V20 = ?lbBlobData WHERE CPU_NUM = 'A2']

* 發射至 MS SQL 2014 後台
BB = SQLEXEC(CON, lcSqlCmd)
=SQLDISCONNECT(CON)

IF BB < 0
=AERROR(laErr)
=MESSAGEBOX('SQL 寫入失敗！底層核心回報原因：' + laErr[2], 16, ZZ_BOX)
ELSE
=MESSAGEBOX('WRITE TO SQL OK! 多行長備註異體字路由正式完美封頂通車！', 64, ZZ_BOX)
ENDIF
ELSE
=MESSAGEBOX('截取畫面控制項之 Unicode 數據資產失敗，緩衝區為空！', 16, ZZ_BOX)
ENDIF

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

由於report 無法成功(已經試過即時轉bmp檔)在report依樣不成功
有關此異體字的列印就交由拋轉excel來列印

command_xls.click如下:

******* REPORT TO EXCEL
TITLE0='異體字轉XLS'
ExcelApp= CREATEOBJECT("Excel.Application")

ExcelApp.Workbooks.ADD
ExcelActiveSheet=ExcelApp.ActiveSheet
ExcelApp.ActiveWindow.WINDOWSTATE = 2
ExcelActiveSheet.NAME =TITLE0

ExcelApp.COLUMNS("A").COLUMNWIDTH =40
ExcelApp.Cells(1,1).FONT.SIZE=14
ExcelApp.Cells(2,1).FONT.SIZE=14
ExcelApp.Cells(3,1).FONT.SIZE=12
ExcelApp.RANGE("A5:A5").FONT.SIZE=9
ExcelApp.RANGE("A5:A5").FONT.Bold = .T.

ExcelApp.Cells(5,1).VALUE = "客戶名稱"

ExcelActiveSheet.PageSetup.ORIENTATION =2 && ?置打印方向： 1 直向 2橫向

thisform.ole1.Object.SelStart = 0
thisform.ole1.Object.SelLength = 99999999
thisform.ole1.Object.Copy() && 擊發微軟原生 Unicode 複製協定

* 2. 取消選取狀態，維持畫面衛生
thisform.ole1.Object.SelLength = 0

* 3. ?? 降維打擊：強迫 Excel 儲存格直接從剪貼簿收貨，徹底絕殺 VFOX 變數的 Big5 污染！
ExcelApp.Cells(6, 1).Select() && 物理定錨選取該儲存格
ExcelApp.ActiveSheet.Paste() && 擊發 Excel 原生貼上！異體字、簡體長地址完美現形！

ExcelApp.VISIBLE = .T.

CPS0204 · 註冊時間: 2014-08-24 文章: 524 第 4 樓

1.客戶基本檔內欄位如下:
客戶代號 CHAR(10)
客戶名稱 VARCHAR(100) &&BIG5碼,平時ERP都用此欄
客戶簡稱 VARCHAR(20) &&BIG5碼,平時ERP都用此欄
客戶全名(有支持異體字) NVARCHAR(800).....在某些對帳單或對外報表,就抓此欄來轉EXCEL,方可列印,因為不支持REPORT FORM
如果是銷貨單,只能套印點鎮印表機,暫時沒有想到好的REPORT 方法,有可能
採取BMP製作好之後,放到備註欄位,遇到這種客戶(EXP: 咙堃股份有限公司)
為了表示尊重客戶名稱,可能先在WINDOWS 截圖成BMP然後再VFOX9 的REPORT列印此OLE欄位!來取代上述的客戶名稱C(100)BIG5碼!

以上乃使用VFOX9的延續方法UNICODE....與客戶溝通之後應該可以諒解不便!

syntech · 發表於: 星期一六月 15, 2026 9:55 pm 文章主題:

我好像看到用波動砲打小鳥 XD
感覺很有道理呀

CPS0204 · 註冊時間: 2014-08-24 文章: 524 第 6 樓

列印異體字report form 也解決

syntech · 發表於: 星期二六月 16, 2026 9:54 am 文章主題:

改用其他報表工具,改用其他開發工具做UI. Orz

CPS0204 · 註冊時間: 2014-08-24 文章: 524 第 8 樓

..改用其他報表工具,改用其他開發工具做UI. Orz

恩
我試一下直接開網頁,呼叫php 直接讀取ms sql (unicode)使用php 生成對帳單!
剛剛使用小畫家手畫一個客戶全名的BMP檔(16色)
然後拉至VFOX9 REPORT 當中當作物件(OLE),可以達到目的
謝謝

CPS0204 · 註冊時間: 2014-08-24 文章: 524 第 9 樓

unicode異體字無法列印(report form)解決了
採取vfox9 呼叫php 網頁,讓php讀取ms-sql 異體字,再自動生成(客戶名稱)的unicode的bmp檔

然後傳回本機存放在 memo檔內
此時report form 就可以取用此bmp來列印!不需要客戶自己去小畫家製做bmp
(在客戶基本檔維護畫面中,有異體字需求者,就要按一次生成bmp按鈕),日後直接可以讀取此bmp檔

CPS0204 · 註冊時間: 2014-08-24 文章: 524 第 10 樓

unicode (異體字,簡體字,日文)...的螢幕顯示,輸入,存檔(ms sql server),轉xls,report form都解決了
就可以再延續vfoxpro 的生命.......

CPS0204 · 註冊時間: 2014-08-24 文章: 524 第 11 樓

更正:是所有乾淨的windows-os 都不能run,除非註冊一次fm20.dll
或是小技巧: 先請客戶安裝一次普通版本ms-office,他就會自行補安裝fm20.dll

需將有安裝過的電腦的 fm20.dll, FM20CHT.DLL copy 到不能跑之電腦的
c:\windows\syswow64\下,必須留下來不能刪除此dll檔

然後使用管理者權限開啟dos窗
regsvr32 fm20.dll 一次,有出現註冊成功!
就可以放心使用本區功能
(如果無法安裝請先下載 vc_redist.x86.exe 然後執行他
在註冊一次即可)

CPS0204 · 註冊時間: 2014-08-24 文章: 524 第 12 樓

有需要此解決方案的網友可以留言.....大家共同享用