VFP 愛用者社區

Ruey · 註冊時間: 2003-03-12 文章: 1698 來自: tunglo 第 1 樓

來源:myf1 夜來香
http://61.145.116.139/bbs/dispbbs.asp?boardID=1&ID=226737

A. 開場白篇
𨪜𨪜後 PC 時代是嵌入式和網路化的時代，在 PDA 市場激烈競爭的今天，有關 Palm、或 WinCE OS 的研究、開發和應用工作也將隨之推廣。作為一位業餘 FoxPro 和 PDA 的愛好者，我將盡我所能，言簡意賅的與 Foxer 共同漫進 PDA 的大門，較為全面的向讀者介紹利用 FoxPro/VFP 開發工具開發一個完整 Palm / WinCE OS 應用程式的全過程。
我將從 Step By Step 開始，分別用 FoxBASE、FoxPro 和 VFP 在 Palm、PocketDOS、PPC/WinCE 平臺上開發軟體，值得一讀的是，特別適用還沒有 PDA 數位設備的 Foxer 在 PC 機的模擬器上試用，最後將引向 .Net/GPS 的移動資料庫應用程式開發天堂。
我將分別介紹：A.開場白篇、B.硬體篇、C.OS 篇、D.應用軟體篇、E.破解篇、F.資源篇、G.FQA 篇、H.開發篇等，其中很多資料我是轉貼而來，經過我的消化，使的更適用於 Foxer。
玩遊戲要有規則，本人儘管發佈過 [嚴厲打擊正版軟體] 的駭文，那是鬧劇，本人聲明：此題杜絕討論國產（包括港臺）PDA/FoxPro 軟體的破解，這不是要和大家過意不去，而是為了論壇的存在和發展。討論國產軟體的破解，對 Fox 軟體公司的生存是件傷害的事情。為了 Foxer 能夠長期穩定地存在下去，希望大家能夠多多諒解。另外，國產 PDA/FoxPro 軟體還在起步中，也請大家多多支援吧。國外軟體的破解最好也不要討論，如果實在需要在發貼時一定要注意言辭！不要一上來就是我要 xx 的破解！
本人工作較忙，而且是撥號上網，我儘量貢獻我可以賺錢的業餘時間，邊寫邊貼，與大家技術共用，寫程式累！寫文章更累！！如果我有言辭不當的地方，歡迎廣大的 FoxPro 友和 PDA 友雅正。謝謝！
書歸正傳，FoxPro 能夠在 PDA 上應用嗎？
回答是：Yes！
圖一是：FoxBase V2.10 + Palm
圖二是：UCDOS + Palm
圖三/圖四是：FoxPro For DOS + Palm
VFP + WinCE 的抄表器和 [狐狸王] 無線點菜軟體等 Demo/Sample 以後上載。

B.硬體篇
1. PDA 名詞解釋
PDA 的中文意思就是“個人數位助理”的縮寫，也就是大家常說的掌上電腦。見圖。
2. Palm 設備的硬體
我們將首先探討 Palm OS 硬體的一些細節問題。在編寫程式時你或許並不一定用到，但是，知道了這些會讓你更有效的使用 Palm。
RAM 和 ROM
理論上講，Palm OS 能支援有很大的記憶體。今天 Palm OS 的最大記憶體為 8 M。某些設備的 Compact Flash 卡可支援 40M 的擴展快閃記憶體。Palm 記憶體具有快速且非易失的特點。它的非易失性是因為當 Palm 關閉後也有微小電流支持。這就是為什麼不論你的 Palm 使用與否電池最後還是被消耗完的原因。這一點使得你不得不經常的更換電池。
大多數的 Palm OS 使用 Flash ROM。這就意味著它們的作業系統在理論上是可以升級到較新版本的。而在 Palm III、Palm IIIe 和 pdQ 前的 Palm 不能升級它們的 ROM。
3. 狀態
Palm 有三種操作狀態：休眠狀態、半休眠狀態和工作狀態。
當 Palm 處於休眠狀態時，看起來就像被關閉了，如表現為黑屏等現象。實際上，此時的 Palm 確實和關閉差不多，它只使用很少的電量。一般情況下，可以按下綠色按鈕或等著計時器將其轉換為這種狀態。
3. 介面
所有的 Palm 設備在底部都有一個串列口。當插入同步電纜後可使 Palm 與電纜另一端的設備同步。你也可插入 Modem 或其他硬體(比如：並口、USB 口等)。
另外，新式的 Palm 都有一個紅外線介面。大部分設備的紅外線介面都在頂部。但是有一些 Palm 的紅外線介面在機身的一側。介面支援 IrDA 標準，因此在你進行適當的編程後，就可以同印表機、電視機、錄影機或其他東西進行紅外線通信。
Palm VII有一個連接 Internet 的無線介面，可以連接適當的無線設備。
Symbol 設備有一個集成的條碼掃描器。這對你開發使用條碼的商務應用程式很有用。
4. 時鐘和計時器
在 Dragon Ball 的內部有一個即時的時鐘，它在設備為睡眠模式時仍能維持當前時鐘。有一種時鐘能每百分之一秒跳一次。它被作業系統用來完成詢問螢幕，看時鐘是否在走或記下輸入筆的軌跡等各種任務。
5. 螢幕
Palm 設備的螢幕是 160x160 象素。所有的設備都能顯示黑白兩色（或用某些陰影對來表示黑色和白色）。帶有 Palm OS 3.0 或更高版本的所有設備都能運行 4 種灰色的陰影。帶有基於熱度等等的對比度變化之後，除了圖像和遊戲之外，中間的兩種過渡色變得難以區分。
Palm IIIc 帶有一個支持 256 色、具有革命性突破的火星矩陣 TFT 螢幕。這些顏色明亮而細膩。
6. 聲音
Palm 設備使用置於 Dragon Ball 之內的脈寬調製(PWM)電路來發出聲音。PWM 電路本質上是一個相當快速的開關。使用這種電路非常快地開、關揚聲器的電源能從揚聲器中發出某種模糊的聲波。
7. 置位
Palm 備上有三種置位：軟置位、中置位、硬置位。
你可以按下位於設備背後的小孔內的小按鈕實現軟置位元。如果你使用 Palm III 之類設備隨機附帶的輸入筆，只要你旋下輸入筆頂端的塑膠部分，你將發現其上有一個小塑膠棒正好可以插入置位孔。當然使用迴紋針也是可以的。軟置位元將清除動態堆。在調試本書的示例中我們將大量用到軟置位。
同時按下 Reset 和上箭頭按鈕將使 Palm 中置位。在 Palm 文檔中這類置位被稱為“輪班置位”（Shift Reset）。如果應用程式對軟置位元的應答崩潰了(俗稱死機)，設備無法通過軟置位元真正實現置位。這時就使用中置位試試。由於中置位元不通知應用程式置位元正在進行，所以當一個應用程式佔有了 Palm 作業系統並且在置位元時崩潰了，你就可以提交一個中置位來刪除這個討厭的應用程式。
通過按下 Reset 按鈕並保持按下狀態，同時按下 On/Off 按鈕並保持按下狀態，然後放開 Reset 按鈕，再放開 On/Off 按鈕，這幾步來實現一個硬置位操作。硬置位元通常在產品被第一次使用的時候做，這樣可以清除所有的客戶資料。作為開發者，你也許會被問及“置位操作是否可以刪除所有的資料”這樣的問題。如果你的回答是：不能。那麼你的所指的一定是一個軟置位。如果你的回答是：可以。那麼你的 Palm 設備一定是完全的不正常，需要做一次徹底清除資料的硬置位元了。
如果你的 Palm 設備在硬置位元後依然不正常的話，那麼就去掉所有的電池，讓 Palm 保持至少 5 分鐘的掉電狀態，然後再把電池放回去。這樣做的效果同一次硬置位的操作一樣。順便說一句，掉電對 Palm 是無害的。
8. 電池
Palm 上的電池一般可以連續使用 20-30 小時，而 PPC/WinCE 一般為 3 小時。
9. PDA 的應用領域：
8.1 PDA 在電力上的應用，- 做巡檢系統上的開發、抄表
8.2 PDA 與 CDMA 通訊的結合 - 與通訊公司交流
8.3 PDA 在零售業的應用 - 超市、零售專賣店，以提供與原 POS 系統不同的解決方案
8.4 PDA 在保險業上的應用 - 處理人壽保險業在用戶端的業務開發
8.5 PDA 在餐飲業的使用 - 無線點菜
8.6 PDA 與銀行業的結合點，等等。
風行全世界的 PDA 大廠 Palm，吹起了一陣 PDA 的熱潮。在美國，據說人手一台 Palm 並不誇張。

未完待續。
- 夜來香
C. OS 篇
1. PDA 的 OS
PDA 的 OS 主要分為 Palm OS 和 WinCE 兩大流派，Palm 是老牌 PDA 廠商，具有 10 多年的歷史；WinCE 是微軟的產品，以前稱為 PPC (Pocket PC)，從 PPC 2003 開始，統一為 WinCE。其他的 OS 還有 Mac 和 Linux OS 等，為便於起步，我們著重討論 Palm。
2. Palm 模擬器綜述
PDA 一般是應用為主，大部分的程式是在 PC 機上開發的，因此在 PC 機上需要安裝模擬器，
2.1 Palm 模擬器綜述(1)
第一部分模擬器的歷史
第二部分模擬器的基本使用及設置
2.2 Palm 模擬器綜述(2)
第三部分模擬器使用技巧

3.如何得到 Palm OS 的模擬器軟體 (縮寫：POSE / Palm OS Emulator) 和 ROM ？
以下是我收集的資料，提供給大家，以免少走冤枉路，可能有位址連接錯誤，特多提供多個線索；
1. 標準做法：
Palm OS 模擬器 (Emulator) 的老家： http://www.palmos.com
申請成為 Palm Solution Provider Program 的會員，填好合約書再寄往美國才能獲得所有 Palm OS 的 ROM Image，而且是包含了除錯功能的版本，特別適合需要編寫 Palm OS 程式的用戶。一般不推薦，費時費力；
Windows 適用 emulator_app_30a5.zip 4540k :
http://www.palmos.com/dev/tech/tools/emulator/emulator_app_30a5.zip
Mac OS 適用 emulator_app_30a5.sit :
http://www.palmos.com/dev/tech/tools/emulator/emulator_app_30a5.sit
Unix 適用 emulator_src_30a5.tar.gz :
http://www.palmos.com/dev/tech/tools/emulator/emulator_src_30a5.tar.gz
2.
下載現成的 PalmIII ROM 模擬塊：
Pilotrom.zip 447k (適用 Palm III、 2MB 升級的 PalmPilot 及 Palm VII) :
http://ecpda.myrice.com/download/Pilotrom.zip
palmos35.zip 677k (適用 Palm IIIx、Palm IIIxe、Palm V 及 Palm Vx) :
http://ecpda.myrice.com/download/palmos35.zip
或者到 www.palmos.com 註冊成為會員，就可以下載其他不同型號的 ROM 模組。
3.
試試用 ROM_Transfer_Extension :
http://www.palmstamp.com/forum/attach/142567-ROMTransferExtension33.zip
[這個就是抓 ROM 的,給大家介紹一個抓 ROM 的軟體 ROMTransferExtension 3.3
怎麼抓？很簡單，點一下 Begin Transfer 就可以了~]轉在於
http://www.palmstamp.com/cgi-bin/palmstamp/topic_show.cgi?id=16775&h=1#143405
4.
Palm OS 3.5 中文漢化版：
內置 CJKOS 中文系統和內部資源完全漢化的 Palm OS 3.5。ROM 僅用於 EZ 系列處理器的機型（Palm Vx，Palm IIIx，Palm IIIxe，IBM WorkPad c3，EPD30）。
其中也附帶了大量漢化版軟體，基本涵蓋了 Palm 應用的各個方面，可以打造完美的中文環境。所附軟體多可用於各種 Palm 機型。
下載：
http://www.cnpug.com/megatops/Download/OS3.5cn.rar
5.
軟體名稱：PalmPilot OS Emulator 3.3
　　軟體類型：免費軟體
　　使用平臺：Win9x/Me/NT/2000
　　軟體大小：2365KB
　　軟體發展： http://www.palmos.com/dev/tech/tools/emulator/
　　軟體下載：天極網下載頻道
http://www.mydown.com/servlet/mydown.yeskydown?tag=4&objID=37429
ROM 版本 4.0，下載地址：
http://www.echoice.com.cn/download/download.asp?softwareID=132
6.
ROM升級
聯想機型 • 惠普康柏機型 • 東芝機型 •
http://www.pdaonline.com.cn/SoftList.asp?CateID=14
7.
Palm35-ROM-Color (模擬器 Palm IIIc ROM) Palm IIIc / PALM OS 3.5+ / 640 K
下載後，在 Emulator 中打開，就可以看到彩色螢幕的 PALM 了：
http://www.pdasky.com/down.asp?id=316&no=1
8.
CJKOS 4.23
Palm 上優秀的中文外掛平臺。本版支援 HandEra 330 的升級版本的 ROM，支援 Sony 新機型 CLIE N610C, Sony CLIE 320。
http://www.move.com.cn/software/detail.asp?LinkId=20010723154242548079403&catcode=02040504

4. FAQ - by kaolu
Pocket PC及PDA近年來在世界各地都風行了起來，但想選購一台合適的機種之前，大概會被市面上亂七八糟的名詞弄得暈頭轉向，因此就先做好功課，充實充實自己的知識吧。
何謂PDA
PDA是Personal Digital Assistant的縮寫，照中文翻譯稱為"個人數位助理"，它只是個概念，大體上就是一個能更有效率幫忙完成日常雜事的電子設備，主要就是繞著個人資訊管理 (PIM)這個議題在打轉，廣義的來說任何能達到PIM功能的電子設備都能稱為PDA，實際上多專門指能方便攜帶的手持產品。
何謂PIM
PIM就是Personal Inforation Manage的縮寫，照中文翻譯稱"個人資訊管理"，大體上對商務人士而言包含行程管理、工作管理、名片管理及郵件管理這四個議題(當然還能再延伸 )，主要就是提供一個介面及資料庫來讓使用者方便的紀錄分析生活周遭中的資訊。
何謂Windows CE
Windows CE是微軟開發的一套嵌入式作業系統，主要運用在攜帶型裝置及一些自動控制裝置的解決方案，它最大的特徵是發展自桌上型的Windows系統，有檔案相容性高、功能多樣化的特點。
Windows CE能使用Windows 98/Me的軟體嗎?
不行，基本上這是兩種硬體架構截然不同的作業系統(98使用x86相容的處理器，CE則大多都不是使用x86的處理器)，不過Windows CE保證有限度的支援桌上型PC所使用的檔案及檔，且不需要轉換。
Windows CE有哪些版本?
Windows CE的核心至今已經有1.0、2.0、3.0三種版本，若細分小改版則是不計其數，因為Windows CE並非是專為單一裝置設計的，所以微軟為旗下採用Windows CE作業系統的產品大致分了三條產品線，Pocket PC、Handheld PC及Auto PC。
何謂Palm size-PC及Pocket PC
Pocket PC依照翻譯稱為"口袋型電腦"，大多具有直式(2：3)的觸控顯示幕並採用筆來輸入，使用Windows CE 2.x版以前的稱為Palm size-PC，最新採用Windows CE 3.x版的則稱為 Pocket PC。
何謂Handheld PC及Handheld PC pro
Handheld PC若照翻譯稱為手持型電腦，長的有點像翻譯機或B5的迷你筆記型電腦，一開始是依據機種的重量分為Handheld PC及Handheld PC pro兩種(很怪異的分類法) ，後來版本在Windows CE 2.1 Professional Editon3.0版以後的版本都稱為Handheld PC pro。
何謂Auto PC
Auto PC是Wijndows CE的一種應用模式，大多運用在一些如車用電腦、工業自動控制的場合，可依客戶的需要修改輸入輸出方式而不限定使用原有的程式。
何謂Web Tab及Table PC
是Web Tab的概念是藉由一個具有較大顯示幕的攜帶裝置，讓使用者方便的藉由它隨時隨地獲得網路上的資訊，一般都有較PDA大的顯示幕及無線通訊的能力，大多也是採用嵌入式的作業系統；Table PC則可看為Web Tab的延伸，具有較Table PC更為強大的處理能力，為一種整合了傳統記事板與電腦的概念。
何謂Active Sync
為Pocket PC與PC之間資料通訊同步用的軟體，CE 1.0的時代稱為CE Ecplorer 1.0，CE 2.x時稱為CE Service 2.x，CE 3.0出現後則稱為Active Sync 3.x(簡稱為AS3)，市面上可以找到3.0和3.1兩種版本，只有3.1才有支援使用USB連線的機種。
何謂IrDA
IrDA是Infrared Data Association的縮寫，為一套使用紅外線為媒介的工業用無線傳輸標準，速度由IrDA-SIR的115.2kbps到最新IrDA-FIR的4Mbps都有，傳輸距離一般都在30公分左右(視模組的功率而定)，角度限制在30度。
何謂RS-232
由美國電子工業協會(electronic industry association, EIA)制定的一套通信介面，最高傳輸率為115.2bps/sec，幾乎是PC上串列傳輸的標準。
何謂藍芽(Bluetooth)
初期是由易利信、Nokia、IBM、Intel、Toshiba等五家廠商制定，為一短距離無線傳輸的通信介面，基本型通訊距離約10公尺、傳輸率721kbps左右，運作在2.4G Hz的頻帶上，支援一對多資料傳輸及語音通訊。
何謂PCMCIA
PCMCIA(Personal Computer Memory Card International Association)
PCMCIA又稱為PC卡，是一種廣泛應用在Note Book的介面規格，依厚度有分Type I、II、III三種，可支援IO模式及記憶體模式讀寫。
何謂CF(Compag Flash)
由SanDisk所主導的一項記憶卡規格，介面定義上具有周邊輸入輸出能力，可以設計成周邊設備，傳輸率約16.6M/sec左右，常用於數位元相機及Pocket PC的儲存媒體或周邊。
何謂SD(Secure Digital)
由Pansomic所主導的記憶卡規格，跟CF一樣具有周邊輸入輸出能力，因為規了資料保密的措施，近年來受到許多廠商青睞，傳輸率約10M /sec且相容於MMC的插槽。
何謂MMC(MultiMedia Card)
Hitachi所主導的記憶卡介面，傳輸率約在2M/sec左右。
何謂Memory Stick
SONY的獨家記憶體規格，大量的採用在自家的設備上，傳輸率約2.45M/sec 。
何謂熱插拔
原文寫成Hot insertion或Hot swapping，大致上就是指系統仍在運作時可隨意的將周邊與主機連線斷線的功能。
何謂即插即用(PnP)
是指當周邊與主機連線時系統能馬上辨識出周邊並安裝所需的軟體，讓周邊馬上進入可以使用的狀態。
何謂CISC
CISC就是Complex Instruction Set Computing的縮寫，中文翻譯為複雜指令運算集，它只是CPU分類的一種，好處是CPU所提供能用的指令較多、程式撰寫容易，常見80X86相容的CPU即是此類。
何謂RISC
RISC為Reduced Instruction Set Computing的縮寫，中文翻譯為精簡執令運算集，好處是CPU核心很容易就能提升效能且消耗功率低，但程式撰寫較為複雜；常見的RISC處理器如Mac的Power PC系列。
何謂Strong ARM
ARM所授權開發的一種內嵌式處理器，具有低功率消耗高時脈的優點，常被運用在行動電話或手持電腦等設備中；現在被大量運用在Pocket PC的為Intel Strong ARM SA1110，具有極高的運作時脈及所帶來的效能，同時也不會損耗太多功率。
何謂MIPS
MIPS系列處理器有授權相當多廠商生產，此系列產品分佈相當廣泛，高階有64bit等級用在伺服器的產品線，低階的也有32bit等級應用在嵌入式的場合，此系列的處理器擅長使用快取及提升匯流排速率等技術來提升整體效能；Pocket PC多使用授權NEC生產的VR41 00系列。
何謂SH3/SH4
日立(Hitach)所發展的Super H系列是專門使用在嵌入式應用的處理器，主要著眼於低功率及使用固定長度指令碼來取得優良的解碼效率；Pocket PC多使用SH3系列。
何謂RAM
RAM的全名為隨機存取記憶體(Random Access Memory)，可重複的寫入都出資料，但需使用電力來保持資料，照組成來分有靜態記憶體(SRAM)及動態記憶體(DRAM)，DRAM由於具有較低的單位容量價格，所以被大量的採用作為系統的主記憶。
何謂ROM
OM的全名為唯讀記憶體(Read Only Memory)，資料一但寫入後只能用特殊方法或根本無法更改，由於此特性ROM常在嵌入式系統中擔任存放作業系統的用途。
何謂Flash ROM
由於ROM不易更改的特性讓更新資料變得相當麻煩，因此就有了Flash Memory的發展，Flash Memory具有ROM不需電力維持資料的好處，又可以在需要的時候任意更改資料，不過單價也比普通的ROM要高。

Ruey · 發表於: 星期四一月 15, 2004 12:40 am 文章主題:

--------------------------------------------------------------------------------
【跟我学 FoxPro + PDA】交流版：
http://www.myf1.net/bbs/dispbbs.asp?boardID=1&ID=226753
--------------------------------------------------------------------------------

Ruey · 發表於: 星期四一月 15, 2004 12:43 am 文章主題:

3. Palm 上的資料檔案 PDB 的解讀
3.1 Pdb 和 Prc 文件
Palm 上最重要的兩個檔是 Prc 和 Pdb，Prc 是執行檔，Pdb 是資料檔案，"PDB" 是 "Palm DataBase" 的縮寫，分別對應於 FoxPro 的 Exe 和 Dbf 檔，我們先討論 Pdb 文件；
3.2 Pdb 檔的結構
每個 PDB 檔分別有三段組成 (Sections)：第一段是資料庫頭 (Database Header - "Title Page") (78 Bytes)，第二段是每條記錄的偏移位址，俗稱記錄頭 (Location information or Record Header - "Table of Contents")，第三段是所對應的偏移位址的記錄值或存放的實際資料 (Record Data)。
3.2.1 資料庫頭
--- 第一段：資料庫頭 (78 Bytes) ---
偏移量大小名稱說明
Offset byte Field Explanation
------ ---- ------ -----------
+0000H 32 資料庫名 PDB 資料庫名
+0020H 2 標誌數據庫屬性
+0022H 2 版本版本號
+0024H 4 創建日期自 '1904-01-01 00:00:00' 以後的秒數
+0028H 4 修改日期 [同上]
+002CH 4 備份日期 [同上]
+0030H 4 修改次數資料被更新或修改的次數
+0034H 4 程式資訊大小最簡單的資料庫設置為 "00 00 00 00"
+0038H 4 排序資訊大小 [同上]
+003CH 4 檔類型 Database Type，判斷一個檔是程式 (appl)、資料 (Data) 等
+0040H 4 資料庫標識 Creator ID，表明 PDB 檔是什麼程式創建和打開
+0044H 4 唯一識別字 Unique seed number (不必關心!)
+0048H 4 下一記錄例表 Next record number (不必關心!)
+004CH 2 總記錄數 Number of Records
一個讀取 Pdb 檔頭的 FoxPro 源代碼：
*!* 讀 PDB 檔結構
CLOSE DATABASES
CLEAR
CREATE CURSOR Demo1 (Comments M)
APPEND BLANK
APPEND MEMO Comments FROM "Gz88a.pdb" && 假設 Pdb 檔案名為：Gz88a.pdb
*!* APPEND MEMO Comments FROM "iSiloMan.pdb"
GO TOP
? 'PDB 檔結構資訊:'
? '================:'
* 1. PDB 資料庫名 1 to 32
DB_Name = ''
FOR I = 1 TO 32
Temp1 = SUBSTR(Demo1.Comments, I, 1)
IF ASC(Temp1) > 0
DB_Name = DB_Name + Temp1
ELSE
I = 32
ENDIF
ENDFOR
? ' 1.PDB 資料庫名 : '
?? DB_Name
* 2. 檔屬性 33 to 34
Temp = Right("00" + DecToHex(ASC(SUBSTR(Demo1.Comments, 33, 2))), 2) + ;
Right("00" + DecToHex(ASC(SUBSTR(Demo1.Comments, 34, 2))), 2)
Flags= ALLTRIM(STR(HexToDec(temp)))
? ' 2.檔屬性 : '
?? Flags
* 3. 版本號 35 to 36
Temp = Right("00" + DecToHex(ASC(SUBSTR(Demo1.Comments, 35, 2))), 2) + ;
Right("00" + DecToHex(ASC(SUBSTR(Demo1.Comments, 36, 2))), 2)
VERSION = ALLTRIM(STR(HexToDec(temp)))
? ' 3.版本號 : '
?? VERSION
* 4. 創建日期 37 to 40
* 從 1904.01.01 00:00:00 AM 以來的秒數
CrtTime = Right("0" + DecToHex(ASC(SUBSTR(Demo1.Comments, 37, 1))), 2) + ;
Right("0" + DecToHex(ASC(SUBSTR(Demo1.Comments, 38, 1))), 2) + ;
Right("0" + DecToHex(ASC(SUBSTR(Demo1.Comments, 39, 1))), 2) + ;
Right("0" + DecToHex(ASC(SUBSTR(Demo1.Comments, 40, 1))), 2)
CrtTime = TTOC(HexToDec(CrtTime) + {^1904.01.01 00:00:00 A})
? ' 4.創建日期 : '
?? CrtTime
* 5. 修改日期 41 to 44
ModTime = Right("0" + DecToHex(ASC(SUBSTR(Demo1.Comments, 41, 1))), 2) + ;
Right("0" + DecToHex(ASC(SUBSTR(Demo1.Comments, 42, 1))), 2) + ;
Right("0" + DecToHex(ASC(SUBSTR(Demo1.Comments, 43, 1))), 2) + ;
Right("0" + DecToHex(ASC(SUBSTR(Demo1.Comments, 44, 1))), 2)
ModTime = TTOC(HexToDec(ModTime) + {^1904.01.01 00:00:00 A})
? ' 5.修改日期 : '
?? ModTime
* 6. 最後備份日期 45 to 48
BakTime = Right("0" + DecToHex(ASC(SUBSTR(Demo1.Comments, 45, 1))), 2) + ;
Right("0" + DecToHex(ASC(SUBSTR(Demo1.Comments, 46, 1))), 2) + ;
Right("0" + DecToHex(ASC(SUBSTR(Demo1.Comments, 47, 1))), 2) + ;
Right("0" + DecToHex(ASC(SUBSTR(Demo1.Comments, 48, 1))), 2)
BakTime = IIF(HexToDec(BakTime) <=0, "0000.00.00 00:00:00 AM", ;
TTOC(HexToDec(BakTime) + {^1904.01.01 00:00:00 A}))
? ' 6.最後備份日期 : '
?? BakTime
* 7. 修改次數 49 to 52
Temp1 = Right("0" + DecToHex(ASC(SUBSTR(Demo1.Comments, 49, 1))), 2) + ;
Right("0" + DecToHex(ASC(SUBSTR(Demo1.Comments, 50, 1))), 2) + ;
Right("0" + DecToHex(ASC(SUBSTR(Demo1.Comments, 51, 1))), 2) + ;
Right("0" + DecToHex(ASC(SUBSTR(Demo1.Comments, 52, 1))), 2)
ModNum = ALLTRIM(STR(INT(HexToDec(Temp1))))
? ' 7.修改次數 : '
?? ModNum
* 8. 程式資訊偏移位址 53 to 56
Temp1 = Right("0" + DecToHex(ASC(SUBSTR(Demo1.Comments, 53, 1))), 2) + ;
Right("0" + DecToHex(ASC(SUBSTR(Demo1.Comments, 54, 1))), 2) + ;
Right("0" + DecToHex(ASC(SUBSTR(Demo1.Comments, 55, 1))), 2) + ;
Right("0" + DecToHex(ASC(SUBSTR(Demo1.Comments, 56, 1))), 2)
AppInfo = ALLTRIM(STR(INT(HexToDec(Temp1))))
? ' 8.程式資訊大小 : '
?? AppInfo
* 9. 排序資訊大小 57 to 60
Temp1 = Right("0" + DecToHex(ASC(SUBSTR(Demo1.Comments, 57, 1))), 2) + ;
Right("0" + DecToHex(ASC(SUBSTR(Demo1.Comments, 58, 1))), 2) + ;
Right("0" + DecToHex(ASC(SUBSTR(Demo1.Comments, 59, 1))), 2) + ;
Right("0" + DecToHex(ASC(SUBSTR(Demo1.Comments, 60, 1))), 2)
SortInfo = ALLTRIM(STR(INT(HexToDec(Temp1))))
? ' 9.排序資訊大小 : '
?? SortInfo
* 10. 資料庫類型 61 to 64
DbID = SUBSTR(Demo1.Comments, 61, 4)
? '10.資料庫類型 : '
?? DbID
* 11.資料庫標識 65 to 68
AppID = SUBSTR(Demo1.Comments, 65, 4)
? '11.資料庫標識 : '
?? AppID
* 12.唯一識別字 69 to 72
Temp1 = Right("0" + DecToHex(ASC(SUBSTR(Demo1.Comments, 69, 1))), 2) + ;
Right("0" + DecToHex(ASC(SUBSTR(Demo1.Comments, 70, 1))), 2) + ;
Right("0" + DecToHex(ASC(SUBSTR(Demo1.Comments, 71, 1))), 2) + ;
Right("0" + DecToHex(ASC(SUBSTR(Demo1.Comments, 72, 1))), 2)
UniqueID = ALLTRIM(STR(INT(HexToDec(Temp1))))
? '12.唯一識別字 : '
?? UniqueID
* 13.下一記錄例表 73 to 76
Temp1 = Right("0" + DecToHex(ASC(SUBSTR(Demo1.Comments, 73, 1))), 2) + ;
Right("0" + DecToHex(ASC(SUBSTR(Demo1.Comments, 74, 1))), 2) + ;
Right("0" + DecToHex(ASC(SUBSTR(Demo1.Comments, 75, 1))), 2) + ;
Right("0" + DecToHex(ASC(SUBSTR(Demo1.Comments, 76, 1))), 2)
NextRecordListID = ALLTRIM(STR(INT(HexToDec(Temp1))))
? '13.下一記錄例表 : '
?? NextRecordListID
* 14.總記錄數 77 to 78
Temp1 = DecToHex(ASC(SUBSTR(Demo1.Comments, 77, 1))) + ;
DecToHex(ASC(SUBSTR(Demo1.Comments, 78, 1)))
NunRec = ALLTRIM(STR(INT(HexToDec(Temp1))))
? '14.總記錄數 : '
?? NunRec
CLOSE DATABASES
FUNCTION DecToHex
* && [10 進制]到[16 進制] : Decimal integers to Hex (Char).
* Input: NUMERIC
* Output: CHAR
PARAMETER InNum
OutStr=SPACE(0)
DO WHILE InNum>0
OutStr=FindHex(MOD(InNum,16))+OutStr
InNum=INT(InNum/16)
ENDDO
RETURN(OutStr)

FUNCTION FindHex
* Lookup table for conversion of alpha hex chars.
* Input: NUMERIC
* Output: CHAR
PARAMETERS InVal && Integer
PRIVATE ALL LIKE j*
DO CASE
CASE InVal=10
jOutStr='A'
CASE InVal=11
jOutStr='B'
CASE InVal=12
jOutStr='C'
CASE InVal=13
jOutStr='D'
CASE InVal=14
jOutStr='E'
CASE InVal=15
jOutStr='F'
OTHERWISE
jOutStr=STR(InVal,1,0)
ENDCASE
RETURN(jOutStr)

FUNCTION HexToDec
* [16 進制]到[10 進制] : Hex (Char) to Decimal.
* Input: CHAR
* Output: NUMERIC
PARAMETERS INSTR
PRIVATE ALL LIKE J*
INSTR=ALLTRIM(INSTR)
jLen=LEN(INSTR)
nSum=0
rPtr=0
FOR nCtr= 1 TO jLen
cPtr=UPPER(SUBSTR(INSTR,jLen-rPtr,1))
DO CASE
CASE cPtr='A'
cPtr='10'
CASE cPtr='B'
cPtr='11'
CASE cPtr='C'
cPtr='12'
CASE cPtr='D'
cPtr='13'
CASE cPtr='E'
cPtr='14'
CASE cPtr='F'
cPtr='15'
ENDCASE
nSum=nSum+(VAL(cPtr) * 16^(nCtr-1))
rPtr=rPtr+1
ENDFOR
RETURN(nSum)

說明：為什麼不用低級函數比如：FOpen() / FGet() 等處理 Pdb 檔，而改用游標呢？主要是低級函數需要獨佔環境，另外當出現錯誤時，必須用 Close All 關閉打開的檔，一般用 FClose() 不一定能行。

- 夜來香

附：廣州餐飲娛樂資料庫 Gz88a.pdb

Ruey · 發表於: 星期四一月 15, 2004 12:44 am 文章主題:

PDAToolBox V2.1 國際版資源工具：MenuSelector
用法：
1，把 .Zip 檔解包到 PDAToolBox V2.1 的所在目錄，比如：C:\Program Files\PDAToolbox；
2，啟動 Pag.exe，在生成 .Prc 之前，啟動 MenuSelector.exe，選擇可選的語言、安裝、退出程式；
3，生成 .Prc 文件，再同步到 POSE 中，OK。
4，共有 12 種語言，包括中文簡體和繁體。

http://61.145.116.139/bbs/viewfile.asp?ID=9389

Ruey · 發表於: 星期四一月 15, 2004 12:45 am 文章主題:

有興趣的人可至參考完整文章
http://61.145.116.139/bbs/dispbbs.asp?BoardID=1&id=226737&replyID=141027&star=2&skin=