主题:EXE + BPL + DLL + Interface实现插件式客户端解决方案

时间:2005-02-25(星期五) 15:00(下午三点)
主题:浅谈怎样利用EXE + BPL + DLL + Interface实现插件式客户端解决方案
地点:群号：5726882（煮茶待英雄会议室）
主讲:A1.烟灰缸、D10.天地弦
技术支持:A3.武稀松(王锐)

2005-02-25 14:55:52 /:>D10.天地弦(185511468)
先来一点对象的基础知识润润

2005-02-25 14:56:38 /:>D10.天地弦(185511468)
这个是献给初学者的。

2005-02-25 14:57:28 /:>D10.天地弦(185511468)

2005-02-25 14:59:03 /:>D10.天地弦(185511468)
上图中A.Free,是将实例内存释放。A实际上是一指针。指向实例内存块。A.Free后A并不是为nil;A仍然记录，

实例内存块的地址(虽然内存已经释放)，就像锁被砸碎了，钥匙依然还在(还是指向那把锁)一样。
所以在使用if Form1 = nil来判断Form1对象实例已经建立时要注意。

对象间的赋值(B:=A)只是将对象地址就是指针的赋值，将A实例地址赋值给B，B也是指向那块地址。
 
2005-02-25 14:59:29 /:>D10.天地弦(185511468)
我讲得可能不对，请高手帮忙指正

2005-02-25 14:59:41 /:>D10.天地弦(185511468)
结合图，看

2005-02-25 15:00:00 A3.武稀松(42088303)
Delphi中的类类型变量实际上都是指针,是对象的引用

2005-02-25 15:00:27 /:>D10.天地弦(185511468)
我们经常判断窗体有没有建立，一般用
if Form1 = nil then
begin
  没有建立
end;

2005-02-25 15:00:46 D3天之痕若虹(86278566)
if not assigned() then 

2005-02-25 15:01:14 /:>D10.天地弦(185511468)
assigned也是判断对象是不是为nil

2005-02-25 15:01:16 Max.Free/mg(24634631)
内存释放不等于指针也清空

2005-02-25 15:01:21 /:>D10.天地弦(185511468)
y

2005-02-25 15:01:34 D3天之痕若虹(86278566)
freeandnil()时, a才为nil

2005-02-25 15:01:43 C01.枫长舞(273966879)
D3天之痕若虹(86278566) 15:00:46
if not assigned() then 
－－－有时这样判断也会出错。

2005-02-25 15:01:44 /:>D10.天地弦(185511468)
上图中A.Free,是将实例内存释放。A实际上是一指针。指向实例内存块。A.Free后A并不是为nil;A仍然记录，

实例内存块的地址(虽然内存已经释放)，就像锁被砸碎了，钥匙依然还在(还是指向那把锁)一样。
所以在使用if Form1 = nil来判断Form1对象实例已经建立时要注意。
对象间的赋值(B:=A)只是将对象地址就是指针的赋值，将A实例地址赋值给B，B也是指向那块地址。
--------------------------
上面的图懂了这几句就参不多了

2005-02-25 15:01:49 A3.武稀松(42088303)
A3.武稀松(42088303) 15:02:53
Delphi中的类类型变量实际上都是指针,是对象的引用
,其实讲了这么久说是面向对象知识.其实都是指针的知识而已.D10命题不准

2005-02-25 15:02:14 /:>D10.天地弦(185511468)
好了，开始正题吧

2005-02-25 15:02:23 B1.斜阳(249208513)
建议大家以后释放对象的时候多使用FreeAndNil这个函数

2005-02-25 15:02:25 /:>D10.天地弦(185511468)
回家慢慢品味一下就行了

2005-02-25 15:03:45 A3.武稀松(42088303)
如果是组件的派生类注意在Notifiction方法就行了

2005-02-25 15:04:00 /:>D10.天地弦(185511468)
刚刚是送的

2005-02-25 15:04:02 /:>D10.天地弦(185511468)
现在开始

2005-02-25 15:04:39 /:>D10.天地弦(185511468)
BPL + DLL + EXE

2005-02-25 15:05:11 /:>D10.天地弦(185511468)
一个大的项目一般要分成几个模块

2005-02-25 15:05:44 /:>D10.天地弦(185511468)
先问一下

2005-02-25 15:06:09 /:>D10.天地弦(185511468)
有谁用ＤＬＬ来开发模块

2005-02-25 15:06:17 dirk/:;(342998661)
我

2005-02-25 15:06:18 Max.Free/mg(24634631)
[v]

2005-02-25 15:06:19
Chester(59552649)
我

2005-02-25 15:06:20 KEN(58730522)
我

2005-02-25 15:06:25 凡尘(30602009)
我想,

2005-02-25 15:06:31 /:>D10.天地弦(185511468)
没了？

2005-02-25 15:06:33
Chester(59552649)
不过我是带窗体的可能有点不好

2005-02-25 15:06:33 清葱岁月(29067690)
我也想

2005-02-25 15:06:38 很深(86517110)
一直没试过。快讲

2005-02-25 15:06:40 凡尘(30602009)
但没开始做呢.所以需要这方面的只是.

2005-02-25 15:06:46 /$HansBen/sj(1011185)
我想学

2005-02-25 15:06:50 古木(67207231)
试验过

2005-02-25 15:06:55 /:>D10.天地弦(185511468)
好

2005-02-25 15:07:01 KEN(58730522)
我也刚刚用，带窗体的

2005-02-25 15:07:09 A3.武稀松(42088303)

Chester(59552649) 15:06:33
不过我是带窗体的可能有点不好
---------------
我们讨论的带运行时包就没问题

2005-02-25 15:07:24 Max.Free/mg(24634631)
偶的都带运行包

2005-02-25 15:07:25 A3.武稀松(42088303)
所以请大家往下听

2005-02-25 15:07:31 /:>D10.天地弦(185511468)
做过的，都比较清楚，纯ＤＬＬ里放子窗体是是比较难搞的，是不是

2005-02-25 15:07:48 /:>D10.天地弦(185511468)
请大家跟着我思路来

2005-02-25 15:07:49 Max.Free/mg(24634631)
是

2005-02-25 15:07:50 A1.笑熬糨糊(2282902)
D10，分小题来。

2005-02-25 15:08:00 dirk/:;(342998661)
我都是代form的

2005-02-25 15:08:04 /:>D10.天地弦(185511468)
争取一堂课讲完，讲第二次就不好了

2005-02-25 15:08:07
Chester(59552649)
什么子窗体，是不是MDI窗体

2005-02-25 15:08:11 /:>D10.天地弦(185511468)
嗯

2005-02-25 15:08:28 /:>D10.天地弦(185511468)
第一小题：为什么不用纯DLL

2005-02-25 15:08:29 dirk/:;(342998661)
我是用普通form，非mdi

2005-02-25 15:08:35 A3.武稀松(42088303)
任何都可以

2005-02-25 15:08:56 KEN(58730522)
什么是运行包 BPL 

2005-02-25 15:08:57 dirk/:;(342998661)
我就是用纯dll的

2005-02-25 15:09:09 A3.武稀松(42088303)
建议先给大家普及一下包的知识和原理

2005-02-25 15:09:14 /:>D10.天地弦(185511468)
做过的都知道纯ＤＬＬ有很多问题

2005-02-25 15:09:45 Max.Free/mg(24634631)
纯DLL我也做过,子窗体的.问题都解决了.

2005-02-25 15:09:53 凡尘(30602009)
那你不用听了.

2005-02-25 15:09:54 古木(67207231)
单使用DLL，我已经测试成功

2005-02-25 15:10:20 dirk/:;(342998661)
我插一句，纯dll有些小问题，不过并不影响主要的程序功能

2005-02-25 15:11:24 B1.斜阳(249208513)
技术是百家争鸣，说不上谁好谁不好，在没有找到更好的途径之前，先听D10讲好不。毕竟多一种思路多一种选

择啊，路多了更好走。

2005-02-25 15:11:32 /:>D10.天地弦(185511468)
EXE + BPL + DLL 这种模式就是要解决DLL中的种种问题
还有要实现将模块像插件一样

2005-02-25 15:12:12 /:>D10.天地弦(185511468)
只要遵守规则拿来插件就可以使用了

2005-02-25 15:13:00 /:>D10.天地弦(185511468)
上面所说的是为什么我们要使用EXE + BPL + DLL这种模式

2005-02-25 15:13:58 A3.武稀松(42088303)
上面你也没解释为什么啊

2005-02-25 15:14:06 /:>D10.天地弦(185511468)
前面A3,和A1讨论过BPL最大的好处就是共享数据

2005-02-25 15:14:46 A3.武稀松(42088303)
最好把那节共享包的博客日记发给大家

2005-02-25 15:15:18 /:>D10.天地弦(185511468)
所以就有了这种模式了，因为事包BPL最大的好处就是共享数据
http://www.2ccc.com/article.asp?articleid=1903
 
看看readme.txt

2005-02-25 15:25:20 /:>D10.天地弦(185511468)
主要的思路在上面的界面上了

2005-02-25 15:25:24 A3.武稀松(42088303)
D10说下去

2005-02-25 15:26:23 /:>D10.天地弦(185511468)
采用的是将mdi类似的窗体。子窗本是放在PageControl的TabSheet上的
 

2005-02-25 15:26:35 /:>D10.天地弦(185511468)
PageControl是主窗体

2005-02-25 15:27:19 A1.笑熬糨糊(2282902)
算了，D10，我先带大家一阵路，不然，下面的路不好走。

2005-02-25 15:27:59 /:>D10.天地弦(185511468)
老大，你先讲讲

2005-02-25 15:28:19 A1.笑熬糨糊(2282902)
首先，我们要明确一点，为什么要用EXE+BPL+DLL的方式来开发程序。

2005-02-25 15:28:31 /:>D10.天地弦(185511468)
跟老大走走

2005-02-25 15:28:40 A1.笑熬糨糊(2282902)
其它的先放下了，先跟著我走一走。

2005-02-25 15:29:08 A1.笑熬糨糊(2282902)
首先，是DLL的问题。

2005-02-25 15:30:37 A1.笑熬糨糊(2282902)
很多人都是被DLL整个焦头Lan耳，这大家都有碰过的了。

2005-02-25 15:31:14 A1.笑熬糨糊(2282902)
如果DLL中没有FORM，那还好说；如果，有FORM的话，各种各样的问题就来了。

2005-02-25 15:31:27 A3.武稀松(42088303)
严格来说是类

2005-02-25 15:31:35 Max.Free/mg(24634631)
主要是 Application 是问题.

2005-02-25 15:31:41 A3.武稀松(42088303)
还有字符串的问题都可以解决

2005-02-25 15:31:42 龙在天(199233688)
什么问题呢

2005-02-25 15:31:44 很深(86517110)
带包是什么意思

2005-02-25 15:31:47 D3天之痕若虹(86278566)
还有 forms这单元

2005-02-25 15:31:53 刚子(9294341)
尤其是要有数据源的话

2005-02-25 15:32:01 A1.笑熬糨糊(2282902)
例如，内存的问题阿，Tab键的问题阿，Active的问题阿，等等。。。

2005-02-25 15:32:09 A3.武稀松(42088303)
只要有类就会有这个问题

2005-02-25 15:32:14 /:>D10.天地弦(185511468)
正是因为种种的痛苦的经历，所以有了这个打算讲解，希望大家好好珍惜。

2005-02-25 15:33:08 A1.笑熬糨糊(2282902)
正是因为这样，所以，好多人都想去弄一个方法来解决这个问题。

2005-02-25 15:33:38 A1.笑熬糨糊(2282902)
所以，才有了用EXE->BPL<-DLL这的方法。

2005-02-25 15:33:47 dirk/:;(342998661)
其实我一直在用dll，到是没有太大的问题

2005-02-25 15:34:12 A1.笑熬糨糊(2282902)
第一小题完毕。

2005-02-25 15:34:28 A3.武稀松(42088303)
如果你对VCL比较了解,小心翼翼的用DLL不会遇到问题.但是用了包就更方便了

2005-02-25 15:35:19 A1.笑熬糨糊(2282902)
第二小题：既然用了EXE+BPL+DLL的方式，那么，还用接口干什么？

2005-02-25 15:35:27 刚子(9294341)
用了包是不是所有编译用到的包不允许有重复的

2005-02-25 15:35:36 很深(86517110)
第一题讲完了？

2005-02-25 15:35:41 A3.武稀松(42088303)
建议去看D10的博客,里面有我和A1关于包和DLL结合的好处,和包的机制
http://www.cnblogs/dksoft/

2005-02-25 15:36:48 A1.笑熬糨糊(2282902)
我们约定，把这个方式定义为：三明治方式。

2005-02-25 15:36:55 刚子(9294341)
即 A包中用到 vcl.bpl 而B、c中都用到Vcl.bpl 这样是不是要把Vcl.bpl给提出来

2005-02-25 15:37:01 A1.笑熬糨糊(2282902)
BPL相当於中间的馅。

2005-02-25 15:38:07 A1.笑熬糨糊(2282902)
其实，第二小题中：接口和三明治无关。两者是牛和马的关系。

2005-02-25 15:38:08 Max.Free/mg(24634631)
主要是用bpl来共享内存吧.

2005-02-25 15:39:05 A1.笑熬糨糊(2282902)
也就是说，无论你用不用三明治方式，都可以用接口。

2005-02-25 15:39:35 A1.笑熬糨糊(2282902)
第三小题。

2005-02-25 15:40:03 A3.武稀松(42088303)
平时我们用纯DLL那么VCL的类会在EXE和DLL中各有一份.Application等全局变量也会各有一份.这就是纯DLL的

一切犯罪的源泉---RTL是两份.
而我们这套方案EXE和DLL都是带包运行的,那么EXE和DLL都共享运行时包中的RTL信息和VCL类库.那么就不会出

现地址问题等.也不用麻烦传递Application什么的全局变量了

2005-02-25 15:40:22 A1.笑熬糨糊(2282902)
第三小题：BPL在三明治方式中起什么作用。

2005-02-25 15:40:23 dirk/:;(342998661)
接口的用途和例子可以看看dfw中的wings的笔记。

2005-02-25 15:41:15 Max.Free/mg(24634631)
是接口在这个主题中起什么作用? 先听A1 说bpl的.

2005-02-25 15:41:31 A1.笑熬糨糊(2282902)
BPL的最大作用就是：EXE和DLL共享内存(包含变量，类，实际，接口。。。)

2005-02-25 15:42:38 A1.笑熬糨糊(2282902)
其中，共享内存中最好用的就是：共享类注册表了。

2005-02-25 15:43:24 A1.笑熬糨糊(2282902)
其它的纯DLL也可以作得到，但不如三明治方便。

2005-02-25 15:45:38 A1.笑熬糨糊(2282902)
第四小题，EXE用什么方案来维护BPL和DLL的内容。

05-02-25 15:46:55 A1.笑熬糨糊(2282902)
这一小题中，大家要记得一点，要BPL作用“共享内存”，不要作为其它用途。为什么呢，以下的课会慢慢讲了

。

2005-02-25 15:47:01 dirk/:;(342998661)
wings的笔记，不知道接口的可以看这个入门，知道接口是怎么工作的：
http://www.delphibbs.com/keylife/iblog_show.asp?xid=997

2005-02-25 15:47:37 A1.笑熬糨糊(2282902)
所有的业务界面和DM放在DLL中，BPL只放基类。

2005-02-25 15:47:55 A1.笑熬糨糊(2282902)
这样的话，三明治方式就起作用了。

2005-02-25 15:48:06 A3.武稀松(42088303)
还有一点请A1解释

2005-02-25 15:48:43 A1.笑熬糨糊(2282902)
我的路带完，下面请D10继续带路。。。

2005-02-25 15:49:14 A3.武稀松(42088303)
D10,你的设计方法是EXE+DLL+BPL,那你说一下既然包有这么多好处,为什么还要用DLL而不用EXE+BPL方式呢?

2005-02-25 15:49:51 Yananay(27008115)
对啊，那还要dll做什么？

2005-02-25 15:50:17
Chester(59552649)
D10，你从怎样开始做开始讲吧，教我们怎样做

2005-02-25 15:50:21 A3.武稀松(42088303)
显然大家了解你为什么采用这样的设计方式

2005-02-25 15:50:33 A3.武稀松(42088303)
先让大家了解你为什么采用这样的设计方式 

2005-02-25 15:51:32 A3.武稀松(42088303)
纯DLL方式的问题你也说了,那纯BPL呢

2005-02-25 15:51:54 B6.银狼(43225570)
我想动态加bpl太麻烦了吧

2005-02-25 15:52:03 A3.武稀松(42088303)
BPL可以静态加载的

2005-02-25 15:52:31 A3.武稀松(42088303)
A1来讲一下EXE+DLL+BPL的必要性吧

2005-02-25 15:54:08 A1.笑熬糨糊(2282902)
算了，我来解释这个问题。

2005-02-25 15:54:18 A1.笑熬糨糊(2282902)
第五小题：

2005-02-25 15:54:23 Yananay(27008115)
bpl 可以安全传递delphi自己的对象，dll 就不保证了

2005-02-25 15:54:44 A1.笑熬糨糊(2282902)
第五小题：为什么不用EXE+BPL的方式(也就是纯BPL的方式)。

2005-02-25 15:55:34 A1.笑熬糨糊(2282902)
第一点，大家有没有发觉，动态加载DLL比动太加载BPL方便多了。

2005-02-25 15:56:32 凡尘(30602009)
动态怎么加载bpl?

2005-02-25 15:56:33 吕不为(171958445)
loadpackage
 

2005-02-25 15:56:35 B2.TCP INFO(31329846)
LoadPackage

2005-02-25 15:56:36 A1.笑熬糨糊(2282902)
动态加载BPL的话，一大堆事情要做，往往不如静态加载BPL方便。

2005-02-25 15:56:39 A3.武稀松(42088303)
静态加载也比较方便,和单一EXE开发差不多

2005-02-25 15:56:58 Max.Free/mg(24634631)
DLL 与 exe 只是调用方式不同.

2005-02-25 15:57:27 A1.笑熬糨糊(2282902)
但DLL动态加载就比较方便了。要做的事情也不多，只有一个入口清扫而已。

2005-02-25 15:57:41 Yananay(27008115)
静态加载bpl和静态加载dll效果一样的

2005-02-25 15:58:00 凡尘(30602009)
静态能加载dll?

2005-02-25 15:58:19 A3.武稀松(42088303)
静态加载BPL类不需要注册就可以使用,单元可以直接引用.而动态加载则要注册类.

2005-02-25 15:58:20 A1.笑熬糨糊(2282902)
所以，EXE+BPL+DLL的方式实际上就是一静一动的方式来做三明治了。

2005-02-25 15:58:41 Yananay(27008115)
“静态加载BPL类不需要注册就可以使用,单元可以直接引用.而动态加载则要注册类”
不用啊

2005-02-25 15:58:58 Yananay(27008115)
loadpackage ，不用注册类啊

2005-02-25 15:59:01 A3.武稀松(42088303)
所以动态加载BPL还是比静态加载要麻烦一点的.这就是A1说的第一点

2005-02-25 15:59:13 A1.笑熬糨糊(2282902)
题外话：开发程序不能死脑经。活用就是最好的。

2005-02-25 15:59:25 A3.武稀松(42088303)
Yananay(27008115) 15:58:58
loadpackage ，不用注册类啊
--------------
那么你怎么用里面的类和引用里面的单元呢

2005-02-25 16:00:23 Yananay(27008115)
只是调用一下接口，创建出来bpl，然后就是bpl做了

2005-02-25 16:00:30 A3.武稀松(42088303)
所以你要注册啊

2005-02-25 16:01:02 A3.武稀松(42088303)
不明白的自己回去看.A1,D10继续吧

2005-02-25 16:01:23 A3.武稀松(42088303)
每个人都等太罗嗦了

2005-02-25 16:01:37 /:>D10.天地弦(185511468)
我下次细细的讲解
http://www.2ccc.com/article.asp?articleid=1903上面那个demo
抱歉我只会讲解代码，希望大家可以从代码中理解，并可以知道怎么样用这种方式来制作项目

2005-02-25 16:04:10 A1.笑熬糨糊(2282902)
别的不说，我刚说的五小点，大家看懂了没？

2005-02-25 16:04:35 /:>D10.天地弦(185511468)
我想这样讲大方向还是有很多初级者听不明，不如下讲我讲讲代码，再结合这次讲的，也许效果比较好

2005-02-25 16:04:59 A1.笑熬糨糊(2282902)
D10可以讲代码了。

2005-02-25 16:06:10 A1.笑熬糨糊(2282902)
讲的时候，可以讲讲“这一步为什么这样做”就可以了。

2005-02-25 16:06:32 /:>D10.天地弦(185511468)
那讲代码吧，代码不是很多。

2005-02-25 16:07:30 /:>D10.天地弦(185511468)
好，如果有工程的大家打开工程

2005-02-25 16:08:04 /:>D10.天地弦(185511468)
打开ExeBplDll.bpg

2005-02-25 16:08:44 /:>D10.天地弦(185511468)
[图片]

2005-02-25 16:08:54 /:>D10.天地弦(185511468)
看到图没有

2005-02-25 16:09:32 /:>D10.天地弦(185511468)
里面有一个EXE(主程序) + BPL(共享数据包) + DLL(两个DLL，两个模块)

2005-02-25 16:10:17 /:>D10.天地弦(185511468)
打开 DataCentre.bpl这个包

2005-02-25 16:10:29 /:>D10.天地弦(185511468)
看看里面有什么单元

2005-02-25 16:11:10 /:>D10.天地弦(185511468)
打开了，你看到里面有几个什么单元

2005-02-25 16:11:37 B2.TCP INFO(31329846)
DKFBaseForm,uDKSoftDM

2005-02-25 16:11:41 /:>D10.天地弦(185511468)
请大伙跟我思路走

2005-02-25 16:11:42
 郭大路/wx：(85751365)

contains
  uDKSoftDM in 'uDKSoftDM.pas' {DKSoftDM: TDataModule},
  dkFBaseForm in 'dkFBaseForm.pas' {FBaseForm};
 

2005-02-25 16:12:13 /:>D10.天地弦(185511468)
FBaseForm是工程里所有窗体的基类

2005-02-25 16:12:26 /:>D10.天地弦(185511468)
uDKSoftDM.pas
大家想想为什么要用这个单元包含在DataCentre.bpl里

2005-02-25 16:14:23 /:>D10.天地弦(185511468)
大家想想为什么要用这个单元包含在DataCentre.bpl里
------------
因为这个包是要带的

2005-02-25 16:14:48 /:>D10.天地弦(185511468)
所以Exe 和DLL中都只会存在并且使用一个对象

2005-02-25 16:15:00 D8。飘尘(43745429)
接口的一个好处大家没有说了

2005-02-25 16:15:25 /:>D10.天地弦(185511468)
也就是说DKSoftDM:TdkSoftDM这个对象在Exe和所有的DLL(模块中)是只有一份的

2005-02-25 16:15:30 /:>D10.天地弦(185511468)
明白吗

2005-02-25 16:16:05 凡尘(30602009)
那样会不会有很多共享出现的问题?

2005-02-25 16:16:09 /:>D10.天地弦(185511468)
知道怎么样才可以共享这个数据包吗？

2005-02-25 16:16:54 KEN(58730522)
老大不是说 DM放在DLL中，BPL只放基类

2005-02-25 16:16:56 /:>D10.天地弦(185511468)
凡尘(30602009) 16:16:05
那样会不会有很多共享出现的问题?
--------------------------
我们都想DLL中共享一个数据链接(ADOConnection)

2005-02-25 16:16:59 /:>D10.天地弦(185511468)
大家可以看看ProjectEds.exe和两个DLL里面都有

2005-02-25 16:17:17 /:>D10.天地弦(185511468)
大家可以看看ProjectEds.exe和两个DLL里面的Build with package

2005-02-25 16:17:44 /:>D10.天地弦(185511468)
[图片]

2005-02-25 16:17:48 /:>D10.天地弦(185511468)
这样就是带包了

2005-02-25 16:17:51 A3.武稀松(42088303)
KEN(58730522) 16:16:54
老大不是说 DM放在DLL中，BPL只放基类
------------
BPL的另一个作用就是共享数据

2005-02-25 16:17:58 /:>D10.天地弦(185511468)
exe和dll里面都带了三个包

2005-02-25 16:18:33 吕不为(171958445)
共享对象。

2005-02-25 16:18:45 A3.武稀松(42088303)
嗯

2005-02-25 16:19:12 /:>D10.天地弦(185511468)
好了，大家继续上路

2005-02-25 16:19:26 A1.笑熬糨糊(2282902)
DM放在BPL中也可以，但没有DLL方便。

2005-02-25 16:19:29 /:>D10.天地弦(185511468)
打开主窗体

2005-02-25 16:19:47 清葱岁月(29067690)
我下下来的怎么没有exe啊?

2005-02-25 16:20:37 /:>D10.天地弦(185511468)
打开主窗体吧，我带着大家走一次

2005-02-25 16:20:57 凡尘(30602009)
所谓的主窗体是不是.FMainForm?

2005-02-25 16:21:09 /:>D10.天地弦(185511468)
y

2005-02-25 16:22:07 /:>D10.天地弦(185511468)
看看第一个菜单上的

2005-02-25 16:22:15 /:>D10.天地弦(185511468)
装入DLL

2005-02-25 16:23:24 凡尘(30602009)
[图片]

2005-02-25 16:23:48 /:>D10.天地弦(185511468)
装入DLL,这个比较简单，

2005-02-25 16:23:56 /:>D10.天地弦(185511468)
也是用Loadlibrary

2005-02-25 16:24:19 /:>D10.天地弦(185511468)
只是我把这些工作都封装在类里面

2005-02-25 16:24:49 /:>D10.天地弦(185511468)
现在我们来打开B组窗体

2005-02-25 16:25:35 /:>D10.天地弦(185511468)
procedure TFMainForm.MuiBGroupClick(Sender: TObject);
var
  TsSheet: TTabSheet;
begin
  if BLoader.ModelServiceInts.ExecuteCmd(CMD_BEFORE_EXECUTE, 0, 0) = S_OK then
  begin
    TsSheet := TTabSheet.Create(self);
    TsSheet.PageControl := pgcMain;
    BLoader.ModelServiceInts.ExecuteCmd(CMD_CREATE_FORM, TsSheet.Handle, 0);
    AddFormInfo(TsSheet.Handle, 'B组窗体');
  end;
end;

2005-02-25 16:25:51 凡尘(30602009)
怪哉.TLoader是什么类?

2005-02-25 16:26:06 /:>D10.天地弦(185511468)
TLoader可以看看源码

2005-02-25 16:26:15
Chester(59552649)
DLLLOADER是什么

2005-02-25 16:26:36 /:>D10.天地弦(185511468)
TDLLLoader是装入DLL的基类

2005-02-25 16:26:52 /:>D10.天地弦(185511468)
TLoader是继承TDLLLoader

2005-02-25 16:26:55 /:>D10.天地弦(185511468)
具体化工作

2005-02-25 16:27:12
Chester(59552649)
我什么没有找到

2005-02-25 16:27:14 /:>D10.天地弦(185511468)
好，继续回来看到

2005-02-25 16:27:35 /:>D10.天地弦(185511468)
procedure TFMainForm.MuiBGroupClick(Sender: TObject);
var
  TsSheet: TTabSheet;
begin
  if BLoader.ModelServiceInts.ExecuteCmd(CMD_BEFORE_EXECUTE, 0, 0) = S_OK then
  begin
    TsSheet := TTabSheet.Create(self);
    TsSheet.PageControl := pgcMain;
    BLoader.ModelServiceInts.ExecuteCmd(CMD_CREATE_FORM, TsSheet.Handle, 0);
    AddFormInfo(TsSheet.Handle, 'B组窗体');
  end;
end;
 

2005-02-25 16:27:39 /:>D10.天地弦(185511468)
这里

2005-02-25 16:29:12 /:>D10.天地弦(185511468)
这个流程里这样的

2005-02-25 16:31:19 /:>D10.天地弦(185511468)
告诉模块即将要做的动作
BLoader.ModelServiceInts.ExecuteCmd(CMD_BEFORE_EXECUTE, 0, 0)
|
|
主程序建立子窗体容器
TsSheet := TTabSheet.Create(self);
TsSheet.PageControl := pgcMain;
|
|
通知模块建立子窗体将放到主窗体建立的容器上
BLoader.ModelServiceInts.ExecuteCmd(CMD_CREATE_FORM, TsSheet.Handle, 0);
|
|
主窗体维护建立的窗体信息
 

2005-02-25 16:32:09 /:>D10.天地弦(185511468)
上面说的，就是点击窗体要进行的工作

2005-02-25 16:32:58 A3.武稀松(42088303)
InvokeFunc是一个函数指针类型

2005-02-25 16:33:14 凡尘(30602009)
IModelInts

2005-02-25 16:33:14 A3.武稀松(42088303)
InvokeFunc是一个函数指针类型 ,函数的返回值是IModelInts

2005-02-25 16:33:23 凡尘(30602009)
哦.知道了.继续...

2005-02-25 16:33:30 /:>D10.天地弦(185511468)
看看模块里是怎么样收到通知做出响应的

2005-02-25 16:34:09 /:>D10.天地弦(185511468)
[图片]

2005-02-25 16:34:17 /:>D10.天地弦(185511468)
打开BGroupDLL.DLL中的dkIntsImp.pas

2005-02-25 16:35:04 凡尘(30602009)
继续.

2005-02-25 16:35:31 /:>D10.天地弦(185511468)
刚刚点击菜单第一个步骤
告诉模块即将要做的动作
BLoader.ModelServiceInts.ExecuteCmd(CMD_BEFORE_EXECUTE, 0, 0)

2005-02-25 16:36:03 /:>D10.天地弦(185511468)
其实就会
function TModelService.ExecuteCmd(CmdIndex, Param1,
  Param2: Integer): HResult;
begin
  case CmdIndex of
    CMD_BEFORE_EXECUTE:
      begin
        if FDGroupForm = nil then result := S_OK else result := S_FALSE;
      end;
    CMD_CREATE_FORM:
      begin
        if FDGroupForm = nil then
        begin
          FDGroupForm := TFDGroupForm.Create(Application, Param1);
          FDGroupForm.Show;
        end;
        result := S_OK;
      end;
    CMD_CLOSE_FORM:
      begin
        if FDGroupForm <> nil then
          if FDGroupForm.dkClose then
          begin
            FDGroupForm := nil;
            result := S_OK;
          end;
      end;
  end;
end;

2005-02-25 16:36:13 /:>D10.天地弦(185511468)
就执行到这里来

2005-02-25 16:36:34 /:>D10.天地弦(185511468)
TModelService

2005-02-25 16:36:42 /:>D10.天地弦(185511468)
这个类是模块的总部

2005-02-25 16:36:50 /:>D10.天地弦(185511468)
进行指挥工作的

2005-02-25 16:37:12 /:>D10.天地弦(185511468)
模块的大脑

2005-02-25 16:37:36 A3.武稀松(42088303)
神经中枢

2005-02-25 16:37:49 /:>D10.天地弦(185511468)
这些要做的动作，是通过第一个参数CmdIndex: Integer;来得知的

2005-02-25 16:38:27 /:>D10.天地弦(185511468)
:)，
这个方法，就像Windows的消息处理差不多

2005-02-25 16:38:53 /:>D10.天地弦(185511468)
明了没有？

2005-02-25 16:39:00 D12.阿凯(107125961)
Y 

2005-02-25 16:39:03 /:>D10.天地弦(185511468)
没有反应了....

2005-02-25 16:39:58 凡尘(30602009)
其实我像知道这个工程是怎么一步一步建立起来的.

2005-02-25 16:40:10 /:>D10.天地弦(185511468)
点击菜单第一个步骤
告诉模块即将要做的动作
if

BLoader.ModelServiceInts.ExecuteCmd(CMD_BEFORE_EXECUTE, 0, 0) = S_OK
 

2005-02-25 16:40:21 /:>D10.天地弦(185511468)
就是判断窗体有没有建立

2005-02-25 16:40:37 /:>D10.天地弦(185511468)
大家可以看看代码就知道了

2005-02-25 16:40:50 /:>D10.天地弦(185511468)
凡尘(30602009) 16:39:58
其实我像知道这个工程是怎么一步一步建立起来的
---------------
现在不是在说么

2005-02-25 16:41:13 D12.阿凯(107125961)
我估计  人家问的你的这个编程思想啊

2005-02-25 16:41:45 C9.随风飘(87450854)
我明白 凡尘 说的 

2005-02-25 16:42:03 C9.随风飘(87450854)
他是想知道你是怎么把这些东西一步步建立起来的

2005-02-25 16:42:13
Chester(59552649)
我也想知道
 

2005-02-25 16:42:19 大羽(393921295)
比如你为啥创建窗体都用消息

2005-02-25 16:42:21 B2.TCP INFO(31329846)
这里 uFDGroup

2005-02-25 16:42:24 C9.随风飘(87450854)
运行的话  F4加断点就知道了

2005-02-25 16:42:27 大羽(393921295)
不用别的方法

2005-02-25 16:42:30
Chester(59552649)
什么BPG是怎样建的

2005-02-25 16:42:34 大羽(393921295)
细节不说了

2005-02-25 16:42:50
Chester(59552649)
里面也可以随便拉，是什么意思

2005-02-25 16:43:00 D12.阿凯(107125961)
D10继续啊，还有没有啊  

2005-02-25 16:43:19 KEN(58730522)
用其他方法也可以实现同样的功能，不用这么复杂，这样有什么好处

2005-02-25 16:43:23 B2.TCP INFO(31329846)
你的 BGroupDll ,DGroupDll 是两个 TFDGroupForm

2005-02-25 16:43:25 /:>D10.天地弦(185511468)
想想为什么都要通过单一一个接口来做所有的事呢

2005-02-25 16:43:38 大羽(393921295)
方便

2005-02-25 16:43:48 /:>D10.天地弦(185511468)
方便管理

2005-02-25 16:43:49 /:>D10.天地弦(185511468)
是不是

2005-02-25 16:43:53 大羽(393921295)
是

2005-02-25 16:43:58 D12.阿凯(107125961)
扩展性好，是不是 ？ 

2005-02-25 16:44:08 大羽(393921295)
你的意思是 消息也是为了管理?

2005-02-25 16:44:12 C9.随风飘(87450854)
那如果几个人同时用这个接口会咋样？

2005-02-25 16:44:14 /:>D10.天地弦(185511468)
如果这样创建一个，那样创建一个，不是不好管理

2005-02-25 16:44:28 大羽(393921295)
[:D]

2005-02-25 16:44:40 /:>D10.天地弦(185511468)
中间层也是这样做的

2005-02-25 16:45:15 /:>D10.天地弦(185511468)
这样提供也主程序也只有一种接口，方便调用，方便统一管理，可以做成插件式的模块

2005-02-25 16:45:18 大羽(393921295)
d10?

2005-02-25 16:45:23 /:>D10.天地弦(185511468)
[?]

2005-02-25 16:45:42 大羽(393921295)
你的程序都基于接口?

2005-02-25 16:45:56 /:>D10.天地弦(185511468)
使用接口也比较多

2005-02-25 16:46:04 /:>D10.天地弦(185511468)
特别是DLL输出

2005-02-25 16:46:17 /:>D10.天地弦(185511468)
主要的服务都是通过接口来的

2005-02-25 16:46:28 C9.随风飘(87450854)
我想知道多人同时用这个接口会咋样？会冲突吗？你用了什么处理机制没？

2005-02-25 16:46:29 C9.随风飘(87450854)
D10

2005-02-25 16:46:26 /:>D10.天地弦(185511468)
这样便于扩充

2005-02-25 16:46:54 /:>D10.天地弦(185511468)
客户端没有这种情况吧，Ｃ９

2005-02-25 16:47:12 C9.随风飘(87450854)
是服务器端

2005-02-25 16:47:19 凡尘(30602009)
HOHO.我知道怎么建立的了.

2005-02-25 16:47:23 D12.阿凯(107125961)
这和多层开发思想一样啊 

2005-02-25 16:47:31 /:>D10.天地弦(185511468)
已经讲过了

2005-02-25 16:47:37 /:>D10.天地弦(185511468)
服务端，不是今天的内容

2005-02-25 16:48:05 C9.随风飘(87450854)
哎  我都不没听过

2005-02-25 16:48:14 C9.随风飘(87450854)
没听到

2005-02-25 16:48:16 大羽(393921295)
d10,继续

2005-02-25 16:48:22 C9.随风飘(87450854)
继续

2005-02-25 16:48:32 A3.武稀松(42088303)
D12.阿凯(107125961) 16:47:23
这和多层开发思想一样啊
-----------------------------
这本来就是啊

2005-02-25 16:48:48 /:>D10.天地弦(185511468)
这个客户端还证明了，确实带包，可以共享对象

2005-02-25 16:49:05 D12.阿凯(107125961)
对，就是的，哈哈，我还以为你们只讲包的用法呢 

2005-02-25 16:49:11 C9.随风飘(87450854)
明白了  知道大概是怎么回事了

2005-02-25 16:49:14 /:>D10.天地弦(185511468)
大家可以点击按钮得知

2005-02-25 16:49:20 C9.随风飘(87450854)
不过要我自己做还差得远哈

2005-02-25 16:49:40 /:>D10.天地弦(185511468)
两个模块里都没有创建dkSoftDM对象却都可以使用。

2005-02-25 16:49:42 吕不为(171958445)
你把包删除，就会出错，证明了，

2005-02-25 16:50:13 D12.阿凯(107125961)
包我很少用的，有时间应该试试 

2005-02-25 16:50:43 大羽(393921295)
d10我今天听了一点,赶紧整理记录阿

2005-02-25 16:52:53 大羽(393921295)
你全听了?

2005-02-25 16:54:29 /:>D10.天地弦(185511468)
应该这个代码这样一讲都明白大概我的思路了。希望大家可以从中间学到一点东西

2005-02-25 16:54:40 /:>D10.天地弦(185511468)
完了，完了，也没有什么了

---------------------------------------------------------------
---------------------------------------------------------------
主题课完

2005-02-25 16:54:41 大羽(393921295)
[:D]

2005-02-25 16:54:46
Chester(59552649)
下课了没有

2005-02-25 16:54:48 凡尘(30602009)
不错了.不错了.

2005-02-25 16:54:53 D12.阿凯(107125961)
哦，现在下课 

2005-02-25 16:54:54 A3.武稀松(42088303)
不是差,是被我们问的发慌了.要是他镇定一点的话会好的多.

2005-02-25 16:54:56 西门吹风㊣(48542332)
Dirk:不要这么直接啊

2005-02-25 16:54:56 B2.TCP INFO(31329846)
D10,你的 TFDGroupForm 在DgroupDll,和BGroupDLL中是不是同一个类？

2005-02-25 16:54:59 凡尘(30602009)
学到东西了.[:)]

2005-02-25 16:55:07 /:>D10.天地弦(185511468)
B2.TCP INFO(31329846) 16:54:56
D10,你的 TFDGroupForm 在DgroupDll,和BGroupDLL中是不是同一个类？ 

2005-02-25 16:55:09 兰铃子(105351942)
想各位老师致敬

2005-02-25 16:55:13
Chester(59552649)
凡尘：你知道怎样建了吗
教我

2005-02-25 16:55:16 dirk/:;(342998661)
呵呵，下次直接讲重点，不要理其他人的废话

2005-02-25 16:55:17 /:>D10.天地弦(185511468)
不是同一个类

2005-02-25 16:55:21 西门吹风㊣(48542332)
D10 讲课还凑合

2005-02-25 16:55:24 /:>D10.天地弦(185511468)
只是我命名重复了

2005-02-25 16:55:32 A3.武稀松(42088303)
[;!]

2005-02-25 16:55:39 /:>D10.天地弦(185511468)
[:D]

2005-02-25 16:55:43 爱你(314390842)
请问：我应如何在我的程序中实现类似Word中的自动化功能，也就是我想在Asp或Jsp中调用我的程序，并通过

我的程序接口和提供的参数实现对我的程序的访问和控制。 

2005-02-25 16:55:44 B1.斜阳(249208513)
下次讲课一定要“咬定青山不放松”，只要不是方向上的错误，呵呵，老师就只管往下讲

2005-02-25 16:55:57 /:>D10.天地弦(185511468)
[;-D]

2005-02-25 16:55:59 B1.斜阳(249208513)
总会有人跟下来的

2005-02-25 16:56:05 /:>D10.天地弦(185511468)
en

2005-02-25 16:56:08 B2.TCP INFO(31329846)
在
      begin
        if FDGroupForm = nil then
        begin
          FDGroupForm := TFDGroupForm.Create(Application, Param1);
          FDGroupForm.Show;
        end;
        result := S_OK;
      end;
重用了？

2005-02-25 16:56:09 /:>D10.天地弦(185511468)
hehe

2005-02-25 16:56:24 B1.斜阳(249208513)
其它跟不下来的，课后补[:D]

2005-02-25 16:56:29 /:>D10.天地弦(185511468)
两个模块不是用同一个单元

2005-02-25 16:56:31 大羽(393921295)
[:D]

2005-02-25 16:56:42 /:>D10.天地弦(185511468)
窗体可以不同

2005-02-25 16:56:54 A3.武稀松(42088303)
有时间我给大家开课讲一下VCL构架和BASM的知识.

2005-02-25 16:57:00 龙在天(199233688)
呵呵，谢谢

2005-02-25 16:57:10 兰铃子(105351942)
师父~~~~~~~~~~

2005-02-25 16:57:15 A3.武稀松(42088303)
好徒弟

2005-02-25 16:57:16 /:>D10.天地弦(185511468)
源程序里创建子窗体在容器上，

2005-02-25 16:57:28 吕不为(171958445)
其实，每个DLL中，不必引用基类窗体包的。

2005-02-25 16:57:28 /:>D10.天地弦(185511468)
是个好方法，如果大伙需要那样做可以参考

2005-02-25 16:57:29 B6.银狼(43225570)
武大，要快顶时间哦

2005-02-25 16:57:57 /:>D10.天地弦(185511468)
[:D],3哥，你把inside vcl从头讲一片

2005-02-25 16:58:00 A3.武稀松(42088303)
我最近在找工作.找到了就有时间.

2005-02-25 16:58:03 兰铃子(105351942)
哈哈

2005-02-25 16:58:26 B6.银狼(43225570)
你应该在找前吧，要不工作了还有时间啊

2005-02-25 16:58:28 A3.武稀松(42088303)
我要避开Inside VCL上的,不然没啥意义了

2005-02-25 16:58:54 /:>D10.天地弦(185511468)
hehe

2005-02-25 16:58:57 A3.武稀松(42088303)
我找到工作就把现在的工作辞了

2005-02-25 16:59:08 A3.武稀松(42088303)
受不了了

2005-02-25 16:59:13 兰铃子(105351942)
怎么了？

2005-02-25 16:59:19 D12.阿凯(107125961)
A3，讲讲DIRECTX 

2005-02-25 16:59:21 B6.银狼(43225570)
呵呵，武大的脾气是最大了

2005-02-25 16:59:22 /:>D10.天地弦(185511468)
我inside vcl差不多看完了，好像得到的东西不太多

2005-02-25 16:59:25 D12.阿凯(107125961)
怎么样 ？ 

2005-02-25 16:59:37 兰铃子(105351942)
B6.银狼(43225570) 16:59:21
呵呵，武大的脾气是最大了 [:|]

2005-02-25 16:59:45 大羽(393921295)
谁说的?

2005-02-25 16:59:58 大羽(393921295)
a3,是懂得多

2005-02-25 17:00:08 大羽(393921295)
好像脾气大而已

2005-02-25 17:00:15 B6.银狼(43225570)
呵呵，他都受不了了，谁给我那么多，我想我还可以受一下了

2005-02-25 17:00:27 D12.阿凯(107125961)
A3不啊，我怎么没有发现啊 

2005-02-25 17:00:31 A3.武稀松(42088303)
我赚得不多啊

2005-02-25 17:00:33 B1.斜阳(249208513)
刚刚跟踪VCL的代码。发现一线关于类和接口的一个问题，大家有兴趣否？

2005-02-25 17:00:33 /:>D10.天地弦(185511468)
我懂得最少了，知道的都拿出来买了

2005-02-25 17:00:43 /:>D10.天地弦(185511468)
[:D]

2005-02-25 17:00:47 /:>D10.天地弦(185511468)
B1,说说

2005-02-25 17:00:55 A3.武稀松(42088303)
B1拿出来我们讨论啊,人都在

2005-02-25 17:01:04 B6.银狼(43225570)
是啊，B1

2005-02-25 17:01:08 B1.斜阳(249208513)
大家都知道　TInterfacedObject　这个类吧

2005-02-25 17:01:15 A3.武稀松(42088303)
嗯

2005-02-25 17:01:18 B6.银狼(43225570)
EN  

2005-02-25 17:01:22 大羽(393921295)
大家好像从不说 delphi使用接口的缺陷

2005-02-25 17:01:24 /:>D10.天地弦(185511468)
t

2005-02-25 17:01:29 /:>D10.天地弦(185511468)
y

2005-02-25 17:01:43 B1.斜阳(249208513)
谁能告诉我，如果我创建了一个TInterfacedObject类型的实例，那么，Delphi为为这个实例分配了多少内存？

2005-02-25 17:01:46 B2.TCP INFO(31329846)
[;o]

2005-02-25 17:02:33 /:>D10.天地弦(185511468)
[:L]

2005-02-25 17:02:42 A3.武稀松(42088303)
B1.斜阳(249208513) 17:01:43
谁能告诉我，如果我创建了一个TInterfacedObject类型的实例，那么，Delphi

为为这个实例分配了多少内存？
-------------------
看类函数:InstanceSize

2005-02-25 17:03:03 B1.斜阳(249208513)
实际上分配的是12个字节

2005-02-25 17:03:06 兰铃子(105351942)
课上完了？

2005-02-25 17:03:58 B1.斜阳(249208513)
其中有4个字节是self,另外四个字节是FRefCount成员变量，那么剩下的4个字节干吗呢？

2005-02-25 17:04:43 B1.斜阳(249208513)
呵呵，我就是突然对这4个字节感兴趣了，结果发现了个小秘密。

2005-02-25 17:04:58 兰铃子(105351942)
[:|]

2005-02-25 17:05:05 A3.武稀松(42088303)
什么秘密

2005-02-25 17:05:26 /:>D10.天地弦(185511468)
[:*]

2005-02-25 17:05:32 /:>D10.天地弦(185511468)
见不得光的？

2005-02-25 17:05:33 C01.枫长舞(273966879)
卖关子了？

2005-02-25 17:06:03 B1.斜阳(249208513)
在　TInterfacedObject　类型的实例中的最后四个字节，存放的居然是一个指向IInterface的指针

2005-02-25 17:06:33 /:>D10.天地弦(185511468)
[:D]

2005-02-25 17:06:57 /:>D10.天地弦(185511468)
如果是两个接口，那应该就是16字节了

2005-02-25 17:07:11 B1.斜阳(249208513)
换句话说，在定义类的时候，
TInterfacedObject = class(TObject, IInterface)
在class()的括号中，每列出一个接口，Delphi就会多分配出来4个字节存放这个接口对应的一个指针

2005-02-25 17:07:57 A3.武稀松(42088303)
对阿

2005-02-25 17:08:08 B6.银狼(43225570)
[strong]

2005-02-25 17:08:20 /:>D10.天地弦(185511468)
[:D]

2005-02-25 17:08:28 /:>D10.天地弦(185511468)
inside vcl上好像有说

2005-02-25 17:08:32 兰铃子(105351942)
D10你笑什么

2005-02-25 17:08:33 B1.斜阳(249208513)
安道理，通过self完全可以找到这些接口的TInterfaceTable，但是Delphi可能是为了性能的关系，牺牲了空间

，换取了效率

2005-02-25 17:08:50 兰铃子(105351942)
哦~~~~~~~~~~~~~~~~~~~~~~``

2005-02-25 17:08:54 /:>D10.天地弦(185511468)
[:L]

2005-02-25 17:08:54 B1.斜阳(249208513)
是吗？那本书没看完

2005-02-25 17:09:24 /:>D10.天地弦(185511468)
我没有研究这么深[:L]

2005-02-25 17:09:41 /:>D10.天地弦(185511468)
嗯，应该是牺牲了空间，换取了效率

2005-02-25 17:09:44 A3.武稀松(42088303)
B1说的那些是不是因为vmtIntfTable所占得空间大了

2005-02-25 17:10:28 B1.斜阳(249208513)
这可vmtIntfTable的空间没有什么关系，至少我还没有发现有直接的关系

2005-02-25 17:10:35 A3.武稀松(42088303)
B1是说vmtIntfTable所有得接口在实例里面都有一个指针么

2005-02-25 17:12:17 B1.斜阳(249208513)
因为在类中，是通过一个结构数组来记录类中实现了哪些接口，如果没有多出来的那个指针，那么在类中找到

一个接口的唯一方法就是：每次引用接口的时候都要到这个数组中从头到尾搜索一遍，这样很慢

2005-02-25 17:13:06 B1.斜阳(249208513)
我的意思是说，凡事被列到class()中的接口，都会在类的实例中保留一个指针

2005-02-25 17:13:23 B1.斜阳(249208513)
包括在祖先类中列出的接口

2005-02-25 17:14:23 A1.笑熬糨糊(2282902)
有可能，一个个试一下。

2005-02-25 17:14:34 A3.武稀松(42088303)
我刚才写代码试验了一下.好像确实如B1所说得

2005-02-25 17:14:39 B1.斜阳(249208513)
比如
TInterfacedObject = class(TObject, IInterface)
会在TInterfacedObject实例中多出4个字节
TTest = class(TInterfacedObject, ITest)
会在TTest类型的实例中多出8个字节而不是4个

2005-02-25 17:14:45 A3.武稀松(42088303)
我再看看

2005-02-25 17:15:09 A1.笑熬糨糊(2282902)
试一试 TTest=class(TInterfacedObject,IIF1,IIF2,IIF3,IIF4)

2005-02-25 17:15:11 A3.武稀松(42088303)
可能是vmtIntfTable中所有的接口在实例里面都有一个指针

2005-02-25 17:15:40 B1.斜阳(249208513)
而且，越靠近根类中列出的接口，其在实例中的指针的位置就越靠前

2005-02-25 17:15:52 A3.武稀松(42088303)
这个是肯定的

2005-02-25 17:16:27 B1.斜阳(249208513)
并且，这些指针总是在实例所占用的内存的最后面

2005-02-25 17:17:10 A3.武稀松(42088303)
按照正常思维,绑定的接口开始不能确定,所以这些指针应该在最后面.

2005-02-25 17:17:12 B1.斜阳(249208513)
呵呵，这就给我们一个机会，让我们能偷偷地从一个实例中快速拿出我们想要的接口，呵呵

2005-02-25 17:17:39 A3.武稀松(42088303)
[?]

2005-02-25 17:17:59 A3.武稀松(42088303)
就是读取最后面的指针

2005-02-25 17:19:06 B1.斜阳(249208513)
对啊

2005-02-25 17:19:44 B1.斜阳(249208513)
如果一个类中实现的接口你事先知道，那么，就可以直接取到指针，然后强制类型转换

2005-02-25 17:19:44 A3.武稀松(42088303)
不保险啊.万一Borland变了方式,我们就死定了[:D]

2005-02-25 17:21:07 A3.武稀松(42088303)
就像现在Delphi.NET里面Char=WideChar.如果原来直接用长度1表示Char的长度的代码就有问题了.而SizeOf取

的就没问题一样.

2005-02-25 17:21:53 B1.斜阳(249208513)
我只是偶尔发现Delphi实际分配的内存大小和我原来想的不一样，因此就查查看到底为啥，结果就发现了这个

，至于如何利用，现在还只是个初级阶段[:D]

2005-02-25 17:22:32 兰铃子(105351942)
[:|]

2005-02-25 17:22:38 A1.笑熬糨糊(2282902)
B1原来是在偷东西。[:D]

2005-02-25 17:22:48 /:>D10.天地弦(185511468)
[:D]

2005-02-25 17:22:51 A3.武稀松(42088303)
现阶段应该是可以利用的

2005-02-25 17:23:05 B2.TCP INFO(31329846)
[:D]

2005-02-25 17:23:24 /:>D10.天地弦(185511468)
最后四个字节是指定接口的地址？

2005-02-25 17:23:34 /:>D10.天地弦(185511468)
我想没有必要

2005-02-25 17:23:53 /:>D10.天地弦(185511468)
borland提供的方法也可以取到！

2005-02-25 17:24:03 /:>D10.天地弦(185511468)
在实际系统中是不要使用的

2005-02-25 17:24:34 B1.斜阳(249208513)
这个说法其实有点不太严密，不应该说是指向了接口，应该是一个方法表的入口

2005-02-25 17:24:40 /:>D10.天地弦(185511468)
否则borland改了，就真亏大了[:D]

2005-02-25 17:24:56 /:>D10.天地弦(185511468)
[:O]

2005-02-25 17:25:41 B1.斜阳(249208513)
其实直接利用这个指针倒是次要的，主要是他为我们展示了一种提高效率的方法，呵呵

2005-02-25 17:25:48 A3.武稀松(42088303)
或者说把方法表加载到了实例的最后面的空间

2005-02-25 17:26:43 兰铃子(105351942)
老大，可以问你一问题吗？

2005-02-25 17:26:46 A3.武稀松(42088303)
更正:或者说把接口表加载到了实例的最后面的空间

2005-02-25 17:27:01 B1.斜阳(249208513)
接口中，列举的都是方法，在接口中不可以包含变量