
Dll被封装成接口
DoDoDTa
这个作者很懒,什么都没留下…
展开
-
DLL 实现单元
unit uSetConfig; interface uses SysUtils, uInterface, Windows, Controls, Forms, FSetForm; type { TDllTest } TIConfig = class(TInterfacedObject, IConfig) private FNotic:INotic; pro原创 2014-06-29 23:55:35 · 415 阅读 · 0 评论 -
接口文件
unit uInterface; //接口单元 interface uses Windows,Classes; type { IDllTest } IHtpCom = interface; INotic = interface ['{F4AA4BD8-7015-46D2-BD8B-D911CF111FD7}'] procedure setState(const bStart原创 2014-06-29 23:48:40 · 749 阅读 · 0 评论