TC官方合作论坛

标题: 界面 [打印本页]
作者: q273814    时间: 2015-6-2 17:45
标题: 界面
大部分的游戏登陆器是嵌套的网页来做界面研究大半天了

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

[attach]20653[/attach]
作者: q273814    时间: 2015-6-2 20:10
本帖最后由 q273814 于 2015-6-2 20:12 编辑

  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    时间: 2015-6-2 20:12
本帖最后由 q273814 于 2015-6-2 20:14 编辑

复制代码
作者: 忆辰辅助    时间: 2015-6-3 07:59
腻害



欢迎光临 TC官方合作论坛 (http://bbs.52tc.co/) Powered by Discuz! X3.1