而今網際網路盛行的 TCP/IP 協定,能將網路效能發揮到最大極限,但,無奈傳統的 DBF 存取卻不支援!
但,在一群 Harbour 的開發者努力之下,卻也看到了希望!
想透過 TCP/IP 協定存取 DBF,不只是單單的檔案存取而已,還能做到 C/S 架構的存取,神奇吧!
我們可以單獨寫一支主程式在主機上跑,專門處理工作端送來的命令,
這樣子有什麼好處呢?試想,如果工作站有 Win7/Vista/XP/2000/98/DOS ...
自己透過檔案鎖住機制去存取 DBF/CDX, 不同 OS 有不同機制,
索引檔常常損壞,往往是這種情況下造成的,而且,DBF 的檔案鎖住機制
也非完美,所以才會常常發生 DBF/CDX 資料錯亂問題發生。
如果我們可以改用 C/S 架構跑我們的管理系統,有一支專門處理工作站的資料工作,
那對於 DBF/CDX 的穩定性,就會大大提高了!
但是,也非完美無缺的,至少在我的開發環境 Harbour + FWH 之下,
測試透過網際網路進來存取,也許是 TcBrowse 寫的不好,三不五時就要更新畫面資料,
導致這樣子的連線方式,畫面卡卡的,至於純 Console 下能否跑得順暢?
我沒這樣子的案子可以測試.
另外,使用 xBrowse 能否改善?因為在下也沒在用 xBrowse ,所以這方面也無法提供測試結果.
若是單純在內部網路(100MB網卡)下跑,效能不錯喔!
話說回來,想要讓你的 DBF 跑 C/S 架構,是有兩項產品可以作看看,
而在下我,目前只有測試 Harbour 的 hbnetio, 另外一套也是免費的 letoDB,
在下沒測試過,不知道情況好壞,不予置評... (未完,待續...)
說到這 hbnetio 玩意,是打從 harbour 2.0 開始才有的東西,比起 LetoDB 要來得晚些,
但,好歹也是 Harbour 核心開發者搞出來的玩意,穩定性上來說,也要來的強!
在下目前已經利用此功能,開發出兩套依附此項功能開發而成的軟體,
客戶反應上來說,已經很少出現索引檔壞掉問題了。
要介紹 hbnetio 時,得先介紹主機上執行的主程式,由於在下使用的是 nightly CVS Harbour(就是每天晚上會自動產生的新版本啦),
所以,在程式目錄下: %hbdir%\bin\ 下就有一支 hbnetio.exe,但是,不建議直接使用這支程式來執行,
因為少了很多函數支援功能,建議還是依照自己需求,重新編譯一支來用.
就來說說我個人開發這兩套系統所遇到的問題一一來解說,主機端的 hbnetio.exe 需具備哪些功能?
哪些功能是辦不到?哪些需要特別處理的?且聽我一一道來...
基本上,想要擁有完整的 harbour 函數功能支援的話,首先,必須必須先修改 netiosrv.prg(檔案位於 %hbdir%\contrib\hbnetio\utils\裡面),
找到:
代碼: 選擇全部
#ifdef HB_EXTERN
:
#endif
代碼: 選擇全部
// #ifdef HB_EXTERN
:
// #endif
hbnetio 還支援一些參數,在下沒仔細研究,有興趣的自行研究吧!
代碼: 選擇全部
c:\>hbnetio.exe -rpc
主機端其他一些注意事項,後面再詳述,先來說說 client 端程式如何寫!!
Client 端也很簡單,參考如下程式碼:
代碼: 選擇全部
func main()
if .not. hbnetio_connect( '192.168.1.100', 2941)
alert('Can not connect to server!!')
quit
else
alert('Connect success!!')
endif
要使用 hbnetio, 於連結時,需加上一些 library,
因為在下使用 bcc55, 所以需要連結:
代碼: 選擇全部
\hb21\lib\hbzlib.lib +
\hb21\lib\hbnetio.lib +
\bcc55\lib\psdk\ws2_32.lib +
代碼: 選擇全部
cPath := netio_funcexec( 'hb_argv', 0 ) // 取得主機端 hbnetio.exe 執行檔路徑
alert(cPath)
那就代表你的主機程式 hbnetio.exe 執行時忘了加上參數 '-rpc' 囉!
未完,待續....
說說 hbnetio Client 端支援的函數功能吧!
不知道這些功能,還真不知道該怎麼執行遠端函數、命令功能哩!
上面範例提到的: NETIO_FUNCEXEC( <cFuncName> [, <params,...>] ) -> <xFuncRetVal>
我們可以直接執行主機上的函數功能,例如上例:
cPath := netio_funcExec( 'hb_argv', 0 )
他的意思就等同於在主機端執行了 hb_argv(0) 的意思!
並將結果回傳至變數 cPath 去,所以,我們可以藉此得到主機端
執行 hbnetio.exe 時的所在路徑與檔案名稱.
另外,還提供了:
NETIO_PROCEXISTS( <cProcName> ) -> <lExists>
讓你可以在執行函數/命令/程序之前,先判斷主機端是否具備執行的能力,
才不會造成執行過程中,產生錯誤訊息回應.
雖然名稱稱之為 "ProcExists",但是,是支援 Function/Procedure/Command.
NETIO_PROCEXEC( <cProcName> [, <params,...>] ) -> <lSent>
NETIO_PROCEXECW( <cProcName> [, <params,...>] ) -> <lExecuted>
這兩個函數的差異向在於是否等待主機端回應.
hbnetio 支援所有的 RDD 功能,所以,只要是 RDD 的操作函數與命令,
都可以執行,例如: dbSkip()/dbGoTo()/dbSeek()/Eof()/Bof().... 等等.
這些功能測試,可以直接參考 %hbdir%\contrib\hbnetio\tests\ 裡面的 .prg,
這邊就不再累贅敘述了.
再來談談如何將一般的 file server 架構,修改為 C/S 架構的程式?
雖然稱之為 C/S 架構,但是,也只是半套的 C/S 罷了!怎麼說呢?
正常的 C/S 架構,Server Side 是要具備「運算」功能的,而 hbnetio 卻只提供
RDD 方面的操作功能而已,說穿了,是幫你作 Lock 動作,資料編輯,操作,Unlock...
一般我們所知的 C/S 架構中的 Server Side, 可是還要能作複雜加減與搜索運算,
所以我才會稱之為半套的 C/S 架構!
修改之前,先確認你想用哪種方式來修改?一般來說有兩種方式:
1. 直接將程式全部修改為 netio 方式,不再支援 file server 舊架構,這種方式,
那就全部將要在主機端運作的函數全面性的直接加入 netio 資料.
2. 將程式修改為同時支援 file server 與 c/s 架構,這樣子的方式,就得作一些判斷上的修改了,
在下是採用這項,因為有套程式,不是每個人都要更換,所以就採用第二種方式來處理,以下的說明都是針對這第二種方式.
這種方式也有個好處,當我要啟動 netio 功能時,我只要設定一個變數 '_NETIO'
包含了主機 ip/port/路徑等資料,如果不開啟時,直接將 '_NETIO' 設為空字串,
那麼,一些函數在執行上,我可以直接採用例如: dbExist( _NETIO+'abc.dbf' )
啟動 netio 時,先組合 '_NETIO' 變數為: 'net:192.168.1.1
所以上面的函數就自動變成了 dbExist( 'net:192.168.1.1
要關閉 netio 功能時,只要將變數 '_NETIO' 設為空字串,那上面函數就自動變成
dbExist( ''+'abc.dbf' ) 了,如此方便,也可以提供客戶在整個程式尚未修改完成之前
繼續使用舊的架構執行!
修改時的注意事項:
1. 檢查 dbf 檔案是否存在?
在以前,我們可能習慣用 File() 來檢查,在此要修改為 dbExists(),
2. 修改 dbPack() 為 hb_dbPack(),
dbZap() 為 hb_dbZap(),
另外: dbSkipper() 是 Harbour 從 2.0 到 2.1 的變化,原本的定義要修改為
代碼: 選擇全部
#xtranslate _DbSkipper => __dbSkipper // Harbour 2.1.x
代碼: 選擇全部
#xtranslate _DbSkipper => DbSkipper
lIsDir() / lMkDir() 這兩個函數,一個是判斷目錄是否存在,一個用來建立目錄,
我們需要作「適當」的調整如下:
代碼: 選擇全部
If Empty( _NETIO )
// 一般網路協定
If .Not. lIsDir( _cStkDir )
If .Not. lMkDir( _cStkDir )
Tone( 1000, 1 )
MsgStop( "資料檔案目錄 "+_cStkDir+" 無法建立,請檢查原?]!", "警告!" )
Exit
EndIf
EndIf
Else
// NETIO 網路
If ! netio_funcexec( 'hb_dirExists', _cStkDir )
If netio_funcexec( 'MakeDir', _cStkDir ) <> 0
Tone( 1000, 1 )
MsgStop( "資料檔案目錄 "+_cStkDir+" 無法建立,請檢查原?]!", "警告!" )
Exit
EndIf
EndIf
EndIf
_cStkDir += "\"
這個方法就是我上面說的,可以讓程式同時支援舊的 file server 與新的 c/s 架構同時存在方法.
4. Directory() 函數也要調整,如果是要檢查本地端的目錄,就不用修改,如果要檢查遠端目錄,
那就要修改為: lExist := hbnetio_funcExec( 'Directory', '*.*', 'D' ) 來判斷目錄是否存在了.
5. 再來針對主機端上的程式再加強功能,低階檔案的修改。
hbnetio 目前不支援遠端低階檔案功能,其實問題在於 fRead() 這個函數,只要自己重寫一個替代函數就可以了!!
針對此項問題,在下於主機端程式加上了幾個函數來替代:
(請修改 %hbdir\contrib\hbnetio\utils\netiosrv.prg 於尾端加上)
代碼: 選擇全部
// 為了相容 fRead(), 所以 cBuffer 保留
FUNC ssfRead(nH, cBuffer, nReadBytes)
Local cH := PadL(nH,5,'0')
afBuffer[cH] := Space(nReadBytes)
RETURN fRead( nH, @afBuffer[cH], nReadBytes)
// 取回 Buffer 資料
FUNC ssfBuffer(nH)
RETURN afBuffer[PadL(nH,5,'0')]
// 關閉檔案
FUNC ssfClose(nH)
Local cH := PadL( nH, 5, '0' )
Local nRet := fClose( nH )
// 清除 afBuffer[cH] 所佔的記憶體
If hb_HHasKey( afBuffer, cH )
If afBuffer[cH] <> ''
afBuffer[cH] := ''
EndIf
afBuffer[cH] := NIL // 將 Hash() 所佔空間?]為 NIL
hb_HDel( afBuffer, cH ) // 刪除 hash() 所佔空間
EndIf
hb_gcall()
RETURN nRet
代碼: 選擇全部
// add:WenSheng
// 為了改變 fRead() 問題
STATIC afBuffer // , afHandle
// end:WenSheng
PROCEDURE Main( ... )
LOCAL netiosrv[ _NETIOSRV_MAX_ ]
LOCAL cParam
LOCAL cCommand
LOCAL cPassword
:
:
代碼: 選擇全部
HB_Logo()
// add:WenSheng
afBuffer := hb_Hash()
// end:WenSheng
而最大問題在於 fRead(), 因為此函數同時回傳兩個資料,而 hbnetio 一次只能接收一個參數,
所以在下重寫了一個 ssfRead() 來替代原有的 fRead() 函數,先傳回此函數讀取到的 Bytes 數,
並將資料存入變數之中,然後再利用在下另外新增的 ssfBuffer() 來取回剛剛的資料.
如此一來,就可以解決 fRead() Buffer 問題了!
因為採用了 hash() 來寫,所以,fClose() 也被改寫了,用來釋放 buffer 變數記憶體,
當這個低階檔案問題解決之後,接下來就可以利用這個低階檔案功能幹一些勾當了!
例如:在下有個 fCopy() 函數功能,用來複製檔案,並且加了複製進度表顯示,
fCopy( cSource, cTarget ), 我就可以修改此函數,想要複製遠端檔案到本地端來,
我就可以寫成: fCopy( _NETIO+cSource, cTarget ),
如果想將本地端檔案複製到遠端主機去,
我也可以寫成: fCopy( cSource, _NETIO+cTarget ),
我只要修改 fCopy() 這個函數,判斷 cSource/cTarget 哪個變數含有 _NETIO 字串,
有此字串的,代表這個是遠端,沒有的是本地端,範例程式如下(包含了 FWH code):
代碼: 選擇全部
Func fCopy()
Para cSource, cTarget
Priv nRetByte := 00,; && RETURN COPY BYTE
nReadByte := 00,;
nWriteByte := 00,;
nTolByte := 00,;
nSHandle := 00,; && SOURCE FILE HANDLE
nTHandle := 00,; && TARGET FILE HANDLE
nBuffer := 00,;
cBuffer := '',;
nNowCopyByte := 00,;
nTolCopyByte := 00,;
xUN ,;
lSource := .F.,;
lTarget := .F.
*
If ValType( cSource ) # 'C' .Or. ValType( cTarget ) # 'C'
Return nRetByte
EndIf
//
If Empty(_NETIO)
// 一般網路,不用管哪個為遠端或近端
lSource := .F.
lTarget := .F.
Else
// NETIO: 檢查哪一端是 NETIO
If _NETIO $ cSource
lSource := .T.
cSource := Substr( cSource, Len(_NETIO)+1 ) // 去除 _NETIO
EndIf
If _NETIO $ cTarget
lTarget := .T.
cTarget := Substr( cTarget, Len(_NETIO)+1 ) // 去除 _NETIO
EndIf
EndIf
//
MsgMeter( {|oM,oT,oD,lEnd|_FCopy(oM,oT,oD,@lEnd)}, "資料拷貝中....", cSource+" 檔案拷貝中", .F. )
*
Return nRetByte
* 進度表
Func _FCopy(oM,oT,oD,lEnd)
*
Do While .T.
// ?}啟原始檔案
If Empty(_NETIO) .Or. ! lSource
// 一般網路
nSHandle := fOpen( cSource, 66 )
Else
// NETIO 網路
nSHandle := netio_funcexec( 'fOpen', cSource, 66 )
EndIf
If nSHandle == -1 && SOURCE ?}檔錯誤
Exit
EndIf
// 計算原始檔案大小
If Empty(_NETIO) .Or. ! lSource
// 一般網路
oM:nTotal := nTolCopyByte := fSeek( nSHandle, 0, 2 ) && 移至檔尾,取得TOLBYTE
fSeek( nSHandle, 0 ) && 移回檔頭
Else
// NETIO 網路
oM:nTotal := nTolCopyByte := netio_funcexec( 'fSeek', nSHandle, 0, 2 ) && 移至檔尾,取得TOLBYTE
netio_funcexec( 'fSeek', nSHandle, 0 ) && 移回檔頭
EndIf
// 建立目的檔
If Empty(_NETIO) .Or. ! lTarget
// 一般網路
nTHandle := fCreate( cTarget )
Else
// NETIO 網路
nTHandle := netio_funcexec( 'fCreate', cTarget )
EndIf
If nTHandle == -1 && TARGET ?}檔錯誤
Exit
EndIf
// ?]定緩衝區大小
nBuffer := 30 * 1024
cBuffer := Space( nBuffer )
// 讀取 Source 端資料
If Empty(_NETIO) .Or. ! lSource
// 一般網路
nReadByte := fRead( nSHandle, @cBuffer, nBuffer )
Else
// NETIO 網路
nReadByte := netio_funcexec( 'ssfRead', nSHandle, @cBuffer, nBuffer )
EndIf
If nReadByte == 0
Exit // 讀不到東西,離?}
EndIf
If Empty(_NETIO) .Or. ! lSource
// 一般網路
Else
// NETIO 網路
cBuffer := netio_funcexec( 'ssfBuffer', nSHandle ) // 取回 Buffer 資料
EndIf
//
Do While .T.
//
oM:Set( nTolByte )
SysRefresh()// oD:UpDate()
// 將資料寫入目的檔
If Empty(_NETIO) .Or. ! lTarget
// 一般網路
nWriteByte := fWrite( nTHandle, cBuffer, nReadByte )
Else
// 一般網路
nWriteByte := netio_funcexec( 'fWrite', nTHandle, cBuffer, nReadByte )
EndIf
If nWriteByte <> nReadByte
Exit // 寫入錯誤
Else
nTolByte += nWriteByte // 已經寫入多少 Bytes 資料
EndIf
// 讀取原始檔資料
If Empty(_NETIO) .Or. ! lSource
// 一般網路
nReadByte := fRead( nSHandle, @cBuffer, nBuffer )
Else
// NETIO 網路
nReadByte := netio_funcexec( 'ssfRead', nSHandle, @cBuffer, nBuffer )
EndIf
If nReadByte == 0
Exit
EndIf
If Empty(_NETIO) .Or. ! lSource
// 一般網路
Else
// NETIO 網路
cBuffer := netio_funcexec( 'ssfBuffer', nSHandle ) // 取回 Buffer 資料
EndIf
//
EndDo
//
oM:Set( nTolCopyByte )
oD:UpDate()
//
nRetByte := nTolByte
Exit
//
EndDo
//
If nTHandle <> -1
If Empty(_NETIO) .Or. ! lTarget
// 一般網路
fClose( nTHandle )
Else
// NETIO 網路
netio_funcexec( 'ssfClose', nTHandle )
EndIf
EndIf
If nSHandle <> -1
If Empty(_NETIO) .Or. ! lSource
// 一般網路
fClose( nSHandle )
Else
// NETIO 網路
netio_funcexec( 'ssfClose', nSHandle )
EndIf
EndIf
//
lEnd := .T.
oD:End()
//
Return NIL
未完,待續....
6. 針對 .ini 讀寫問題作修改:
因為在下用了 FWH, 所以,直接用 FWH 提供的 GetPvProfString/WritePProString
就算你直接用 harbour 的 ini 功能,還是得面對遠端檔案讀寫問題!
在下的解決方法,是利用轉換命令方式來處理,為每一支程式碼加上一個函數檔:
代碼: 選擇全部
#include "xxx.ch"
代碼: 選擇全部
#xtranslate GetPvProfString([<x, ...>]) => ssWinIni( 'GetPvProfString', <x>)
#xtranslate WritePProString([<x, ...>]) => ssWinIni( 'WritePProString', <x>)
是要從遠端存取?還是本地端存取?
代碼: 選擇全部
Func ssWinIni( cFuncName, x1, x2, x3, x4 )
Local cPath := x4 // 檔案名稱+路徑
Local nAt := At( _NETIO, cPath) // 第五個為 ini 檔案名稱+路徑(第一個函數名稱)
Local cFile := ''
If ! Empty( _NETIO ) .And. nAt > 0
cFile := Substr( cPath, Len(_NETIO)+1 ) // 去掉 _NETIO 字串,後面的資料才是我們要的「主機路徑」
Return netio_funcexec( cFuncName, x1, x2, x3, cFile )
Else
Return &cFuncName(x1, x2, x3, x4)
EndIf
如果不包含 _NETIO 字串,就代表這個檔案是本地端檔案!就這麼簡單,不是嗎?Very Happy
如果你要存取遠端 .ini 中的資料,那就可以寫成:
代碼: 選擇全部
WritePProString( 'SYSVAR', 'IP', "127.0.0.1", _NETIO+'\abc.ini' )
代碼: 選擇全部
WritePProString( 'SYSVAR', 'IP', "127.0.0.1", '\abc.ini' )
7. 再來玩一個好玩的,在遠端執行壓縮程式備份功能,
代碼: 選擇全部
cCmpStr := 'WinRAR.EXE -a -y test.rar *.dbf'
netio_funcexec( 'hb_run', cCmpStr )
fCopy() 函數功能,就可以將遠端的 .DBF 給壓縮、複製到本地端了!
附上我所修改的 netiosrv.prg
netiosrv.prg
記得加上 FWH 的 profile.c, 否則無法存取 .ini
另外再附上已經編譯好的 hbnetio.exe ,可以直接執行 hbnetio.exe -rpc 就好了.
ps. 不放心的人請重新編譯吧!!
hbnetio.exe
[完]... 有想到再補上來!若是你有任何好的建議也可以提供出來大家一起研究!
[End]