一切皆有可能!

oldrev

今天晚上在牺牲了N^N个脑细胞之后，终于实现了上一帖所设想的DLL包装类（把Proc换成Symbol），源程序已经通过了编译，可以运行，当然还不够强壮。大半夜的趁着这股热乎劲，贴上来玩玩。


  1 import std.c.windows.windows;
  2 import std.stdio;
  3 import std.traits;
  4 import std.string;
  5 import std.utf;
  6
  7 struct Symbol(char[] SymName, Ret, Params...)
  8 {
  9     alias Params        Parameters;
10     alias Ret           ReturnValue;
11     const char[] Name = SymName;
12     extern(Windows) alias ReturnValue function(Params) FunctionType;
13 }
14
15 // FP_Function
16 private template MixinMember(S) //S = Symbol template
17 {
18     mixin("public alias S.FunctionType FP_" ~ S.Name ~ ";");
19     mixin("public S.FunctionType " ~ S.Name ~ ";");
20 }
21
22
23 private template MixinAllMembers(S, V...)
24 {
25     mixin MixinMember!(S);
26     static if(V.length > 0)
27     {
28         mixin MixinAllMembers!(V);
29     }
30 }
31
32
33 class Module(char[] Path, Symbols...)
34 {
35     private HMODULE m_handle = null;
36
37     public mixin MixinAllMembers!(Symbols);
38
39     public this()
40     {
41         load(Path);
42         initMembers();
43     }
44
45     public ~this()
46     {
47         free();
48     }
49
50     private void initMembers()
51     {
52         foreach (i, S; Symbols)
53         {
54             mixin(S.Name ~ " = getSymbol!(FP_" ~ S.Name ~ ")(S.Name);");
55         }
56     }
57
58     void load(char[] path)
59     {
60
61 //       m_handle = LoadLibraryW(toUtf16z(path));
62         m_handle = LoadLibraryA(toStringz(path));
63        assert(m_handle);
64     }
65
66     void free()
67     {
68         if(m_handle != null)
69         {
70             FreeLibrary(m_handle);
71             m_handle = null;
72         }
73     }
74
75     public T getSymbol(T)(char[] sym)
76     {
77         return cast(T)getSymbol1(sym);
78     }
79
80     public void* getSymbol1(char[] sym)
81     {
82         return GetProcAddress(m_handle, toStringz(sym));
83     }
84
85 }
86
87
88 void main()
89 {
90
91     auto dll = new Module!("User32.dll",
92             Symbol!("MessageBoxW", int, HWND, LPCWSTR, LPCWSTR, UINT),
93             Symbol!("MessageBoxA", int, HWND, LPCSTR, LPCSTR, UINT)
94             );
95
96     dll.MessageBoxW(null, "Hello! DLL! W", "Title W", MB_OK);
97     dll.MessageBoxA(null, "Hello! DLL! A", "Title A", MB_OK);
98
99 }
100



注意：需要 DMD 1.005+ 编译。
BTW: 这个语法着色是用Vim搞的，很顺眼。

如需要原始源程序请与我联系：wstring#**.@.**#gmail.com