1.首先我們必須知道C語(yǔ)言的調(diào)用約定為
__cdecl(即參數(shù)從右向左依次進(jìn)棧,由調(diào)用者還原堆棧).
2.一條push指令最多壓入4個(gè)字節(jié),當(dāng)不足4個(gè)字節(jié)時(shí)應(yīng)補(bǔ)齊4個(gè)字節(jié),超過(guò)4個(gè)字節(jié)時(shí)應(yīng)該由低位到高位依次壓棧.
3.pop指令也和push一樣一次只能彈出4個(gè)字節(jié).
4.我們需要一個(gè)CallStruct類型來(lái)儲(chǔ)存一個(gè)參數(shù).
1 class CallStruct
2 {
3 public:
4 INT Integer;
5 BOOL Bool;
6 DOUBLE Real;
7 WCHAR String[MAX_STRING];
8
9 enum TYPE
10 {
11 ctInteger,
12 ctString,
13 ctBool,
14 ctReal,
15 ctVoid,
16 }Type;
17
18 CallStruct() : Integer(0),Bool(FALSE),Real(0)
19 {
20 String[0] = 0;
21 }
22
23 CallStruct(const NAutoPtr<VirtualMachine::VarClass>& Var) : Integer(Var->Integer),Bool(Var->Bool),Real(Var->Real),Type((TYPE)Var->Type)
24 {
25 if(Type == ctString) wcscpy(String,Var->String);
26 }
27 };
5.我們需要一個(gè)列表來(lái)存放參數(shù)和一個(gè)返回值對(duì)象來(lái)存放返回值.
1 List<NAutoPtr<CallStruct>> VarList;
2 NAutoPtr<CallStruct> Return;
6.最后我們需要一個(gè)HMODULE和一個(gè)FARPROC分別存放dll的句柄和函數(shù)地址.
1 HMODULE hModule;
2 FARPROC FunctionPtr;
7.然后我們添加幾個(gè)功能函數(shù).
1 BOOL AddVar(NAutoPtr<VirtualMachine::VarClass>& Var);
2 BOOL SetReturnType(CallStruct::TYPE Type);
3 BOOL SetLibName(LPTSTR Name);
4 BOOL SetFunctionName(LPTSTR Name);
注意:GetProcAddress第二個(gè)參數(shù)只接受LPCSTR類型的字符串,應(yīng)此如果傳入的是Unicode編碼的字符必須將其轉(zhuǎn)換成ANSI的.
8.我們添加一個(gè)函數(shù)Run用于調(diào)用函數(shù).
1 BOOL CallMacro::Run()
2 {
3 if(FunctionPtr == 0 || Return.Buffer() == 0) return FALSE;
4 union RealStruct
5 {
6 double Real;
7 struct
8 {
9 int Head,Tail;
10 };
11 };
12 NAutoPtr<CallStruct> cs;
13 int Integer;
14 BOOL Bool;
15 RealStruct Real; // Push指令一次只能壓入4字節(jié)
16 LPTSTR String;
17
18 int iEsp;
19 __asm mov int ptr[iEsp],esp; // 保存esp
20 for(int i=0;i<VarList.Size();i++)
21 {
22 cs = VarList[i];
23 Integer = cs->Integer;
24 Bool = cs->Bool;
25 Real.Real = cs->Real;
26 String = cs->String;
27 switch(cs->Type)
28 {
29 case CallStruct::ctInteger:
30 __asm push Integer;
31 break;
32 case CallStruct::ctString:
33 __asm push String;
34 break;
35 case CallStruct::ctBool:
36 __asm push Bool;
37 break;
38 case CallStruct::ctReal:
39 __asm push Real.Tail;
40 __asm push Real.Head;
41 break;
42 }
43 }
44 FARPROC proc = FunctionPtr;
45 int Head,Tail;
46 __asm
47 {
48 call proc
49 mov int ptr[Head],edx
50 mov int ptr[Tail],eax
51 }
52 switch(Return->Type)
53 {
54 case CallStruct::ctInteger:
55 Return->Integer = Tail;
56 break;
57 case CallStruct::ctString:
58 wcscpy(Return->String,(LPCTSTR)Tail);
59 break;
60 case CallStruct::ctBool:
61 Return->Bool = Tail;
62 break;
63 case CallStruct::ctReal:
64 __asm fstp [Real.Real];
65 Return->Real = Real.Real;
66 break;
67 }
68 // __declspec調(diào)用約定,需要手工還原堆棧
69 __asm mov esp,int ptr[iEsp];
70 return TRUE;
71 }
Run函數(shù)首先檢查是否已經(jīng)裝載了DLL并獲得了函數(shù)地址,以及返回值類型是否已經(jīng)定義.
然后根據(jù)類型依次將函數(shù)壓棧.
然后調(diào)用call指令并保存返回值.(這里需要注意的是
當(dāng)返回值類型為double或float類型時(shí)必須使用fstp指令從FPU寄存器棧的棧頂?shù)闹等〕鰜?lái))
最后還原堆棧.
然后我們來(lái)測(cè)試一下.
創(chuàng)建一個(gè)名為TestDLL的DLL工程并添加函數(shù)Test.
1 TESTDLL_API double Test(double d,double* d1,WCHAR* lpBuffer)
2 {
3 if(d == 123.456789) MessageBox(0,lpBuffer,L"",0);
4 *d1 = 789.654;
5 return 77777;
6 }
然后創(chuàng)建一個(gè)測(cè)試工程,添加相關(guān)文件.
在_tmain中添加以下代碼.
1 int _tmain(int argc, _TCHAR* argv[])
2 {
3 double d;
4 CallMacro cm;
5 NAutoPtr<VirtualMachine::VarClass> Var;
6
7 Var = new VirtualMachine::VarClass;
8 Var->Type = VirtualMachine::VarClass::vtString;
9 wcscpy(Var->String,L"aaaaa");
10 cm.AddVar(Var);
11
12 Var = new VirtualMachine::VarClass;
13 Var->Type = VirtualMachine::VarClass::vtInteger;
14 Var->Integer = (INT)&d;
15 cm.AddVar(Var);
16
17 Var = new VirtualMachine::VarClass;
18 Var->Type = VirtualMachine::VarClass::vtReal;
19 Var->Real = 123.456789;
20 cm.AddVar(Var);
21
22 cm.SetLibName(L"TestDll.dll");
23 cm.SetFunctionName(L"Test");
24 cm.SetReturnType(CallMacro::CallStruct::ctReal);
25 cm.Run();
26
27 wprintf(L"%f %f\n",d,cm.Return->Real);
28 system("pause");
29 return 0;
30 }
編譯并運(yùn)行,可以看到Test函數(shù)調(diào)用成功,并成功輸出d的值和返回值.
最后給出
完整代碼.
posted on 2011-02-06 22:21
lwch 閱讀(2694)
評(píng)論(0) 編輯 收藏 引用 所屬分類:
NScript