界面

q273814

大部分的游戏登陆器是嵌套的网页来做界面研究大半天了

终于搞出来了
过些日子抽时间研究TC的写法
然后就可以把界面完全使用简单华丽的HTML了

q273814

1. 
   
2. unit Unit2;
   
3. interface
   
4. uses Windows, Classes;
   
5. type
   
6. TDHTMLEvent = class (TObject, IUnknown, IDispatch)
   
7. private
   
8. FRefCount: Integer;
   
9. FOldEvent: IDispatch;
   
10. FElementEvent: TNotifyEvent;
    
11. // IUnknown
    
12. function QueryInterface(c**t IID: TGUID; out Obj): Integer; stdcall;
    
13. function _AddRef: Integer; stdcall;
    
14. function _Release: Integer; stdcall;
    
15. // IDispatch
    
16. function GetTypeInfoCount(out Count: Integer): HResult; stdcall;
    
17. function GetTypeInfo(Index, LocaleID: Integer; out TypeInfo): HResult; stdcall;
    
18. function GetIDsOfNames(c**t IID: TGUID; Names: Pointer;
    
19. NameCount, LocaleID: Integer; DispIDs: Pointer): HResult; stdcall;
    
20. function Invoke(DispID: Integer; c**t IID: TGUID; LocaleID: Integer;
    
21. Flags: Word; var Params; VarResult, ExcepInfo, ArgErr: Pointer): HResult; stdcall;
    
22. public
    
23. { Public declarati** }
    
24. function HookEventHandler(CallerHandler: TNotifyEvent): IDispatch;
    
25. property ElementEvent: TNotifyEvent read FElementEvent write FElementEvent;
    
26. end;
    
27. implementation
    
28. { TDHTMLEvent }
    
29. function TDHTMLEvent._AddRef: Integer;
    
30. begin
    
31. Inc(FRefCount);
    
32. Result := FRefCount;
    
33. end;
    
34. function TDHTMLEvent._Release: Integer;
    
35. begin
    
36. Dec(FRefCount);
    
37. Result := FRefCount;
    
38. end;
    
39. function TDHTMLEvent.GetIDsOfNames(c**t IID: TGUID; Names: Pointer;
    
40. NameCount, LocaleID: Integer; DispIDs: Pointer): HResult;
    
41. begin
    
42. if FOldEvent <> nil then
    
43. Result := FOldEvent.GetIDsOfNames(IID, Names, NameCount, LocaleID, DispIDs)
    
44. else
    
45. Result := E_NOTIMPL;
    
46. end;
    
47. function TDHTMLEvent.GetTypeInfo(Index, LocaleID: Integer;
    
48. out TypeInfo): HResult;
    
49. begin
    
50. if FOldEvent <> nil then
    
51. Result := FOldEvent.GetTypeInfo(Index, LocaleID, TypeInfo)
    
52. else begin
    
53. Pointer(TypeInfo) := nil;
    
54. Result := E_NOTIMPL;
    
55. end
    
56. end;
    
57. function TDHTMLEvent.GetTypeInfoCount(out Count: Integer): HResult;
    
58. begin
    
59. if FOldEvent <> nil then
    
60. Result := FOldEvent.GetTypeInfoCount(Count)
    
61. else begin
    
62. Count := 0;
    
63. Result := S_OK;
    
64. end;
    
65. end;
    
66. function TDHTMLEvent.QueryInterface(c**t IID: TGUID; out Obj): Integer;
    
67. begin
    
68. if GetInterface(IID, Obj) then
    
69. Result := S_OK
    
70. else
    
71. Result := E_NOINTERFACE;
    
72. end;
    
73. function TDHTMLEvent.Invoke(DispID: Integer; c**t IID: TGUID;
    
74. LocaleID: Integer; Flags: Word; var Params; VarResult, ExcepInfo,
    
75. ArgErr: Pointer): HResult;
    
76. begin
    
77. try
    
78. if Assigned(FElementEvent) then FElementEvent(Self);
    
79. finally
    
80. if FOldEvent <> nil then
    
81. Result := FOldEvent.Invoke(DispID, IID, LocaleID, Flags, Params,
    
82. VarResult, ExcepInfo, ArgErr)
    
83. else
    
84. Result := E_NOTIMPL;
    
85. end;
    
86. end;
    
87. function TDHTMLEvent.HookEventHandler(CallerHandler: TNotifyEvent): IDispatch;
    
88. begin
    
89. FOldEvent:=nil;
    
90. ElementEvent:=CallerHandler;
    
91. Result:=Self;
    
92. end;
    
93. end.
    

复制代码

q273814

1. 
   

复制代码

忆辰辅助

腻害