VC6的lib類函數(shù)到易語言調(diào)用解決方案
http://cid-906aa4c2f88eb215.office./self.aspx/Share/易語言/問題及解決方案/lib調(diào)用解決方案.zip
相關(guān)鏈接 http://bbs./read.php?tid=249406
文檔編寫:菲菲
技術(shù)指導(dǎo):樹上de蟲蟲
輔助工具提供:樹上de蟲蟲
測試源碼編寫:菲菲
測試人員:樹上de蟲蟲,血清,菲菲
測試系統(tǒng):winxp ,win2003,
帶*為必須項,不得更換工具或者版本
準(zhǔn)備工具:
1，Dlldump,支持DLL,EXE,LIB
* 2，librename
* 3，易語言5.11或更高版本
4，易語言黑月
* 5，VC6
* 6, 完整版VC6鏈接器,直接修改為VC6\VC98\Bin即可
詳細(xì)操作步驟:
一,易語言
1，"Lib的C++源碼"生成lib文件,復(fù)制mysystem.lib到"\原版lib文件\mysystem.lib"目錄(本步驟可省略,已有生成好的mysystem.lib)
2，復(fù)制 \原版lib文件\mysystem.lib 到 \原版lib_測試_易語言\mysystem.lib(本步驟可省略)
3,運行 \Dlldump\Dlldump7.exe,拖放mysystem.lib到程序界面,執(zhí)行"生成全部數(shù)據(jù)".
打開生成的mysystem_ALL.txt,搜索定義函數(shù)名"mysystem"(查看VC6源碼)
查找相關(guān)字符
"public: virtual int __thiscall mysys::mysystem(char const *)" (?mysystem@mysys@@UAEHPBD@Z)
3，新建windows控制臺程序,mylibtest.e,
添加DLL命令
|
.版本 2
.DLL命令 system, 整數(shù)型, "mysystem.lib", "?mysystem@mysys@@UAEHPBD@Z"
.參數(shù) command, 文本型
|
添加測試代碼
|
..版本 2
.子程序 子程序1
.局部變量 輸入內(nèi)容, 文本型
system (“title system命令演示”)
system (“mode con cols=48 lines=25”)
system (“color 0B”)
system (“date /T”)
system (“TIME /T”)
system (“echo (quit 退出)”)
system (“echo (cls 清屏)”)
.判斷循環(huán)首 (真)
輸入內(nèi)容 ＝ 標(biāo)準(zhǔn)輸入 ()
.判斷開始 (輸入內(nèi)容 ＝ “exit”)
跳出循環(huán) ()
.判斷 (輸入內(nèi)容 ＝ “quit”)
跳出循環(huán) ()
.判斷 (輸入內(nèi)容 ＝ “cls”)
system (“cls”)
.默認(rèn)
system (輸入內(nèi)容)
.判斷結(jié)束
.判斷循環(huán)尾 ()
|
4,靜態(tài)編譯,并執(zhí)行文件測試
二,黑月
1，復(fù)制 \原版lib文件\mysystem.lib 到 \librename\mysystem.lib
2, 修改rename.bat,相關(guān)參數(shù)
注意:新函數(shù)名長度 不得超過 原函數(shù)名長度
|
說明
|
librename [lib文件] [新lib文件] [原函數(shù)名] [新函數(shù)名] [參數(shù)個數(shù)]
|
|
|
librename [/lib] [/newlib] [/ProcName] [/NewProcName] [/ArgCount]
|
|
示例
|
librename.exe /lib:mysystem.lib /newlib:Newmysystem.lib /ProcName:?mysystem@mysys@@UAEHPBD@Z /NewProcName:mysystem /ArgCount:1
|
3，執(zhí)行rename.bat 生成新lib文件"Newmysystem.lib"
4，復(fù)制Newmysystem.lib 到 \修改版lib_測試_黑月\Newmysystem.lib
5，新建windows控制臺程序,mylibtestMoon.e,
6，添加黑月lib應(yīng)用mylibtestMoon.ini
[Link]
Opt= Newmysystem.lib
添加DLL命令
|
.版本 2
.DLL命令 system, 整數(shù)型, "靜態(tài)庫", "mysystem@4"
.參數(shù) command, 文本型
|
添加測試代碼
|
..版本 2
.子程序 子程序1
.局部變量 輸入內(nèi)容, 文本型
system (“title system命令演示”)
system (“mode con cols=48 lines=25”)
system (“color 0B”)
system (“date /T”)
system (“TIME /T”)
system (“echo (quit 退出)”)
system (“echo (cls 清屏)”)
.判斷循環(huán)首 (真)
輸入內(nèi)容 ＝ 標(biāo)準(zhǔn)輸入 ()
.判斷開始 (輸入內(nèi)容 ＝ “exit”)
跳出循環(huán) ()
.判斷 (輸入內(nèi)容 ＝ “quit”)
跳出循環(huán) ()
.判斷 (輸入內(nèi)容 ＝ “cls”)
system (“cls”)
.默認(rèn)
system (輸入內(nèi)容)
.判斷結(jié)束
.判斷循環(huán)尾 ()
|
4,黑月編譯,并執(zhí)行文件測試
三,易語言 修改版lib
1，復(fù)制Newmysystem.lib 到 \修改版lib_測試_易語言\Newmysystem.lib
2，新建windows控制臺程序,mylibtestMoon.e,
添加DLL命令
|
.版本 2
.DLL命令 system, 整數(shù)型, "Newmysystem.lib", "_mysystem@4"
.參數(shù) command, 文本型
|
添加測試代碼
|
..版本 2
.子程序 子程序1
.局部變量 輸入內(nèi)容, 文本型
system (“title system命令演示”)
system (“mode con cols=48 lines=25”)
system (“color 0B”)
system (“date /T”)
system (“TIME /T”)
system (“echo (quit 退出)”)
system (“echo (cls 清屏)”)
.判斷循環(huán)首 (真)
輸入內(nèi)容 ＝ 標(biāo)準(zhǔn)輸入 ()
.判斷開始 (輸入內(nèi)容 ＝ “exit”)
跳出循環(huán) ()
.判斷 (輸入內(nèi)容 ＝ “quit”)
跳出循環(huán) ()
.判斷 (輸入內(nèi)容 ＝ “cls”)
system (“cls”)
.默認(rèn)
system (輸入內(nèi)容)
.判斷結(jié)束
.判斷循環(huán)尾 ()
|
4,靜態(tài)編譯,并執(zhí)行文件測試
