有 50 筆資料符合您搜尋的條件
- 2014-09-23, 12:26
- 版面: xBase/[x]Harbour/Fivewin/HWGUI in Taiwan
- 主題: Harbour v3.1 and Unicode 補完計畫 2.50 問題
- 回覆: 1
- 觀看: 14083
Harbour v3.1 and Unicode 補完計畫 2.50 問題
話說...自從將 Harbour 從 3.0 換為 3.1 之後,發現中文字上發生了一些變化, 改變原因在於 win_ole 這部份,以前一些使用 FileXLS 將資料輸出至 Excel 含有中文字方面出現了些許變化,例如宏碁的「碁」字,內碼為 0xF9D6, 轉至 Excel 卻不是 0xF9D6, 於是追蹤了 win_ole 方面到底是哪裡出了問題, 最後終於找到是 %hbdir%\contrib\hbwin\olecore.c 檔案,從 3.1 之後 將 hb_oleItemToString 的轉碼工作由 MultiByteToWideChar 改為由 codepage 方式處理,變成...
- 2014-09-23, 12:25
- 版面: xBase/[x]Harbour/Fivewin/HWGUI in Taiwan
- 主題: Get SNTP Server Time and Set LocalTime(update:2010.08.09)
- 回覆: 0
- 觀看: 13246
Get SNTP Server Time and Set LocalTime(update:2010.08.09)
以下示範如何取得 SNTP Server 時間,而且可以作本地時間與 SNTP 時間同步功能: The Library is compile use BCC5 for xHarbour and Fivewin. Func Test() Local aNet := {},; nPort := 123,; cIp := "time.windows.com",; lSync := .T.,; oSntp := NIL ? "test begin" // test-1 // lSync = .T., 取得時間後, 讓 LocalTime 與 NTP Server...
- 2014-09-23, 12:23
- 版面: xBase/[x]Harbour/Fivewin/HWGUI in Taiwan
- 主題: SQLite3 for [x]Harbour(*mdy:2011.12.15) version 3.7.9
- 回覆: 0
- 觀看: 14816
SQLite3 for [x]Harbour(*mdy:2011.12.15) version 3.7.9
*2011.12.15: add: support field type about 'DATE' and 'TIMESTAME'. modify: METHOD CreateTable CLASS TSQLiteServer if have AUTO_INCREMENT field and DEFAULT is miss; modify: Static Func ssTrType(aArr) fix 'D' and 'T' data type default value; add: sqlite.ch add #define DBS_DEFAULT 6 now support 'DEFAUL...
- 2014-09-23, 12:22
- 版面: xBase/[x]Harbour/Fivewin/HWGUI in Taiwan
- 主題: xHarbour + mySQL 5.0.x & BCC 5.5x + Chinese Big5
- 回覆: 0
- 觀看: 12462
xHarbour + mySQL 5.0.x & BCC 5.5x + Chinese Big5
想要用 mySQL 5.0.x 強大功能嗎?(SP功能完成了!!) 摸了一天,把 xHarbour 如何搭配 BCC 5.5.x 使用 mySQL 5 的心得 post 出來給大家分享 1. 從 %mysqldir%\bin 下複製 libMysql.dll 過來. 2. 執行 bcc55\bin\implib -c libMysql.lib libMysql.dll, 從 libMysql.dll 建立 libMysql.lib 給 BCC 5.5.x 使用. 3.修改 my.ini 檔案中的 sql-mode=".....", 將裡面的 'STRICT_TRANS_TA...
- 2014-09-23, 12:21
- 版面: xBase/[x]Harbour/Fivewin/HWGUI in Taiwan
- 主題: xharbour + mySQL 5.0.x + "中文特殊字解決方案"
- 回覆: 0
- 觀看: 12686
xharbour + mySQL 5.0.x + "中文特殊字解決方案"
*2006.02.01: 今天閒來無事,嘗試把一個案子的資料庫改用 mySQL 5.0.18 (目前最新版的喔!),測試結果如下: 第一次測試,字元集採用 utf8,結果,輸入的中文字『功蓋許』,存檔後變成亂碼! 第二次測試,字元集改換 big5,存檔的特殊中文字也是亂碼。 第三次測試,在 sql-mode="....." 加上 ,NO_BACKSLASH_ESCAPES,『功蓋許』中文字可以正常顯示了,可是,碰上另一個問題,查詢時,其他中文字查詢沒問題,唯獨查詢到『功蓋許』時,都顯示查不到資料。 第四次測試,終於完成了,寫入特殊中文字『功蓋許』沒問題,查詢也沒問題,設定如...
- 2014-09-23, 12:21
- 版面: xBase/[x]Harbour/Fivewin/HWGUI in Taiwan
- 主題: 取得硬碟低階序號( Get HDD Low level serial number)
- 回覆: 0
- 觀看: 13050
取得硬碟低階序號( Get HDD Low level serial number)
Samples (This library is compiler with Borland C++ 5.5) //--------------------- #INCLUDE "FIVEWIN.CH" #INCLUDE "STRUCT.CH" Func Test() Local nRet := 0,; aRet := {},; nI := 0,; cStr := [],; oVer := NIL msgInfo( "Begin!!" ) //----------------------------------------------...
- 2014-09-23, 12:20
- 版面: xBase/[x]Harbour/Fivewin/HWGUI in Taiwan
- 主題: 談談 hbnetio 這玩意(讓你的程式透過 TCP/IP 存取 DBF檔案)
- 回覆: 0
- 觀看: 13584
談談 hbnetio 這玩意(讓你的程式透過 TCP/IP 存取 DBF檔案)
早期想存取網路版的 DBF 檔案,只有透過微軟的網路芳鄰、Novell 網路、Linux 的 Samba 系統,使用量最大的,莫過微軟的網路芳鄰,但是,他的存取效率不好卻也是眾所皆知! 而今網際網路盛行的 TCP/IP 協定,能將網路效能發揮到最大極限,但,無奈傳統的 DBF 存取卻不支援! 但,在一群 Harbour 的開發者努力之下,卻也看到了希望! 想透過 TCP/IP 協定存取 DBF,不只是單單的檔案存取而已,還能做到 C/S 架構的存取,神奇吧! 我們可以單獨寫一支主程式在主機上跑,專門處理工作端送來的命令, 這樣子有什麼好處呢?試想,如果工作站有 Win7/Vista/XP/20...
- 2014-09-23, 12:15
- 版面: xBase/[x]Harbour/Fivewin/HWGUI in Taiwan
- 主題: 關於多緒 [about Multi Thread]
- 回覆: 0
- 觀看: 12234
關於多緒 [about Multi Thread]
最近開始使用 Harbour 3.0.0, 嘗試測試多緒程式問題,摸了半天,把心得 給 post 出來,其實也很簡單,用到兩三個函數而以! hb_threadStart(): 執行多緒程式... hb_hb_threadWait(): 偵測多緒程式是否完成. 就這兩個而以,另外有一個 hb_threadJoin(), 測試結果,似乎不太適合, 不適合原因,後面再述~ 首先,談談函數語法: hb_threadStart( <@sStart()> | <bStart> [, <params,...> ] ) -> <pThID> 第一個參數,可以使用函數方式<@sStart>,例如: @test(...
- 2014-09-23, 11:51
- 版面: xBase/[x]Harbour/Fivewin/HWGUI in Taiwan
- 主題: Get Network card MAC address (support Multi Networks)
- 回覆: 0
- 觀看: 12007
Get Network card MAC address (support Multi Networks)
以下範例示範取得網卡 MAC Address 資料: It's compile use BCC55 and Free! #INCLUDE "FIVEWIN.CH" Func Test() Local aNet := {},; nI := 0 msgInfo( "Test Begin..." ) aNet := GetMacAddress() msgInfo( "Test OK" ) If Len(aNet) > 0 MsgInfo( "You have:["+Str( Len(aNet), 2, 0 )+"...
- 2014-09-23, 10:58
- 版面: xBase/[x]Harbour/Fivewin/HWGUI in Taiwan
- 主題: 公告!! Welcome to Forum
- 回覆: 0
- 觀看: 13581
公告!! Welcome to Forum
很抱歉! 因為硬碟損毀,所有資料都消失了... 原本不想再開討論區了,但是在一些網友強烈要求下重新開啟, 只是資料都已經遺失了,上 Google 抓了一些比較技術性的資料回來貼上, 只能做到這裡了,若有需要原來的範例檔案,在下再找時間補上去. 話說回來,台灣使用 Fivewin 的 user, 因為不支援 unicode, 還有多少人在使用呢? 連我也都轉向 delphi 去了,有空時研究一下 HWGUI, 舊有客戶程式碼都超長的, 若沒有理由就只有繼續維護,用到哪天真的需要 unicode 時再來重寫吧! 如果您想註冊發言,請寄 email 至 ssbbs [at] mail.zzz.com...