主题:<插件式>的中间层框架
时间:2004-12-31 15:00
主讲:D10.天地弦
2004-12-31 14:56:15 /:>D10.天地弦(185511468)
开始吧，我们
2004-12-31 14:57:22 /:>D10.天地弦(185511468)
请大家先看图
http://www.jqk.net.cn/dkFrameworkWeb/dkFramework_files/dkFramework_frames.htm
用IE打开
昨天发现用QQ的不行 
<图一>框架运作图
2004-12-31 15:04:49 /:>D10.天地弦(185511468)
上面就是中间层的框架运作图
2004-12-31 15:07:10 /:>D10.天地弦(185511468)
然后打开客户端代码
2004-12-31 15:09:21 /:>D10.天地弦(185511468)
看看客户端的代码
2004-12-31 15:09:38 A1.Aleyn.wu(45198124)
http://www.e-midas.cn/eds/dk.rar
2004-12-31 15:10:02 A1.Aleyn.wu(45198124)
D10的框架图，大家下载来用IE看就可以了。
2004-12-31 15:10:05 /:>D10.天地弦(185511468)
好的，大家把老大那个down一下
2004-12-31 15:10:29 /:>D10.天地弦(185511468)
里面解压出来，是web页面，大家在本机上看
2004-12-31 15:11:43 /:>D10.天地弦(185511468)
好了，我们按照从中间层获取帐套来讲讲
<图二> 从中间层获取一个帐套数据
2004-12-31 15:12:14 /:>D10.天地弦(185511468)
大家有没有看到
procedure TFMainForm.BtnGetAccountClick(Sender: TObject);
var
vData, Msg: OleVariant;
begin
inherited;
AddParamToData(vData, 'Type', amtGet);
if CLDataModule.SocketConnection.AppServer.ProcessData(miAccountMgr, aiAccountMgr, vData, Msg) then
begin
CdsAccount.Data := vData;
CdsAccount.Active := true;
end; //
end;
2004-12-31 15:12:24 /:>D10.天地弦(185511468)
这一段
2004-12-31 15:12:40 /:>D10.天地弦(185511468)
是获取帐套按钮的事件代码
2004-12-31 15:13:24 /:>D10.天地弦(185511468)
ProcessData这个函数是中间层提供的接口
2004-12-31 15:13:25 D3天之痕若虹(86278566)
调用Server端的ProcessData过程
2004-12-31 15:13:43 /:>D10.天地弦(185511468)
是调用Server端的ProcessData
2004-12-31 15:14:06 /:>D10.天地弦(185511468)
再请大家打开一个Delphi打开Middlelayer.png
2004-12-31 15:14:25 /:>D10.天地弦(185511468)
\MiddleLayer\MiddleLayer.bpg
2004-12-31 15:15:07 /:>D10.天地弦(185511468)
如果可以看到web的看看Data数据流程图 
<图三>参数Data流向图
2004-12-31 15:16:10 /:>D10.天地弦(185511468)
Data里面客户端是放参数的
2004-12-31 15:16:29 /:>D10.天地弦(185511468)
到模块里处理后，返回的是客户端要的数据
2004-12-31 15:17:21 /:>D10.天地弦(185511468)
我们现在看到中间层的代码
2004-12-31 15:17:43 /:>D10.天地弦(185511468)
function TMLRDataModule.ProcessData(ModuleIndex, ActionIndex: Integer;
var Data, Msg: OleVariant): WordBool;
begin
try
result := TFrameworkServices.ItSelf[ID].ModelService[ModuleIndex].ProcessData(Id, ActionIndex, Data, Msg) = S_OK;
result := true;
except
result := false; //
end;
end;
2004-12-31 15:18:08 /:>D10.天地弦(185511468)
大家有看到不
2004-12-31 15:18:11 /:>D10.天地弦(185511468)
这句是在Server.工程里的
75行
unit uMLRDataModule;
2004-12-31 15:19:21 /:>D10.天地弦(185511468)
所有客户端请求处理的数据都通过该函数进行处理
2004-12-31 15:19:52 西门吹风㊣(48542332)
大家看明白这句吗?
TFrameworkServices.ItSelf[ID].ModelService[ModuleIndex].ProcessData(Id, ActionIndex, Data, Msg) = S_OK;
2004-12-31 15:20:02 D3天之痕若虹(86278566)
下载刚那文件呀
http://www.e-midas.cn/eds/dk.rar
2004-12-31 15:20:15 hellfire(149902352)
没看懂
2004-12-31 15:20:46 /:>D10.天地弦(185511468)
大家，先停一下
2004-12-31 15:20:50 乾隆(7891551)
我也没看懂
2004-12-31 15:21:00 西门吹风㊣(48542332)
TFrameworkServices 是个接口
2004-12-31 15:21:02 /:>D10.天地弦(185511468)
那句我等一下会讲的
2004-12-31 15:21:21 /:>D10.天地弦(185511468)
我先想了解一下大家的思路
2004-12-31 15:21:35 /:>D10.天地弦(185511468)
处理数据的一个思路
2004-12-31 15:21:43 C03.MUSIC(281361369)
这个跟老大的思路是一样的吧？
2004-12-31 15:21:44 西门吹风㊣(48542332)
对,估计大家一下很难跟
2004-12-31 15:21:44 D3天之痕若虹(86278566)
听。。。
2004-12-31 15:21:47 /:>D10.天地弦(185511468)
然后介绍一下我的思路
2004-12-31 15:22:16 /:>D10.天地弦(185511468)
我先说我的思路吧
2004-12-31 15:22:38 /:>D10.天地弦(185511468)
客户层==>中间层
2004-12-31 15:23:14 西门吹风㊣(48542332)
先听一下吧
2004-12-31 15:23:17 /:>D10.天地弦(185511468)
首先我们想一想客户层与中间层是不是需要很多的接口，来实现很多种服务呢
2004-12-31 15:23:29 乾隆(7891551)
是的
2004-12-31 15:23:35 /:>D10.天地弦(185511468)
客户层==>中间层
首先我们想一想客户层与中间层是不是需要很多的接口，来实现很多种服务呢
2004-12-31 15:23:45 hellfire(149902352)
Yes
2004-12-31 15:23:45 冷俊(76437853)
嗯
2004-12-31 15:23:52 西门吹风㊣(48542332)
对
2004-12-31 15:23:52 00.bit(10910310)
YS
2004-12-31 15:24:05 神王(375867424)
Y
2004-12-31 15:24:24 湖北人(364076660)
是啊
2004-12-31 15:24:26 /:>D10.天地弦(185511468)
计算机只认识0，1我想大家都知道吧
2004-12-31 15:24:42 C03.MUSIC(281361369)
这一句应该是对接口进行统一封装吧
2004-12-31 15:24:46 乾隆(7891551)
是的
2004-12-31 15:24:55 /:>D10.天地弦(185511468)
0,1，两个东西，就可以实现各种服务了，
2004-12-31 15:25:18 hellfire(149902352)
go on
2004-12-31 15:25:28 A3.武稀松(42088303)
组合啊
2004-12-31 15:25:42 /:>D10.天地弦(185511468)
所以我想没有必要，中间层和客户层，通过很多线路联起来
2004-12-31 15:25:50 A3.武稀松(42088303)
严重同意
2004-12-31 15:25:52 乾隆(7891551)
你是说客户端调用中间层的过程和函数，中间层靠返回的0，1来判断执行还是不执行？
2004-12-31 15:26:08 西门吹风㊣(48542332)
对
2004-12-31 15:26:23 /:>D10.天地弦(185511468)
我的意思是，中间层对客户层，只要少量的接口，就可以实现客户服务
2004-12-31 15:26:58 神王(375867424)
如果业务量大的话，有如何
2004-12-31 15:27:11 /:>D10.天地弦(185511468)
我来打个如方，以前在学校，上层开会的时候只把所有的人招集起来开会，还是每个班派一个代表去就行了
2004-12-31 15:27:14 乾隆(7891551)
D10：这里的接口可以理解成过程和函数吗？
2004-12-31 15:27:20 D3天之痕若虹(86278566)
先听听，D10的思路吧
2004-12-31 15:27:30 C03.MUSIC(281361369)
是每个班派一个代表吧
2004-12-31 15:27:41 /:>D10.天地弦(185511468)
是的，每个班派一个代表
2004-12-31 15:28:05 神王(375867424)
这要看情况
2004-12-31 15:28:10 hellfire(149902352)
上层开会肯定是派一个代表吧
2004-12-31 15:28:23 /:>D10.天地弦(185511468)
客户层和中间层也一样只有需要少量接口,
2004-12-31 15:28:34 神王(375867424)
继续说，
2004-12-31 15:28:38 西门吹风㊣(48542332)
代表就是我们的接口
2004-12-31 15:28:39 乾隆(7891551)
哦，在听
2004-12-31 15:28:44 /:>D10.天地弦(185511468)
想想客户层和中间层的通讯，大部分是怎么样的
2004-12-31 15:28:47 C03.MUSIC(281361369)
就是说应该为中间层也进行分层管理？
2004-12-31 15:28:56 乾隆(7891551)
这里的接口可以理解成过程和函数吗？
2004-12-31 15:29:15 初六无云(359062004)
接口就是协议，过程，函数也是协议
2004-12-31 15:29:17 D3天之痕若虹(86278566)
也可以
2004-12-31 15:29:48 /:>D10.天地弦(185511468)
是不是传递参数信息到中间层，中间层根据这些参数信息，然后，决定要做什么事，然后需要返回数据就返回数据到客户层
2004-12-31 15:29:59 乾隆(7891551)
讲通俗点嘛，DELPHI都准备好协议了直接说是函数或过程吧
2004-12-31 15:30:03 神王(375867424)
是的
2004-12-31 15:30:13 冷俊(76437853)
嗯
2004-12-31 15:30:30 /:>D10.天地弦(185511468)
中间层根据这些参数信息，然后，决定要做什么事，然后需要返回数据就返回数据到客户层
2004-12-31 15:30:58 /:>D10.天地弦(185511468)
大伙先跟着我的思路想一想
2004-12-31 15:31:10 神王(375867424)
明白
2004-12-31 15:31:21 乾隆(7891551)
想通了，这里好理解
2004-12-31 15:31:23 西门吹风㊣(48542332)
嗯
2004-12-31 15:31:43 C9. 随风飘(87450854)
继续
2004-12-31 15:31:47 D3天之痕若虹(86278566)
有些像设计模式的思想....
2004-12-31 15:31:47 冷俊(76437853)
我还行
2004-12-31 15:31:57 乾隆(7891551)
讲讲如何具体处理客户发出请求吧
2004-12-31 15:31:58 A3.武稀松(42088303)
D10是说定义尽量少的接口方法,通过参数控制中间层的功能调用?
2004-12-31 15:32:05 /:>D10.天地弦(185511468)
像Windows消息一样，Windows只负责发送各种消息到应用程序，然后，应用程序根据消息的代码做出反应
2004-12-31 15:32:16 西门吹风㊣(48542332)
对,D10就是用到设计模式
2004-12-31 15:32:26 /:>D10.天地弦(185511468)
42088303(A3.武稀松) 15:31:58
D10是说定义尽量少的接口方法,通过参数控制中间层的功能调用? ==》3哥，是的
2004-12-31 15:32:51 hellfire(149902352)
明白
2004-12-31 15:33:09 D3天之痕若虹(86278566)
其实D10的思路就是。。
在服务端，再分块管理。。。
2004-12-31 15:33:27 C03.MUSIC(281361369)
A1的那个程序也是这样
2004-12-31 15:33:34 /:>D10.天地弦(185511468)
我们中间层都通过
function ProcessData(ModuleIndex, ActionIndex: Integer; var Data,
Msg: OleVariant): WordBool; safecall;
来路客户端打交道
2004-12-31 15:33:47 /:>D10.天地弦(185511468)
对的，其实就是A1的三层了接口了
2004-12-31 15:33:59 乾隆(7891551)
哦，客户端就一个函数啊
2004-12-31 15:34:22 神王(375867424)
只是传与接
2004-12-31 15:34:28 /:>D10.天地弦(185511468)
大家都明白吗？
2004-12-31 15:34:30 C9. 随风飘(87450854)
就象所谓的瘦客户端？
2004-12-31 15:34:38 西门吹风㊣(48542332)
明白
2004-12-31 15:34:46 C03.MUSIC(281361369)
其实中间层就提供给客户端一个或几个接口，具体实现是经过封装了的，这些对客户没有用处，对否？
2004-12-31 15:34:47 D3天之痕若虹(86278566)
是的，就是说只要接口统一。。
2004-12-31 15:34:48 神王(375867424)
明白
2004-12-31 15:35:03 B1.斜阳(249208513)
我倒是觉得这么出来客户端和中间层的调用，有点过于简单。先听你讲课吧，完事再讨论这个问题
2004-12-31 15:35:17 乾隆(7891551)
说错了吧，是中间层就一个函数PROcessData于客户打交道吧
2004-12-31 15:35:32 /:>D10.天地弦(185511468)
function ProcessData(ModuleIndex, ActionIndex: Integer; var Data,
Msg: OleVariant): WordBool; safecall;
Data 参数(
2004-12-31 15:36:11 /:>D10.天地弦(185511468)
客户端发送请求的时候中间层收到请求可以从Data这个参数里取参数
2004-12-31 15:36:13 乾隆(7891551)
D10：这个函数好复杂啊，给讲讲啥意思
2004-12-31 15:36:20 /:>D10.天地弦(185511468)
各种参数
2004-12-31 15:36:32 A1.Aleyn.wu(45198124)
我们中间层都通过
function ProcessData(ModuleIndex, ActionIndex: Integer; var Data,
Msg: OleVariant): WordBool; safecall; <-怎么看都有点熟悉。。。。。。[:D]
2004-12-31 15:36:48 /:>D10.天地弦(185511468)
ModuleIndex是指定要通过那个模块来处理这个信息，
2004-12-31 15:37:02 /:>D10.天地弦(185511468)
呵呵，是你发明的东西了，当然熟
2004-12-31 15:37:07 /:>D10.天地弦(185511468)
我只是再炒一下
2004-12-31 15:37:17 西门吹风㊣(48542332)
活学活用
2004-12-31 15:37:19 /:>D10.天地弦(185511468)
ActionIndex是要执行的动作了
2004-12-31 15:37:31 /:>D10.天地弦(185511468)
是一个Integer类型
2004-12-31 15:37:37 A1.Aleyn.wu(45198124)
ActionIndex可以不用在参数里。
2004-12-31 15:37:39 /:>D10.天地弦(185511468)
ActionIndex =1的时候做什么
2004-12-31 15:37:51 /:>D10.天地弦(185511468)
=2的时候做什么
2004-12-31 15:38:00 /:>D10.天地弦(185511468)
这样协议就是大家去规定了
2004-12-31 15:38:01 初六无云(359062004)
提个意见，把这个函数的参数用一个类来表示怎样？
2004-12-31 15:38:07 神王(375867424)
利用消息传递机制
2004-12-31 15:38:18 A3.武稀松(42088303)
建议客户端可以在有一个包装,可以定义各种方法.在方法里面调用ProcessData.
就像Windows既提供消息,也提供方便调用的API.
2004-12-31 15:38:19 A1.Aleyn.wu(45198124)
函数一般在三个参数以内比较好，你这个函数有改进一下。
2004-12-31 15:38:33 /:>D10.天地弦(185511468)
好
2004-12-31 15:38:38 神王(375867424)
同意A3
2004-12-31 15:38:51 /:>D10.天地弦(185511468)
function TMLRDataModule.ProcessData(ModuleIndex, ActionIndex: Integer;
var Data, Msg: OleVariant): WordBool;
begin
try
result := TFrameworkServices.ItSelf[ID].ModelService[ModuleIndex].ProcessData(Id, ActionIndex, Data, Msg) = S_OK;
result := true;
except
result := false; //
end;
end;
2004-12-31 15:38:53 A3.武稀松(42088303)
D10认为如何
2004-12-31 15:39:30 乾隆(7891551)
接着讲这个函数啊，WordBool什么意思啊[:$]
2004-12-31 15:39:31 /:>D10.天地弦(185511468)
3哥，好啊
2004-12-31 15:39:40 /:>D10.天地弦(185511468)
我功力还不够
2004-12-31 15:39:49 西门吹风㊣(48542332)
WordBool 布尔型
2004-12-31 15:39:52 A3.武稀松(42088303)
大家在讨论么
2004-12-31 15:39:56 /:>D10.天地弦(185511468)
不知道大家有没有跟上
2004-12-31 15:39:56 神王(375867424)
大哥先接着说
2004-12-31 15:39:57 A1.Aleyn.wu(45198124)
42088303(A3.武稀松) 15:38:18
建议客户端可以在有一个包装,可以定义各种方法.在方法里面调用ProcessData.
就像Windows既提供消息,也提供方便调用的API. ＜－如果D10是继承我的做法，那就是A3你所说的了。
2004-12-31 15:40:09 B1.斜阳(249208513)
早在A1给出他的代码的时候，我就觉得客户端和中间层的模块绑的有点过于紧密，呵呵，
还没形成一个好的思路跟A1说，这又有一个人用上这个方法了[:D]
2004-12-31 15:40:36 /:>D10.天地弦(185511468)
大家有没有跟上?
2004-12-31 15:40:44 D3天之痕若虹(86278566)
在听。。
2004-12-31 15:40:44 初六无云(359062004)
传一个 command 比较好，还可以自己检验
2004-12-31 15:40:58 /:>D10.天地弦(185511468)
function TMLRDataModule.ProcessData(ModuleIndex, ActionIndex: Integer;
var Data, Msg: OleVariant): WordBool;
begin
try
result := TFrameworkServices.ItSelf[ID].ModelService[ModuleIndex].ProcessData(Id, ActionIndex, Data, Msg) = S_OK;
result := true;
except
result := false; //
end;
end;
2004-12-31 15:41:08 /:>D10.天地弦(185511468)
好我们现在来看这个函数
2004-12-31 15:41:50 /:>D10.天地弦(185511468)
这里就是中间层处理的东东了
2004-12-31 15:41:52 C9. 随风飘(87450854)
可惜 还能看到A1的代码
2004-12-31 15:41:59 /:>D10.天地弦(185511468)
兄弟，别顶
2004-12-31 15:42:03 乾隆(7891551)
水平高的人你们为什么不象Ｄ１０样我偶讲课，呵呵
2004-12-31 15:42:13 A3.武稀松(42088303)
不说别的.每种模式都有许多种分支.
D10 继续
2004-12-31 15:42:34 神王(375867424)
大哥，继承
2004-12-31 15:42:44 乾隆(7891551)
接着讲这个函数吧，还是看不懂
2004-12-31 15:42:49 /:>D10.天地弦(185511468)
中间层收到信息后，要做的事就是要找到对应的模块来处理信息
2004-12-31 15:43:05 乾隆(7891551)
是，这个知道
2004-12-31 15:43:06 D3天之痕若虹(86278566)
ID 如何同步呢?
2004-12-31 15:43:31 C9. 随风飘(87450854)
然后通过模块处理后的 DATA 再返回？
2004-12-31 15:43:33 乾隆(7891551)
ＩＤ啥意思，
2004-12-31 15:43:50 D3天之痕若虹(86278566)
ItSelf[ID]
2004-12-31 15:43:51 /:>D10.天地弦(185511468)
现在我们来看中间层是如果来做要做的事的
2004-12-31 15:44:33 /:>D10.天地弦(185511468)
现在，我们来看看，这里和A1走的可能不太一样
2004-12-31 15:44:36 A1.Aleyn.wu(45198124)
D10继续。
2004-12-31 15:44:55 乾隆(7891551)
好
2004-12-31 15:45:19 /:>D10.天地弦(185511468)
这里我讲一下中间层和模块之间的几个接口
2004-12-31 15:45:33 西门吹风㊣(48542332)
unit MLInterface;
2004-12-31 15:46:30 /:>D10.天地弦(185511468)
IModelInfo = interface //模块基本信息接口
procedure GetModelInfo(var ModelInfo: OleVariant); stdcall;
function GetModelInfoData(): OleVariant; stdcall;
function SetModelConfig(FixDataBase: Boolean; ConnString: WideString): HResult; stdcall;
end;
IModelService = interface //模块操作接口
function ProcessData(OwnId: Cardinal; ActionIndex: Integer; var Data, Msg: OleVariant): HResult; stdcall;
//主程序调用此函数关闭模块操作
function CloseModel(): HResult; stdcall;
end;
IFrameworkService = interface //框架提供接口
function GetID(): Cardinal; stdcall;
function GetModelService(ModelIndex: Integer): IModelService; stdcall;
function GetFrameWorkInfo(ActionIndex: Integer; var Data, Msg: OleVariant): HResult; stdcall;
property ModelService[ModelIndex: Integer]: IModelService read GetModelService; default;
end;
IFrameworkServices = interface //框架集接口(通过该接口查得到框架服务接口)
function GetFrameworkService(_id: Integer): IFrameworkService; stdcall;
property FrameworkServices[_id: Integer]: IFrameworkService read GetFrameworkService; default;
end;
2004-12-31 15:47:02 hellfire(149902352)
一个一个来吧!贴得好像有点多[:D]
2004-12-31 15:47:09 /:>D10.天地弦(185511468)
这是中间层的几个接口
2004-12-31 15:47:20 /:>D10.天地弦(185511468)
好的
IModelInfo = interface //模块基本信息接口
procedure GetModelInfo(var ModelInfo: OleVariant); stdcall;
function GetModelInfoData(): OleVariant; stdcall;
function SetModelConfig(FixDataBase: Boolean; ConnString: WideString): HResult; stdcall;
end;
2004-12-31 15:47:34 /:>D10.天地弦(185511468)
其实这里我多写了一个函数
IModelInfo = interface //模块基本信息接口
function GetModelInfoData(): OleVariant; stdcall;
function SetModelConfig(FixDataBase: Boolean; ConnString: WideString): HResult; stdcall;
end;
2004-12-31 15:48:30 /:>D10.天地弦(185511468)
这个接口就这样就可以的
2004-12-31 15:48:30 西门吹风㊣(48542332)
获取模块信息
2004-12-31 15:48:48 乾隆(7891551)
这是在定义接口吧
2004-12-31 15:48:55 西门吹风㊣(48542332)
对
2004-12-31 15:49:23 /:>D10.天地弦(185511468)
模块通过实现这个接口，来让中层间获取模块信息
2004-12-31 15:49:38 /:>D10.天地弦(185511468)
定义接口，就是制定协议
2004-12-31 15:49:51 D3天之痕若虹(86278566)
yes
2004-12-31 15:49:51 /:>D10.天地弦(185511468)
IModelService = interface //模块操作接口
function ProcessData(OwnId: Cardinal; ActionIndex: Integer; var Data, Msg: OleVariant): HResult; stdcall;
//主程序调用此函数关闭模块操作
function CloseModel(): HResult; stdcall;
end;
2004-12-31 15:50:05 /:>D10.天地弦(185511468)
好来看第二个接口
2004-12-31 15:50:15 乾隆(7891551)
给我讲讲调接口与客户端直接调用通过中间层的函数又什么好处？
2004-12-31 15:50:31 西门吹风㊣(48542332)
先听吧
2004-12-31 15:50:44 乾隆(7891551)
好吧，基础太差[:'(]
2004-12-31 15:51:01 /:>D10.天地弦(185511468)
模块通过实现该接口，来让中间层执行数据处理操作
2004-12-31 15:51:03 冷俊(76437853)
我好吃力的说
2004-12-31 15:51:19 hellfire(149902352)
明白
2004-12-31 15:51:20 神王(375867424)
听完了，慢慢去想
2004-12-31 15:51:38 西门吹风㊣(48542332)
对,慢慢消化
2004-12-31 15:51:43 /:>D10.天地弦(185511468)
function ProcessData(OwnId: Cardinal; ActionIndex: Integer; var Data, Msg: OleVariant): HResult; stdcall;
这个函数，和中间层提供的给客户端的差不多
2004-12-31 15:51:53 /:>D10.天地弦(185511468)
只是多了一个OwnId
2004-12-31 15:52:02 /:>D10.天地弦(185511468)
我们先不管，
2004-12-31 15:52:16 神王(375867424)
这凼数功能是什么
2004-12-31 15:52:21 /:>D10.天地弦(185511468)
知道是用来调用模块处理数据的就行了
2004-12-31 15:52:27 /:>D10.天地弦(185511468)
调用模块处理数据的就行了
2004-12-31 15:52:40 B1.斜阳(249208513)
D10的目的是不是想先通过一个简单、一致的接口，让客户端可以方便地同中间层通讯。
2004-12-31 15:52:48 西门吹风㊣(48542332)
对,具体怎么实现,后面讲
2004-12-31 15:52:55 /:>D10.天地弦(185511468)
嗯，
2004-12-31 15:53:13 神王(375867424)
先建立通信机制
2004-12-31 15:53:26 冷俊(76437853)
HResult 这个什么意思?
2004-12-31 15:53:31 B1.斜阳(249208513)
然后在中间层中，通过实现约定的接口来扩展中间层能提供的服务数量
2004-12-31 15:53:31 /:>D10.天地弦(185511468)
自己再加模块的时候就，自己制定ActionIndex的协议就行了
2004-12-31 15:53:54 /:>D10.天地弦(185511468)
HResult 其实就是一个Integer类型
2004-12-31 15:54:07 /:>D10.天地弦(185511468)
//主程序调用此函数关闭模块操作
function CloseModel(): HResult; stdcall;
2004-12-31 15:54:18 D3天之痕若虹(86278566)
客户只要告诉服务器，想做什么的。。
而什么的做，由谁(哪个子模块来完成)。。就由服务端定义实现。。而这个对客户是不关心的
2004-12-31 15:54:51 /:>D10.天地弦(185511468)
这个接口，是告诉模块，中间层要关闭了，进行一行必须的释放工作
2004-12-31 15:54:59 B1.斜阳(249208513)
我感觉这个由谁做好像也是客户端指定的
2004-12-31 15:55:20 神王(375867424)
应该是
2004-12-31 15:55:26 /:>D10.天地弦(185511468)
是有点这样的意思
2004-12-31 15:55:46 西门吹风㊣(48542332)
客户端传递ModuleIndex决定
2004-12-31 15:55:47 /:>D10.天地弦(185511468)
249208513(B1.斜阳) 15:54:59
我感觉这个由谁做好像也是客户端指定的 -->是客户端与模块之样的协议一样
2004-12-31 15:56:00 B1.斜阳(249208513)
而中间层，只是起到一个转发的中介的作用
2004-12-31 15:56:07 D3天之痕若虹(86278566)
由谁完成操作请请，应该服务端定义。
2004-12-31 15:56:11 /:>D10.天地弦(185511468)
嗯
2004-12-31 15:56:21 神王(375867424)
明白
2004-12-31 15:56:32 /:>D10.天地弦(185511468)
IFrameworkService = interface //框架提供接口
function GetID(): Cardinal; stdcall;
function GetModelService(ModelIndex: Integer): IModelService; stdcall;
function GetFrameWorkInfo(ActionIndex: Integer; var Data, Msg: OleVariant): HResult; stdcall;
property ModelService[ModelIndex: Integer]: IModelService read GetModelService; default;
end;
2004-12-31 15:56:39 /:>D10.天地弦(185511468)
再看一个接口
2004-12-31 15:57:11 /:>D10.天地弦(185511468)
框架提供的接口
2004-12-31 15:57:25 神王(375867424)
这个接口实现什么功能
2004-12-31 15:57:34 D3天之痕若虹(86278566)
恩，说说各个函数的功能
2004-12-31 15:57:40 /:>D10.天地弦(185511468)
中间层会为每个客户端连接，实现一个这样的接口
2004-12-31 15:57:58 /:>D10.天地弦(185511468)
这个接口，是给模块里调用的
2004-12-31 15:58:29 /:>D10.天地弦(185511468)
我先不说吧，后面说
2004-12-31 15:58:45 /:>D10.天地弦(185511468)
IFrameworkServices = interface //框架集接口(通过该接口查得到框架服务接口)
function GetFrameworkService(_id: Integer): IFrameworkService; stdcall;
property FrameworkServices[_id: Integer]: IFrameworkService read GetFrameworkService; default;
end;
2004-12-31 15:58:57 /:>D10.天地弦(185511468)
最后一个接口
2004-12-31 15:59:33 /:>D10.天地弦(185511468)
是中间层为了维护所有的框架集而实现的接口
2004-12-31 15:59:49 乾隆(7891551)
框架服务是指什么啊
2004-12-31 16:00:03 /:>D10.天地弦(185511468)
可以利用该接口来得到一个框架服务接口
2004-12-31 16:00:58 /:>D10.天地弦(185511468)
一个框架就像一个平台一样，框架的服务就是为活动在这个平台上的模块实现的服务
2004-12-31 16:01:42 乾隆(7891551)
好象明白点了再具体点比方下
2004-12-31 16:01:46 /:>D10.天地弦(185511468)
现在我们再回到
function TMLRDataModule.ProcessData(ModuleIndex, ActionIndex: Integer;
var Data, Msg: OleVariant): WordBool;
begin
try
result := TFrameworkServices.ItSelf[ID].ModelService[ModuleIndex].ProcessData(Id, ActionIndex, Data, Msg) = S_OK;
result := true;
except
result := false; //
end;
end;
2004-12-31 16:01:47 神王(375867424)
是不是就是的到另外一接口
2004-12-31 16:02:03 /:>D10.天地弦(185511468)
==,我想想
2004-12-31 16:02:06 D3天之痕若虹(86278566)
是的...
好比电话主机,谁打入，它会帮助转到对应的分机号
2004-12-31 16:02:38 乾隆(7891551)
哦框架接口就是这个电话主机，对吧
2004-12-31 16:02:40 神王(375867424)
好比网络协议传输一样
2004-12-31 16:02:43 /:>D10.天地弦(185511468)
先按自己的想像来理解一下吧，后面说完应该会明的
2004-12-31 16:03:01 西门吹风㊣(48542332)
按你的思路继续 
<图四>中间层与模块通讯图
2004-12-31 16:03:17 /:>D10.天地弦(185511468)
这是三个主要的接口
2004-12-31 16:03:41 /:>D10.天地弦(185511468)
现在我们来看中间层是如果来做要做的事的
2004-12-31 16:03:54 /:>D10.天地弦(185511468)
现在我们来看中间层是如何来做要做的事的
2004-12-31 16:04:04 /:>D10.天地弦(185511468)
result := TFrameworkServices.ItSelf[ID].ModelService[ModuleIndex].ProcessData(Id, ActionIndex, Data, Msg) = S_OK;
2004-12-31 16:04:04 乾隆(7891551)
又贴了我就看不到啊
2004-12-31 16:04:29 /:>D10.天地弦(185511468)
是中间层与模块的通讯里的图
2004-12-31 16:04:33 /:>D10.天地弦(185511468)
result := TFrameworkServices.ItSelf[ID].ModelService[ModuleIndex].ProcessData(Id, ActionIndex, Data, Msg) = S_OK;
大家可以看明上面这句吗？
2004-12-31 16:04:54 乾隆(7891551)
不可以
2004-12-31 16:05:21 /:>D10.天地弦(185511468)
看看
TFrameworkServices.ItSelf
是什么样的函数
2004-12-31 16:05:22 西门吹风㊣(48542332)
TFrameworkServices.ItSelf[ID] 创建一个实例
2004-12-31 16:05:25 A3.武稀松(42088303)
是不是要查一下,因为如果你的模块做成可扩充插入的话.可能要先查一下存不存在
2004-12-31 16:05:39 /:>D10.天地弦(185511468)
是的
2004-12-31 16:06:03 hellfire(149902352)
停一下.我看看TFrameworkServices.ItSelf
2004-12-31 16:06:19 /:>D10.天地弦(185511468)
现在我们来看中间层是如何来做要做的事的 （就是要把信息转发给模块)，主要是要找到模块
2004-12-31 16:06:33 /:>D10.天地弦(185511468)
大家看看
TFrameworkServices.ItSelf的实现
2004-12-31 16:07:15 /:>D10.天地弦(185511468)
麻烦贴一下代码
2004-12-31 16:07:21 西门吹风㊣(48542332)
通过 TFrameworkServices的ModelService 中的ModuleIndex 模块 的ProcessData 函数去操作数据库
2004-12-31 16:07:29 D3天之痕若虹(86278566)
class function ItSelf: TFrameworkServices;
{$J+}
class function TFrameworkServices.ItSelf: TFrameworkServices;
const
FInstance: TFrameworkServices = nil;
begin
if FInstance = nil then
begin
FInstance := TFrameworkServices(TFrameworkServices.NewInstance());
FInstance.Create();
end;
result := FInstance;
end; //创建一个实列
{$J-}
2004-12-31 16:07:49 西门吹风㊣(48542332)
注意{$J+}
2004-12-31 16:07:53 /:>D10.天地弦(185511468)
是的
2004-12-31 16:08:01 /:>D10.天地弦(185511468)
这里用了一个设计模式
2004-12-31 16:08:06 /:>D10.天地弦(185511468)
Singleton 模式
单件模式
2004-12-31 16:08:22 D3天之痕若虹(86278566)
单一模式
2004-12-31 16:08:29 西门吹风㊣(48542332)
设计模式的一种
2004-12-31 16:08:49 hellfire(149902352)
这里慢点,我都还没看清,就过了
2004-12-31 16:09:19 西门吹风㊣(48542332)
这里开始难以搞懂
2004-12-31 16:09:33 /:>D10.天地弦(185511468)
是在整个框架中，访问这个函数，得到都是同一个实例
2004-12-31 16:09:42 /:>D10.天地弦(185511468)
还没有过
2004-12-31 16:09:57 D3天之痕若虹(86278566)
const
FInstance: TFrameworkServices = nil; //为什么可定成const呢
2004-12-31 16:10:28 /:>D10.天地弦(185511468)
呵呵，不想定义全局变量，就这样定义了
2004-12-31 16:10:40 hellfire(149902352)
这个函数在哪个单元
2004-12-31 16:10:56 /:>D10.天地弦(185511468)
FrameworkServiceImp
2004-12-31 16:11:13 /:>D10.天地弦(185511468)
大家可以看明不？
2004-12-31 16:11:26 hellfire(149902352)
Tks.找到了
2004-12-31 16:11:32 hellfire(149902352)
明白
2004-12-31 16:11:49 D3天之痕若虹(86278566)
if FInstance = nil then
begin
FInstance := TFrameworkServices(TFrameworkServices.NewInstance());
FInstance.Create();
end;
//这个 if 有必要吗。。。
2004-12-31 16:11:57 /:>D10.天地弦(185511468)
当然有
2004-12-31 16:12:10 D3天之痕若虹(86278566)
直接写不就可以。。。
你申请时已是nil了
2004-12-31 16:12:19 /:>D10.天地弦(185511468)
第二次就不为Nil了
2004-12-31 16:12:26 西门吹风㊣(48542332)
讲一讲{j+}
2004-12-31 16:12:28 D3天之痕若虹(86278566)
恩，原来如此
2004-12-31 16:12:32 /:>D10.天地弦(185511468)
hehe
2004-12-31 16:12:35 西门吹风㊣(48542332)
就明白了
2004-12-31 16:12:45 西门吹风㊣(48542332)
不论是{$J+}或{$J-}, 以const VarName = const value; 定义的常数(
没有加上型别宣告), 是一个真正的常数, 其它的程序不可以改变其内容。
其实{$J+}时还有一个妙用, 那就是宣告出类似C语言static的变量, 换句话说,
产生了一个与Application相同生命周期的变量。在这种情形下, 变量只在第一
次使用时才会建立, 函数或程序结束时, 该变量也不会消灭, 下一次再呼叫到这个函数
或程序时, 我们仍然可以参考到上次执行结束时的值。让我们试一下这个例子:
{$J+}
procedure TForm1.Button1Click(Sender: TObject);
const
i: integer = 0;
begin
ShowMessage(IntToStr(i));
Inc(i);
ShowMessage(IntToStr(i));
end;
第一次执行时, 我们分别会看到「0」「1」, 再点一次这个按钮时, 看到的将是「1」「2」。
2004-12-31 16:12:53 西门吹风㊣(48542332)
太多了,呵呵
2004-12-31 16:12:54 /:>D10.天地弦(185511468)
修改Const变量，要使用{$J+}
2004-12-31 16:13:21 /:>D10.天地弦(185511468)
明了？，这里要过了
2004-12-31 16:13:29 湖北人(364076660)
==
2004-12-31 16:13:30 D3天之痕若虹(86278566)
恩
2004-12-31 16:13:49 神王(375867424)
明白,
2004-12-31 16:14:15 /:>D10.天地弦(185511468)
TFrameworkServices.ItSelf这个就是得到一个TFrameworkServices实例，得到这个实例，是整个框架中唯一的实例
2004-12-31 16:14:30 C06.文/yb(4184443)
D10哥，讲了多少了！我刚开完会啊！真晕！
2004-12-31 16:14:45 /:>D10.天地弦(185511468)
你看看记录
2004-12-31 16:14:52 C06.文/yb(4184443)
哦！
2004-12-31 16:14:55 /:>D10.天地弦(185511468)
我慢慢讲，你慢慢跟
2004-12-31 16:15:00 /:>D10.天地弦(185511468)
TFrameworkServices.ItSelf这个就是得到一个TFrameworkServices实例，得到这个实例，
是整个框架中唯一的实例
2004-12-31 16:15:02 C06.文/yb(4184443)
哦！
2004-12-31 16:15:19 /:>D10.天地弦(185511468)
明这句话了，就明了刚刚那段
2004-12-31 16:15:54 /:>D10.天地弦(185511468)
我继续了
2004-12-31 16:15:59 /:>D10.天地弦(185511468)
TFrameworkServices = class(TdkObjectList, IFrameworkServices)
private
function GetFrameworkService(_id: Integer): IFrameworkService; stdcall;
public
constructor Create(); //
class function ItSelf: TFrameworkServices;
public
property FrameworkServices[_id: Integer]: IFrameworkService read GetFrameworkService; default;
end; //
2004-12-31 16:16:09 /:>D10.天地弦(185511468)
我们来看看这个类
2004-12-31 16:16:20 D3天之痕若虹(86278566)
就是说
class function TFrameworkServices.ItSelf: TFrameworkServices;
只真正创建一个实例?
2004-12-31 16:16:28 /:>D10.天地弦(185511468)
嗯
2004-12-31 16:16:36 /:>D10.天地弦(185511468)
看完了没有，这个类
2004-12-31 16:16:50 /:>D10.天地弦(185511468)
这里和A1的不太一样
2004-12-31 16:17:05 乾隆(7891551)
崇拜死了，Ｄ１０delphi这么精通了啊
2004-12-31 16:17:09 /:>D10.天地弦(185511468)
就是查找模块这个功能
2004-12-31 16:17:18 /:>D10.天地弦(185511468)
晕
2004-12-31 16:17:29 /:>D10.天地弦(185511468)
应该是各位老大，
2004-12-31 16:17:38 西门吹风㊣(48542332)
继续
2004-12-31 16:17:40 /:>D10.天地弦(185511468)
TFrameworkServices.ItSelf[ID]
2004-12-31 16:18:01 /:>D10.天地弦(185511468)
这一句和
TFrameworkServices.ItSelf.FrameworkServices[ID] 一样的
2004-12-31 16:18:05 /:>D10.天地弦(185511468)
大家明不
2004-12-31 16:18:45 /:>D10.天地弦(185511468)
知道，3弟，你讲一下
2004-12-31 16:19:05 D3天之痕若虹(86278566)
class function ItSelf: TFrameworkServices;
定义的类型是一样的。。。
2004-12-31 16:19:30 /:>D10.天地弦(185511468)
TFrameworkServices.ItSelf这一部分可以不用讲了解
2004-12-31 16:19:42 /:>D10.天地弦(185511468)
TFrameworkServices.ItSelf这一部分可以不用讲了
2004-12-31 16:20:05 /:>D10.天地弦(185511468)
3弟，讲一下
2004-12-31 16:20:09 /:>D10.天地弦(185511468)
TFrameworkServices.ItSelf[ID]
这一句和
TFrameworkServices.ItSelf.FrameworkServices[ID]
一样的
2004-12-31 16:20:24 hellfire(149902352)
是不是跟FieldByName和Fields[]一个意思
2004-12-31 16:20:32 D3天之痕若虹(86278566)
我看一下
2004-12-31 16:20:57 /:>D10.天地弦(185511468)
hellfire我没有看，应该差不多
2004-12-31 16:21:30 乾隆(7891551)
TFrameworkServices.ItSelf[ID] 这句作用是什么啊，通俗点说下啊
2004-12-31 16:22:00 神王(375867424)
这两句都在上面的CLASS中,对吗
2004-12-31 16:22:09 神王(375867424)
TFrameworkServices.ItSelf[ID]
这一句和
TFrameworkServices.ItSelf.FrameworkServices[ID]
一样的
2004-12-31 16:22:12 /:>D10.天地弦(185511468)
我来说吧
2004-12-31 16:22:30 冷俊(76437853)
TFrameworkServices.ItSelf[ID] 这句作用是什么啊，通俗点说下啊
2004-12-31 16:22:37 /:>D10.天地弦(185511468)
TFrameworkServices.ItSelf是得到一个实例大家都知道了
2004-12-31 16:22:47 /:>D10.天地弦(185511468)
TFrameworkServices.ItSelf.FrameworkServices[ID]
2004-12-31 16:23:04 B1.斜阳(249208513)
var
ts: TStringList;
begin
ts := TStringList.Create;
ts.Add('aaaaa');
Caption := ts[0];
ts.Free
end;
2004-12-31 16:23:04 D3天之痕若虹(86278566)
TFrameworkServices.ItSelf[ID]
TFrameworkServices.ItSelf.FrameworkServices[ID]
都 返回一个IFrameworkService有接口?
2004-12-31 16:23:06 /:>D10.天地弦(185511468)
FrameworkServices是这个实例的一个属性
2004-12-31 16:23:11 /:>D10.天地弦(185511468)
是的
2004-12-31 16:23:25 /:>D10.天地弦(185511468)
嗯和TStringList一样的
2004-12-31 16:23:33 B1.斜阳(249208513)
知道这个是啥意思吧，和D10的用法是一样的
2004-12-31 16:23:35 神王(375867424)
刚听掉了一点,有点接不上了
2004-12-31 16:23:35 /:>D10.天地弦(185511468)
真高兴，看到B1还在
2004-12-31 16:24:01 /:>D10.天地弦(185511468)
TFrameworkServices = class(TdkObjectList, IFrameworkServices)
private
function GetFrameworkService(_id: Integer): IFrameworkService; stdcall;
public
constructor Create(); //
class function ItSelf: TFrameworkServices;
public
property FrameworkServices[_id: Integer]: IFrameworkService read GetFrameworkService; default;
end; //
2004-12-31 16:24:14 /:>D10.天地弦(185511468)
这上属性，你们看看property FrameworkServices[_id: Integer]: IFrameworkService read GetFrameworkService; default;
2004-12-31 16:24:18 /:>D10.天地弦(185511468)
这一句
2004-12-31 16:24:28 神王(375867424)
看到了
2004-12-31 16:24:30 乾隆(7891551)
哪点和Tstringlist的用法一样啊，没看出来
2004-12-31 16:24:51 /:>D10.天地弦(185511468)
249208513(B1.斜阳) 16:23:04
var
ts: TStringList;
begin
ts := TStringList.Create;
ts.Add('aaaaa');
Caption := ts[0];
ts.Free
end;
2004-12-31 16:25:00 B1.斜阳(249208513)
ＩｔＳｅｌｆ［ＩＤ］
同
ts[0]
2004-12-31 16:25:06 /:>D10.天地弦(185511468)
上面的ts[0]就是ts.items[0]
2004-12-31 16:25:22 B1.斜阳(249208513)
是ts.Strings[0]
2004-12-31 16:25:27 /:>D10.天地弦(185511468)
呵呵
2004-12-31 16:25:29 /:>D10.天地弦(185511468)
对
2004-12-31 16:25:35 乾隆(7891551)
哦，明白了
2004-12-31 16:25:53 B1.斜阳(249208513)
主要是default关键字，如果不知道，看看语法书对default的定义吧
2004-12-31 16:26:06 /:>D10.天地弦(185511468)
对主要是Default关键字
2004-12-31 16:26:20 西门吹风㊣(48542332)
讲一下
2004-12-31 16:26:26 /:>D10.天地弦(185511468)
在属性上加一个Default关键字，就可以像数组一样访问了
2004-12-31 16:26:36 D3天之痕若虹(86278566)
property FrameworkServices[_id: Integer]: IFrameworkService read GetFrameworkService; default;
-----
是保持FrameworkServices[_id: Integer]的持久性...
2004-12-31 16:27:47 乾隆(7891551)
哦，是不是加个Default就可以按照［０］取第几个方法了
2004-12-31 16:27:52 /:>D10.天地弦(185511468)
对的
2004-12-31 16:27:59 /:>D10.天地弦(185511468)
property FrameworkServices[_id: Integer]: IFrameworkService read GetFrameworkService; default;
2004-12-31 16:28:09 /:>D10.天地弦(185511468)
看看类的这个属性
2004-12-31 16:28:10 hellfire(149902352)
了解[:D]
2004-12-31 16:28:12 /:>D10.天地弦(185511468)
加了一个Default
2004-12-31 16:28:22 /:>D10.天地弦(185511468)
加了一个Default
2004-12-31 16:28:26 神王(375867424)
明白
2004-12-31 16:28:30 /:>D10.天地弦(185511468)
呵呵，以前我也不知道，A1骂出来的
2004-12-31 16:28:51 C03.MUSIC(281361369)
给A1记一等功
2004-12-31 16:29:11 神王(375867424)
我请他[coffee]
2004-12-31 16:29:12 /:>D10.天地弦(185511468)
TFrameworkServices.ItSelf[ID]这样就是调用了
2004-12-31 16:29:23 D3天之痕若虹(86278566)
[:P]
2004-12-31 16:29:25 B1.斜阳(249208513)
要想知道树有多高，不要去看一片叶子，要站在远处去看树的整体。
不要在这些细节上纠缠了，听讲
2004-12-31 16:29:34 /:>D10.天地弦(185511468)
这个实例的
function GetFrameworkService(_id: Integer): IFrameworkService; stdcall;
2004-12-31 16:29:47 /:>D10.天地弦(185511468)
好
2004-12-31 16:30:19 /:>D10.天地弦(185511468)
TFrameworkServices.ItSelf[ID]这样就是调用了这个实例的
GetFrameworkService(_id: Integer): IFrameworkService; 方法，返回一个IFrameWorkService接口
2004-12-31 16:30:32 /:>D10.天地弦(185511468)
TFrameworkServices.ItSelf[ID]返回一个IFrameWorkService接口
2004-12-31 16:30:48 西门吹风㊣(48542332)
明白了
2004-12-31 16:31:00 /:>D10.天地弦(185511468)
TFrameworkServices.ItSelf[ID].ModelService[ModuleIndex]
2004-12-31 16:31:30 /:>D10.天地弦(185511468)
之后的ModelService[ModuleIndex] 也就是返回一个IModelService接口
2004-12-31 16:32:00 /:>D10.天地弦(185511468)
也是使用了同样的方法
2004-12-31 16:32:37 /:>D10.天地弦(185511468)
然后再调用该接口的方法ProcessData来处理数据
2004-12-31 16:32:51 /:>D10.天地弦(185511468)
这样中间层的任务就完成了
2004-12-31 16:33:08 /:>D10.天地弦(185511468)
大家记得中间层的任务吗？
2004-12-31 16:33:40 神王(375867424)
总结一下,我刚听掉了一些
2004-12-31 16:34:08 /:>D10.天地弦(185511468)
3弟，中间层的任务是什么？
2004-12-31 16:34:21 A3.武稀松(42088303)
YWLJ
2004-12-31 16:34:38 /:>D10.天地弦(185511468)
YWLJ是什么？
2004-12-31 16:34:57 A3.武稀松(42088303)
你刚才问的答案
2004-12-31 16:35:05 神王(375867424)
大哥,总结一下
2004-12-31 16:35:33 /:>D10.天地弦(185511468)
不懂，
2004-12-31 16:35:36 D3天之痕若虹(86278566)
晕，刚掉了。。
2004-12-31 16:35:39 C9. 随风飘(87450854)
对 D10 总结下拉
2004-12-31 16:35:42 A3.武稀松(42088303)
拼音而已[;P]
2004-12-31 16:36:36 /:>D10.天地弦(185511468)
中间层的任务就是
找到对应的模块接口，接参数传递到模块进行处理
2004-12-31 16:36:45 /:>D10.天地弦(185511468)
还没有
2004-12-31 16:36:56 冷俊(76437853)
哦 那就继续
2004-12-31 16:37:00 A3.武稀松(42088303)
晕倒.看来我说错了
2004-12-31 16:37:05 /:>D10.天地弦(185511468)
今天还要不要继续
2004-12-31 16:37:06 D3天之痕若虹(86278566)
就是根据client里传的ModuleIndex, ActionIndex
先初始相关模块。。
然后人在再由模块管理中心，查
2004-12-31 16:37:22 /:>D10.天地弦(185511468)
中间层的任务就是
找到对应的模块接口，将参数传递到模块进行处理
2004-12-31 16:37:28 D3天之痕若虹(86278566)
找对应的处理模块，来做出相应的处理。。
2004-12-31 16:37:35 /:>D10.天地弦(185511468)
ye
2004-12-31 16:37:48 神王(375867424)
谢谢,继续
2004-12-31 16:37:53 D3天之痕若虹(86278566)
不好意思，我表达能力不行。。。
2004-12-31 16:38:00 A3.武稀松(42088303)
D10还有的话就继续啊
2004-12-31 16:38:10 /:>D10.天地弦(185511468)
3哥，我还以为你不在了
2004-12-31 16:38:25 乾隆(7891551)
找对应模块是靠ModelService[ModuleIndex]
这句吧
2004-12-31 16:38:34 /:>D10.天地弦(185511468)
TFrameworkServices.ItSelf[ID].ModelService[ModuleIndex].ProcessData(Id, ActionIndex, Data, Msg)
2004-12-31 16:38:43 /:>D10.天地弦(185511468)
就是这一句，就是中间层要做的事了
2004-12-31 16:39:18 /:>D10.天地弦(185511468)
乾隆，是的
2004-12-31 16:39:21 D3天之痕若虹(86278566)
我有个不明白的地方，就是ID什么弄呢
2004-12-31 16:39:21 A3.武稀松(42088303)
我在工作.隔2分钟才看一次
2004-12-31 16:39:31 /:>D10.天地弦(185511468)
呵呵，
2004-12-31 16:39:41 /:>D10.天地弦(185511468)
ID是什么，就是等下要讲的了
2004-12-31 16:40:05 冷俊(76437853)
看来还是我这个菜鸟 敬课
2004-12-31 16:40:20 /:>D10.天地弦(185511468)
慢慢来
2004-12-31 16:40:24 A1.Aleyn.wu(45198124)
我和A3差不多，工作中，每隔几份钟上来看。
2004-12-31 16:40:29 /:>D10.天地弦(185511468)
哦
2004-12-31 16:40:35 /:>D10.天地弦(185511468)
那我们开始了
2004-12-31 16:40:42 /:>D10.天地弦(185511468)
ID是什么，大家找找
2004-12-31 16:40:44 A3.武稀松(42088303)
但是D10的课,我一定会跟到底的
2004-12-31 16:40:59 /:>D10.天地弦(185511468)
[:<],感动中
2004-12-31 16:41:06 乾隆(7891551)
TFrameworkServices.ItSelf[ID].ModelService[ModuleIndex].ProcessData(Id, ActionIndex, Data, Msg)
找框架的哪个方法调用 调用哪个功能模块 具体执行这个功能模块
理解对不？
2004-12-31 16:41:26 /:>D10.天地弦(185511468)
乾隆,对的
2004-12-31 16:41:29 /:>D10.天地弦(185511468)
你理解了
2004-12-31 16:41:31 D3天之痕若虹(86278566)
10弟弟幸苦了 [coffee]
2004-12-31 16:41:36 /:>D10.天地弦(185511468)
hehe
2004-12-31 16:41:39 A3.武稀松(42088303)
乾隆有进步啊
2004-12-31 16:41:57 /:>D10.天地弦(185511468)
我们继续啦
2004-12-31 16:41:57 /:>D10.天地弦(185511468)
ID是什么，大家找找
2004-12-31 16:41:59 神王(375867424)
大哥讲的很好
2004-12-31 16:42:04 /:>D10.天地弦(185511468)
[;-D]
2004-12-31 16:42:14 D3天之痕若虹(86278566)
ok
2004-12-31 16:42:17 /:>D10.天地弦(185511468)
大伙的功劳，
2004-12-31 16:42:34 神王(375867424)
回头[coffee]
2004-12-31 16:42:37 /:>D10.天地弦(185511468)
西门，你不在了
2004-12-31 16:42:44 /:>D10.天地弦(185511468)
ID是什么，大家找找
2004-12-31 16:42:46 西门吹风㊣(48542332)
在,听
2004-12-31 16:42:51 /:>D10.天地弦(185511468)
3弟，找到没有？
2004-12-31 16:42:53 D3天之痕若虹(86278566)
FThreadID: Cardinal;
property ID: Cardinal read FThreadID;
2004-12-31 16:43:06 /:>D10.天地弦(185511468)
我们顺藤摸瓜
2004-12-31 16:43:09 D3天之痕若虹(86278566)
只读的?
2004-12-31 16:43:19 /:>D10.天地弦(185511468)
type
TMLRDataModule = class(TRemoteDataModule, IMLRDataModule)
procedure RemoteDataModuleCreate(Sender: TObject);
procedure RemoteDataModuleDestroy(Sender: TObject);
private
{ Private declarations }
FModels: TModels; //为该客户端维护的模块列表
FService: TFrameworkService;
FThreadID: Cardinal;
CurrentUser: TUser;
protected
class procedure UpdateRegistry(Register: Boolean; const ClassID, ProgID: string); override;
function ProcessData(ModuleIndex, ActionIndex: Integer; var Data,
Msg: OleVariant): WordBool; safecall;
function ProcessDataEx(ActionIndex: Integer; var Data,
Msg: OleVariant): WordBool; safecall;
public
{ Public declarations }
property ID: Cardinal read FThreadID;
end;
2004-12-31 16:43:20 D3天之痕若虹(86278566)
那如何计数?
2004-12-31 16:43:45 西门吹风㊣(48542332)
FThreadID := dkHandle.NewHandle; //为每个客户端创建一个Handle
2004-12-31 16:44:09 /:>D10.天地弦(185511468)
中间层为每一次客户端连结创建一个TMLRDataModule
2004-12-31 16:44:17 /:>D10.天地弦(185511468)
大伙明白这点？
2004-12-31 16:44:37 D3天之痕若虹(86278566)
FThreadID := dkHandle.NewHandle; //为每个客户端创建一个Handle
这样不会被覆盖了吗?
2004-12-31 16:44:48 D3天之痕若虹(86278566)
每一次客户端连结时
2004-12-31 16:44:58 /:>D10.天地弦(185511468)
嗯
2004-12-31 16:45:11 /:>D10.天地弦(185511468)
不知道大伙清不清楚
2004-12-31 16:45:25 冷俊(76437853)
D3天之痕若虹(86278566) 16:44:37
FThreadID := dkHandle.NewHandle; //为每个客户端创建一个Handle
这样不会被覆盖了吗?
D3天之痕若虹(86278566) 16:44:48
每一次客户端连结时 [:>]D10.天地弦(185511468) 16:44:58
嗯
????
2004-12-31 16:45:31 D3天之痕若虹(86278566)
我的意思是指，如何保证一致性呢
2004-12-31 16:45:34 西门吹风㊣(48542332)
不是很清楚
2004-12-31 16:45:36 乾隆(7891551)
TMLRDataModule 是什么 相当与什么
2004-12-31 16:45:45 /:>D10.天地弦(185511468)
是RemoteModule
2004-12-31 16:46:07 D3天之痕若虹(86278566)
呵，稍等。。。先码部分代码看完先
2004-12-31 16:46:10 /:>D10.天地弦(185511468)
中间层为每一次客户端连结创建一个TMLRDataModule 这个是Midas
实现的功能
2004-12-31 16:46:24 /:>D10.天地弦(185511468)
3弟先别急
2004-12-31 16:46:33 /:>D10.天地弦(185511468)
西门清楚不
2004-12-31 16:46:38 西门吹风㊣(48542332)
清楚
2004-12-31 16:46:39 /:>D10.天地弦(185511468)
中间层为每一次客户端连结创建一个TMLRDataModule 这个是Midas
实现的功能
2004-12-31 16:47:06 /:>D10.天地弦(185511468)
这个ID，只是每一次客户端连结编一个号码
2004-12-31 16:47:24 /:>D10.天地弦(185511468)
好像大家入队的编号一样，叫D3，肯定是3弟了
2004-12-31 16:47:50 D3天之痕若虹(86278566)
[:D]
2004-12-31 16:47:51 /:>D10.天地弦(185511468)
跟上没有？
2004-12-31 16:47:51 冷俊(76437853)
可不可以逃跑?
2004-12-31 16:48:06 /:>D10.天地弦(185511468)
冷俊，你可以逃了
2004-12-31 16:48:12 /:>D10.天地弦(185511468)
呵呵
2004-12-31 16:48:18 西门吹风㊣(48542332)
继续,不懂就问
2004-12-31 16:48:27 神王(375867424)
还有没有没
2004-12-31 16:48:32 /:>D10.天地弦(185511468)
这个ID，读的就是FThreadID
2004-12-31 16:49:09 /:>D10.天地弦(185511468)
FThreadID 就是在TMLRDataModule创建的时候生成的一个顺号
2004-12-31 16:49:13 神王(375867424)
这个笔记在那里
2004-12-31 16:49:22 /:>D10.天地弦(185511468)
procedure TMLRDataModule.RemoteDataModuleCreate(Sender: TObject);
begin
FThreadID := dkHandle.NewHandle; //为每个客户端创建一个Handle
CurrentUser := TUser.Create(FThreadID); //创建用户类
TUsers.Users.Add(CurrentUser); //添加至用户列表
TRemoteDataModules.ItSelf.Add(Self); //添加当前模块到列表
FModels := TModels.Create(false); //自己负责释放对象
FService := TFrameworkService.Create(FModels, ID); //创建当前service;
TFrameworkServices.ItSelf.Add(FService); //添加到框架集里面,
end;
2004-12-31 16:49:30 /:>D10.天地弦(185511468)
FThreadID := dkHandle.NewHandle; //为每个客户端创建一个Handle
2004-12-31 16:49:31 乾隆(7891551)
ＩＤ是不是就是连接到中间层的时候给每个连接排的序号
2004-12-31 16:49:35 /:>D10.天地弦(185511468)
看到这一句没有
2004-12-31 16:49:40 /:>D10.天地弦(185511468)
对
2004-12-31 16:49:44 D3天之痕若虹(86278566)
看到了
2004-12-31 16:49:50 /:>D10.天地弦(185511468)
乾隆,对的，你明了
2004-12-31 16:50:13 /:>D10.天地弦(185511468)
这个编号是为了方便查找
2004-12-31 16:50:24 A3.武稀松(42088303)
D10的ID根据什么创建的
2004-12-31 16:50:26 乾隆(7891551)
天啊，你们把类玩的太熟悉了，[:'(]
2004-12-31 16:50:46 /:>D10.天地弦(185511468)
是累加器,3哥
2004-12-31 16:50:48 冷俊(76437853)
为什么?唉 后面的听不懂了 有点迷茫了 我先工作了 一会在来看记录 今天的讲义整理了一半
2004-12-31 16:50:57 /:>D10.天地弦(185511468)
呵呵
2004-12-31 16:51:12 /:>D10.天地弦(185511468)
每创建一次就累加一次
2004-12-31 16:51:17 A3.武稀松(42088303)
我们使用的是GUID转化成字符串做唯一的ID的.呵呵
2004-12-31 16:51:23 A1.Aleyn.wu(45198124)
慢慢来，就会听懂了。
2004-12-31 16:51:36 神王(375867424)
我也是,中间掉了一些,跟不上了
2004-12-31 16:51:39 A1.Aleyn.wu(45198124)
就象D10，不用很久就学会了。
2004-12-31 16:51:44 /:>D10.天地弦(185511468)
呵呵，我开始也是这样考虑，
2004-12-31 16:51:49 乾隆(7891551)
我要坚持听下来
2004-12-31 16:51:51 C9. 随风飘(87450854)
INC（ID）？
2004-12-31 16:52:07 /:>D10.天地弦(185511468)
你看看dkHandle.newhandle
2004-12-31 16:52:10 /:>D10.天地弦(185511468)
C9
2004-12-31 16:52:11 A1.Aleyn.wu(45198124)
42088303(A3.武稀松) 16:51:17
我们使用的是GUID转化成字符串做唯一的ID的.呵呵
<-和我做的一样。
2004-12-31 16:52:28 A1.Aleyn.wu(45198124)
不过GUID是32位的，我的是16位的。
2004-12-31 16:52:31 D3天之痕若虹(86278566)
function NewHandle: Cardinal;
begin
id := id + 1;
result := id;
end;
2004-12-31 16:52:35 /:>D10.天地弦(185511468)
[:L]
2004-12-31 16:52:44 C9. 随风飘(87450854)
OK 看看先
2004-12-31 16:52:51 /:>D10.天地弦(185511468)
呵呵，只是累加，和生成GUID也是一样的
2004-12-31 16:52:54 C9. 随风飘(87450854)
刚掉了线
2004-12-31 16:52:59 /:>D10.天地弦(185511468)
好了，继续
2004-12-31 16:53:01 D3天之痕若虹(86278566)
看个人用法习惯
2004-12-31 16:53:06 A3.武稀松(42088303)
A1的16位怎么搞得
2004-12-31 16:53:43 A3.武稀松(42088303)
D10继续啊
2004-12-31 16:53:53 /:>D10.天地弦(185511468)
框架为每个客户端连结维护了一个TFrameworkService,FModels: TModels; //为该客户端维护的模块列表
2004-12-31 16:54:02 /:>D10.天地弦(185511468)
继续
2004-12-31 16:54:08 /:>D10.天地弦(185511468)
框架为每个客户端连结维护了一个TFrameworkService,FModels: TModels; //为该客户端维护的模块列表
2004-12-31 16:54:17 /:>D10.天地弦(185511468)
先理解这一句
2004-12-31 16:54:29 冷俊(76437853)
舍不得走啊 我还是继续听课吧
2004-12-31 16:54:40 /:>D10.天地弦(185511468)
呵呵，慢慢听
2004-12-31 16:54:50 /:>D10.天地弦(185511468)
我讲得也很慢
2004-12-31 16:54:55 神王(375867424)
我也一样,什么事也不做
2004-12-31 16:54:59 神王(375867424)
听课
2004-12-31 16:55:09 /:>D10.天地弦(185511468)
明了上面那句没有？
2004-12-31 16:55:12 D3天之痕若虹(86278566)
FModels: TModels; //为该客户端维护的模块列表
FService: TFrameworkService;
FThreadID: Cardinal;
CurrentUser: TUser;
---------------
对ClientX的管理
2004-12-31 16:55:23 hellfire(149902352)
我也上WC都没时间
2004-12-31 16:56:03 /:>D10.天地弦(185511468)
CurrentUser: TUser;还没有具体来实现，可以保存当前客户端登陆的一些信息
2004-12-31 16:56:28 /:>D10.天地弦(185511468)
选取的帐套
2004-12-31 16:56:53 D3天之痕若虹(86278566)
恩
2004-12-31 16:57:17 乾隆(7891551)
为该客户端维护的模块列表 ？有什么具体作用啊
2004-12-31 16:57:18 /:>D10.天地弦(185511468)
框架为每个客户端连结维护了一个TFrameworkService,FModels: TModels;
大伙要记住这一句
2004-12-31 16:57:49 西门吹风㊣(48542332)
这句对吧
FModels := TModels.Create(false); //自己负责释放对象
2004-12-31 16:57:56 /:>D10.天地弦(185511468)
嗯
2004-12-31 16:58:03 /:>D10.天地弦(185511468)
好我们继续
2004-12-31 16:58:26 乾隆(7891551)
框架为每个客户端连结维护了一个TFrameworkService,FModels: TModels;
这句再说下
2004-12-31 16:58:30 /:>D10.天地弦(185511468)
看看
procedure TMLRDataModule.RemoteDataModuleCreate(Sender: TObject);
begin
FThreadID := dkHandle.NewHandle; //为每个客户端创建一个Handle
CurrentUser := TUser.Create(FThreadID); //创建用户类
TUsers.Users.Add(CurrentUser); //添加至用户列表
TRemoteDataModules.ItSelf.Add(Self); //添加当前模块到列表
FModels := TModels.Create(false); //自己负责释放对象
FService := TFrameworkService.Create(FModels, ID); //创建当前service;
TFrameworkServices.ItSelf.Add(FService); //添加到框架集里面,
end;
2004-12-31 16:58:46 D3天之痕若虹(86278566)
总框架只产生一个实现。。。。
而用户信息，含所需模块信息，就地.ItSelf.Add(FService);追加。。?
2004-12-31 16:59:22 D8。飘尘(43745429)
function NewHandle: Cardinal;
begin
id := id + 1;
result := id;
end;
2004-12-31 16:59:27 D8。飘尘(43745429)
这里有错呀
2004-12-31 16:59:32 D8。飘尘(43745429)
没有独占呀
2004-12-31 16:59:32 /:>D10.天地弦(185511468)
7891551(乾隆) 16:58:26
框架为每个客户端连结维护了一个TFrameworkService,FModels: TModels;
这句再说下 ==>每个客户端连结可以通过维护的这些实例来做要做的事
2004-12-31 16:59:49 /:>D10.天地弦(185511468)
43745429(D8。飘尘) 16:59:22
function NewHandle: Cardinal;
begin
id := id + 1;
result := id;
end;
43745429(D8。飘尘) 16:59:27
这里有错呀
43745429(D8。飘尘) 16:59:32
没有独占呀 =>
2004-12-31 16:59:54 /:>D10.天地弦(185511468)
晕，是没有，再加
2004-12-31 17:00:09 /:>D10.天地弦(185511468)
3弟，对的
2004-12-31 17:00:10 hellfire(149902352)
加什么
2004-12-31 17:00:29 /:>D10.天地弦(185511468)
procedure TMLRDataModule.RemoteDataModuleCreate(Sender: TObject);
begin
FThreadID := dkHandle.NewHandle; //为每个客户端创建一个Handle
CurrentUser := TUser.Create(FThreadID); //创建用户类
TUsers.Users.Add(CurrentUser); //添加至用户列表
TRemoteDataModules.ItSelf.Add(Self); //添加当前模块到列表
FModels := TModels.Create(false); //自己负责释放对象
FService := TFrameworkService.Create(FModels, ID); //创建当前service;
TFrameworkServices.ItSelf.Add(FService); //添加到框架集里面,
end;
//看看这一段
2004-12-31 17:00:31 冷俊(76437853)
不要讲错啊 我很难找到的
2004-12-31 17:00:34 乾隆(7891551)
这句再说下 ==>每个客户端连结可以通过维护的这些实例来做要做的事
再通俗点好吗，具体维护实例怎么讲。
2004-12-31 17:00:46 乾隆(7891551)
这句再说下 ==>每个客户端连结可以通过维护的这些实例来做要做的事
再通俗点好吗，具体维护实例怎么讲。
2004-12-31 17:01:06 D3天之痕若虹(86278566)
TRemoteDataModules.ItSelf.Remove(Self);
能正确释放对应资源吗？
与这个比效TFrameworkServices.ItSelf.Add(FService);
2004-12-31 17:01:26 /:>D10.天地弦(185511468)
乾隆，你现在只要记住，每个客户端连结可以通过维护的这些实例来做要做的事
2004-12-31 17:01:31 D3天之痕若虹(86278566)
我看传的self怪怪得[?]
2004-12-31 17:01:58 /:>D10.天地弦(185511468)
3弟，你跑快了
2004-12-31 17:02:08 D3天之痕若虹(86278566)
[;-D]
2004-12-31 17:02:21 乾隆(7891551)
好吧，就是维护具体的一个对象来实现要做的事情
2004-12-31 17:02:32 /:>D10.天地弦(185511468)
继续
2004-12-31 17:02:45 D3天之痕若虹(86278566)
听你的先。。。
2004-12-31 17:03:33 /:>D10.天地弦(185511468)
1. FThreadID := dkHandle.NewHandle; //为每个客户端创建一个Handle
2. CurrentUser := TUser.Create(FThreadID); //创建用户类
3. TUsers.Users.Add(CurrentUser); //添加至用户列表
4. TRemoteDataModules.ItSelf.Add(Self); //添加当前模块到列表
5. FModels := TModels.Create(false); //自己负责释放对象
6. FService := TFrameworkService.Create(FModels, ID); //创建当前service;
7. TFrameworkServices.ItSelf.Add(FService); //添加到框架集里面,
2004-12-31 17:03:51 /:>D10.天地弦(185511468)
1句讲过了
2004-12-31 17:04:10 /:>D10.天地弦(185511468)
是为每个客户端连结产生一个编号
2004-12-31 17:04:32 /:>D10.天地弦(185511468)
2.是创建一个TUser对象，
2004-12-31 17:04:33 神王(375867424)
[ID]
2004-12-31 17:04:48 /:>D10.天地弦(185511468)
还没有什么用，可以用来保存一些客户端信息
2004-12-31 17:05:31 /:>D10.天地弦(185511468)
3句TUsers,和FrameworkServices一样的了，维护的是一个列表，
2004-12-31 17:05:36 D3天之痕若虹(86278566)
恩，那就从3开始
2004-12-31 17:05:41 /:>D10.天地弦(185511468)
也使用了单件模式
2004-12-31 17:05:50 乾隆(7891551)
procedure TMLRDataModule.RemoteDataModuleCreate(Sender: TObject);这个应该叫方法？
是在哪里定义的是中间层里吗
2004-12-31 17:05:58 /:>D10.天地弦(185511468)
2,3还有待完shan
2004-12-31 17:06:05 /:>D10.天地弦(185511468)
是的
2004-12-31 17:06:17 /:>D10.天地弦(185511468)
是建立的时候的事件
2004-12-31 17:06:25 D3天之痕若虹(86278566)
TRemoteDataModules.ItSelf.Add(Self); //添加当前模块到列表
TFrameworkServices.ItSelf.Add(FService); //添加到框架集里面,
这是不是维护了两份client信息。。。
2004-12-31 17:06:40 /:>D10.天地弦(185511468)
不是
2004-12-31 17:06:42 D3天之痕若虹(86278566)
如果信成地同一个会不会更好管理呢
2004-12-31 17:06:52 /:>D10.天地弦(185511468)
3. TRemoteDataModules.ItSelf.Add(Self); //添加当前模块到列表
2004-12-31 17:06:54 寻欢(42477914)
今天什么主题?[?]
2004-12-31 17:06:59 /:>D10.天地弦(185511468)
4. TRemoteDataModules.ItSelf.Add(Self); //添加当前模块到列表
2004-12-31 17:07:03 /:>D10.天地弦(185511468)
这个
2004-12-31 17:07:15 神王(375867424)
3,4好好讲讲
2004-12-31 17:07:22 /:>D10.天地弦(185511468)
这个还没有什么用，后来发现好像不用，也可以
2004-12-31 17:07:26 乾隆(7891551)
procedure TMLRDataModule.RemoteDataModuleCreate(Sender: TObject);这个该叫什么模块，中间层的总调度？
2004-12-31 17:07:38 /:>D10.天地弦(185511468)
TRemoteDataModules是自己定义的一个类
2004-12-31 17:07:40 冷俊(76437853)
[:>]D10.天地弦(185511468) 17:06:17
是建立的时候的事件
什么意思?
2004-12-31 17:07:58 A3.武稀松(42088303)
185511468([:>]D10.天地弦) 17:07:22
这个还没有什么用，后来发现好像不用，也可以
-----------
半句话
2004-12-31 17:08:14 /:>D10.天地弦(185511468)
[:L]
2004-12-31 17:08:15 A1.Aleyn.wu(45198124)
[:D]
2004-12-31 17:08:34 /:>D10.天地弦(185511468)
4. TRemoteDataModules.ItSelf.Add(Self); //添加当前模块到列表
这个还没有什么用，后来发现好像不用这样也可以
2004-12-31 17:08:38 冷俊(76437853)
我刚发的也是半句
2004-12-31 17:08:46 A3.武稀松(42088303)
[:D]
2004-12-31 17:09:05 /:>D10.天地弦(185511468)
procedure TMLRDataModule.RemoteDataModuleCreate(Sender: TObject)
这个函数发生在什么时候有人不明吗？
2004-12-31 17:09:07 江畔绿舟(8128584)
DELPHI对象可以序列化吗？
2004-12-31 17:09:09 神王(375867424)
是为了维护每一个功能模用对吗
2004-12-31 17:09:27 /:>D10.天地弦(185511468)
procedure TMLRDataModule.RemoteDataModuleCreate(Sender: TObject)
这个函数发生在什么时候有人不明吗？
2004-12-31 17:09:32 hellfire(149902352)
不就是OnCreate事件吗
2004-12-31 17:09:39 寻欢(42477914)
呵呵
2004-12-31 17:09:44 D3天之痕若虹(86278566)
知到呀
2004-12-31 17:09:46 神王(375867424)
这个回头告诉,
2004-12-31 17:09:46 /:>D10.天地弦(185511468)
是，但是陛下好像不知道
2004-12-31 17:09:56 hellfire(149902352)
早明白了
2004-12-31 17:10:00 西门吹风㊣(48542332)
陛下?
2004-12-31 17:10:01 神王(375867424)
接着说A3问的问题
2004-12-31 17:10:01 乾隆(7891551)
是发生在中间层用来维护其他模块的吧
2004-12-31 17:10:03 C9. 随风飘(87450854)
RemoteDataModule ON CREATE
2004-12-31 17:10:06 乾隆(7891551)
告诉我啊
2004-12-31 17:10:15 /:>D10.天地弦(185511468)
事件就是当什么时候，要做的事
2004-12-31 17:10:38 /:>D10.天地弦(185511468)
陛下就是干隆
2004-12-31 17:10:43 /:>D10.天地弦(185511468)
只是陛下好打一点
2004-12-31 17:10:47 神王(375867424)
接着讲
2004-12-31 17:10:59 冷俊(76437853)
晕晕 好好讲啊
2004-12-31 17:11:01 乾隆(7891551)
RemoteDataModuleCreate这是该类的个事件啊[:$]
2004-12-31 17:11:04 /:>D10.天地弦(185511468)
乾隆掉队了，你们等等，我拿一把
2004-12-31 17:11:33 乾隆(7891551)
就是，得照顾老弱者
2004-12-31 17:11:39 C9. 随风飘(87450854)
我晕
2004-12-31 17:11:47 西门吹风㊣(48542332)
陛下:是数据模组建立时候的事件
2004-12-31 17:11:49 神王(375867424)
时间有限吗
2004-12-31 17:12:04 /:>D10.天地弦(185511468)
TMLRDataModule什么时候会创建实例
2004-12-31 17:12:06 C9. 随风飘(87450854)
我还没怎么接触这些思想
2004-12-31 17:12:18 冷俊(76437853)
不知道
2004-12-31 17:12:28 /:>D10.天地弦(185511468)
讲不完以后再开
2004-12-31 17:13:01 /:>D10.天地弦(185511468)
TMLRDataModule什么时候会创建实例 ,乾隆你明不？
2004-12-31 17:13:20 /:>D10.天地弦(185511468)
西门，你告诉他们两个
2004-12-31 17:13:31 神王(375867424)
48542332(西门吹风㊣) 17:11:47
陛下:是数据模组建立时候的事件
2004-12-31 17:13:32 西门吹风㊣(48542332)
客户端 ProcessData的时候
2004-12-31 17:13:45 /:>D10.天地弦(185511468)
不是哦
2004-12-31 17:14:02 /:>D10.天地弦(185511468)
是客户端和中间层第一次连结的时候
2004-12-31 17:14:15 乾隆(7891551)
我掉线了[:'(]
2004-12-31 17:14:19 /:>D10.天地弦(185511468)
会创建一个TMLRDataModule实例
2004-12-31 17:14:26 /:>D10.天地弦(185511468)
[:L]晕
2004-12-31 17:14:32 /:>D10.天地弦(185511468)
TMLRDataModule什么时候会创建实例 ,乾隆你明不？
2004-12-31 17:14:43 /:>D10.天地弦(185511468)
是客户端和中间层第一次连结的时候
会创建一个TMLRDataModule实例
2004-12-31 17:14:44 西门吹风㊣(48542332)
对,我搞错了,中间层运行的时候就create
2004-12-31 17:15:09 /:>D10.天地弦(185511468)
TMLRDataModule的实例是每个客户端一份实例
2004-12-31 17:15:11 乾隆(7891551)
哦，我知道了
2004-12-31 17:15:41 /:>D10.天地弦(185511468)
procedure RemoteDataModuleCreate(Sender: TObject);
这个事件是这个实例创建的时候发生的事件
2004-12-31 17:15:48 /:>D10.天地弦(185511468)
冷jun明不？
2004-12-31 17:16:01 /:>D10.天地弦(185511468)
这个事件就是ONCreate事件了
2004-12-31 17:16:07 D12.阿凯(107125961)
哈哈
2004-12-31 17:16:10 D12.阿凯(107125961)
明白
2004-12-31 17:16:15 /:>D10.天地弦(185511468)
在Create创建的时候发件的事件
2004-12-31 17:16:29 /:>D10.天地弦(185511468)
陛下，知道了不？
2004-12-31 17:16:35 神王(375867424)
阿兄半路出来也明白
2004-12-31 17:16:46 冷俊(76437853)
我在品 继续 谢谢
2004-12-31 17:16:57 乾隆(7891551)
哦就是当客户端和中间层第一次连结的时候，就触发中间层的RemoteDataModuleCreate事件，
做那堆初始化，维护工作了
2004-12-31 17:17:00 神王(375867424)
我中间掉了一些,后面我都>>>
2004-12-31 17:17:01 D12.阿凯(107125961)
哈哈，我边开会边看
2004-12-31 17:17:02 /:>D10.天地弦(185511468)
好了，今天讲到这里吧
2004-12-31 17:17:25 /:>D10.天地弦(185511468)
下次再找个时间继续
2004-12-31 17:17:37 hellfire(149902352)
什么时候
2004-12-31 17:17:44 寻欢(42477914)
群主真是辛苦!
2004-12-31 17:17:45 /:>D10.天地弦(185511468)
待通知
230
被折叠的 条评论
为什么被折叠?
到【灌水乐园】发言
