开发者社区> 天地弦> 正文
阿里云
为了无法计算的价值
打开APP
阿里云APP内打开

主题:的中间层框架 第二节 |DLL的Exception你如何处理?|不同宿主内如果接口抛出异常,怎么处理

简介: 主题:的中间层框架 第二节 时间:2005-01-21 15:00 主讲:D10.天地弦 A1.老大 (一).DLL的Exception你如何处理? (二).不同宿主内如果接口抛出异常,怎么处理  2005-01-21 15:03:07 /:>D10.
+关注继续查看

主题:<插件式>的中间层框架 第二节
时间:2005-01-21 15:00
主讲:D10.天地弦

A1.老大
(一).DLL的Exception你如何处理?
(二).不同宿主内如果接口抛出异常,怎么处理 

2005-01-21 15:03:07 /:>D10.天地弦(185511468)
先回顾一下上一堂课的内容

2005-01-21 15:04:37 /:>D10.天地弦(185511468)
没有什么回头客,我自己来带大家回顾一下上一堂上吧

2005-01-21 15:05:07 /:>D10.天地弦(185511468)
http://www.cnblogs.com/dksoft/articles/85708.html
上一堂课的笔记

2005-01-21 15:06:01 /:>D10.天地弦(185511468)
上一堂课主要讲了一下,整个框架的运作。

2005-01-21 15:06:38 /:>D10.天地弦(185511468)
整理框架的动力来源都是以客户端命令来驱动的

img_ba8427c094af84a65520124802f318ab.gif
2005-01-21 15:08:13 /:>D10.天地弦(185511468)
整个框架的运作是这样子的

2005-01-21 15:08:48 /:>D10.天地弦(185511468)
上次说到了


2005-01-21 15:09:14 /:>D10.天地弦(185511468)
这一部分,客户端发送命令到中间层上


2005-01-21 15:09:59 /:>D10.天地弦(185511468)
还有谁记得中间层的任务不

2005-01-21 15:10:39 A3.武稀松(42088303)
模块管理

2005-01-21 15:10:48 A3.武稀松(42088303)
统一分派命令

2005-01-21 15:11:06 /:>D10.天地弦(185511468)
差不多了

2005-01-21 15:11:17 /:>D10.天地弦(185511468)
我还总结一下
中间层的任务就是
找到对应的模块接口,接参数传递到模块进行处理 

2005-01-21 15:12:57 /:>D10.天地弦(185511468)
找到相应的模块,使用接口,转发命令,参数

2005-01-21 15:13:36 /:>D10.天地弦(185511468)
今天主要讲中间层框架与模块通讯这一部分

2005-01-21 15:14:56 /:>D10.天地弦(185511468)
看看模块是怎么样叫模块来处理数据的

2005-01-21 15:15:19 /:>D10.天地弦(185511468)
上一堂课讲了中间层与模块进行通讯的几个接口

2005-01-21 15:15:37 /:>D10.天地弦(185511468)
这几个接口,就是中间层与模块进行通讯的协议

2005-01-21 15:16:24 /:>D10.天地弦(185511468)
  IModelService = interface //模块操作接口
    function ProcessData(OwnId: Cardinal; ActionIndex: Integer; var Data, Msg: OleVariant):

HResult; stdcall;

    //主程序调用此函数关闭模块操作
    function CloseModel(): HResult; stdcall;
  end;
 

2005-01-21 15:16:59 /:>D10.天地弦(185511468)
主要是通个这个接口来告诉模块进行处理数据的

2005-01-21 15:17:54 /:>D10.天地弦(185511468)
我现在开始讲代码了。

2005-01-21 15:18:06 /:>D10.天地弦(185511468)
宏观讲完了

2005-01-21 15:18:27 /:>D10.天地弦(185511468)
大家请打开工程

2005-01-21 15:19:23 /:>D10.天地弦(185511468)
打开工程MiddleLayer.bpg

2005-01-21 15:21:58 /:>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;

2005-01-21 15:22:32 /:>D10.天地弦(185511468)
讲到中间层数据模块的建立这部分代码

2005-01-21 15:23:11 /:>D10.天地弦(185511468)
提几个问,活跃一下

2005-01-21 15:23:40 /:>D10.天地弦(185511468)
FThreadID
是做什么用的

2005-01-21 15:24:01 /:>D10.天地弦(185511468)
上堂课讲过了的

2005-01-21 15:24:14 来吧!朋友(264123192)
我要干活,谁帮我做一下笔记[:L]

2005-01-21 15:24:16 hellfire(149902352)
全局编号

2005-01-21 15:24:29 hellfire(149902352)
错了.别砸我

2005-01-21 15:24:30 /:>D10.天地弦(185511468)
讲完我会整理

2005-01-21 15:24:42 西门吹风㊣(48542332)
 FThreadID := dkHandle.NewHandle; //为每个客户端创建一个Handle
 

2005-01-21 15:24:44 湖北人(364076660)
用户连接时,系统为其分配的ID号
 

2005-01-21 15:24:44 A3.武稀松(42088303)
也不算错吧

2005-01-21 15:24:49 /:>D10.天地弦(185511468)
hellfire(149902352) 15:24:16
全局编号 ==>是个编号

2005-01-21 15:25:07 /:>D10.天地弦(185511468)
湖北人(364076660) 15:24:44
用户连接时,系统为其分配的ID号==>这个正解

2005-01-21 15:25:35 /:>D10.天地弦(185511468)
initialization
  TComponentFactory.Create(ComServer, TMLRDataModule,
    Class_MLRDataModule, ciMultiInstance, tmApartment);

2005-01-21 15:26:12 /:>D10.天地弦(185511468)
用这种模式创建远程数据模块。每个客户端连结数据库都会创建一次

2005-01-21 15:26:13 /:>D10.天地弦(185511468)
是不是

2005-01-21 15:26:39 D11.飞去找你(419070954)
Y
 

2005-01-21 15:26:42 hellfire(149902352)

2005-01-21 15:27:03 熊科智(65464106)
不知道

2005-01-21 15:27:08 西门吹风㊣(48542332)
O~ Y~

2005-01-21 15:27:52 /:>D10.天地弦(185511468)
这样,为了便于让框架找到每一个客户端连结,所以在
procedure TMLRDataModule.RemoteDataModuleCreate(Sender: TObject);
这个事件里,为每个客户端连编一个号

2005-01-21 15:28:28 /:>D10.天地弦(185511468)
再提第二个问题

2005-01-21 15:28:43 /:>D10.天地弦(185511468)
TFrameworkServices

2005-01-21 15:28:49 /:>D10.天地弦(185511468)
这个类是做什么的

2005-01-21 15:29:04 西门吹风㊣(48542332)
//框架集接口

2005-01-21 15:29:14 西门吹风㊣(48542332)
IFrameworkServices = interface //框架集接口(通过该接口查得到框架服务接口

2005-01-21 15:29:30 /:>D10.天地弦(185511468)
对,

2005-01-21 15:29:58 A3.武稀松(42088303)
西门吹雪,真不是吹的

2005-01-21 15:30:00 /:>D10.天地弦(185511468)
这个类实现了IFrameworkServices框架集接口

2005-01-21 15:30:24 西门吹风㊣(48542332)
武松,错了哦,我是吹风

2005-01-21 15:30:27 /:>D10.天地弦(185511468)
是用来管理所有服务的类

2005-01-21 15:30:38 /:>D10.天地弦(185511468)
  TFrameworkServices = class(TdkObjectList, IFrameworkServices)

2005-01-21 15:30:55 /:>D10.天地弦(185511468)
  FService := TFrameworkService.Create(FModels, ID); //创建当前service;

2005-01-21 15:31:35 /:>D10.天地弦(185511468)
是为每个客户端连结创建一个服务


2005-01-21 16:04:01 /:>D10.天地弦(185511468)
再看看,模块里如何收到命令进行处理的

2005-01-21 16:04:30 /:>D10.天地弦(185511468)
大家打开一个模块

2005-01-21 16:04:40 /:>D10.天地弦(185511468)
AccountMgr

2005-01-21 16:05:35 /:>D10.天地弦(185511468)
中间层是通过操作哪个接口方法

2005-01-21 16:05:52 /:>D10.天地弦(185511468)
告诉模块进行处理的

2005-01-21 16:06:09 B2.TCP INFO(31329846)
  IModelService = interface //模块操作接口
这个

2005-01-21 16:06:11 /:>D10.天地弦(185511468)
中间层是通过操作哪个接口方法 告诉模块进行处理的?

2005-01-21 16:06:18 西门吹风㊣(48542332)
IModelService

2005-01-21 16:06:27 西门吹风㊣(48542332)
ProcessData

2005-01-21 16:07:23 /:>D10.天地弦(185511468)
是能过IModelService.ProcessData告诉模块处理数据的

2005-01-21 16:08:01 /:>D10.天地弦(185511468)
看看中间层接到客户端命令做了什么事

2005-01-21 16:08:10 /:>D10.天地弦(185511468)
谁来贴一下

2005-01-21 16:08:42 西门吹风㊣(48542332)
 try
    result := TFrameworkServices.ItSelf[ID].ModelService[ModuleIndex].ProcessData(Id,

ActionIndex, Data, Msg) = S_OK;
    result := true;
  except
    result := false;    //
  end;

2005-01-21 16:08:49 /:>D10.天地弦(185511468)
是这一段了

2005-01-21 16:08:49 /:>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;

2005-01-21 16:09:17 /:>D10.天地弦(185511468)
    result := TFrameworkServices.ItSelf[ID].ModelService[ModuleIndex].ProcessData(Id,

ActionIndex, Data, Msg) = S_OK;

2005-01-21 16:09:23 /:>D10.天地弦(185511468)
主要是这一句了

2005-01-21 16:09:44 /:>D10.天地弦(185511468)
TFrameworkServices.ItSelf[ID].ModelService[ModuleIndex]是找到对应的模块提供的接口

2005-01-21 16:09:47 西门吹风㊣(48542332)
没错,开始晕了,准备运车药

2005-01-21 16:09:59 /:>D10.天地弦(185511468)
TFrameworkServices.ItSelf[ID].ModelService[ModuleIndex]是找到对应的模块提供的接口

2005-01-21 16:10:14 /:>D10.天地弦(185511468)
明白吧,上堂课讲的

2005-01-21 16:11:24 B2.TCP INFO(31329846)
TFrameworkServices.ItSelf[ID] 取得模块服务

2005-01-21 16:11:35 /:>D10.天地弦(185511468)
找对应的模块提供的接口是这样的流程
TFrameworkServices-->TFrameWorkService->TModels->TModel->IModelService

2005-01-21 16:11:56 /:>D10.天地弦(185511468)
B2.TCP INFO(31329846) 16:11:24
TFrameworkServices.ItSelf[ID] 取得模块服务 =>对

2005-01-21 16:12:22 乾隆(7891551)
我给忘记了,好可惜啊
 

2005-01-21 16:12:29 /:>D10.天地弦(185511468)
TFrameworkServices.ItSelf[ID].ModelService[ModuleIndex]这一句就实现了
TFrameworkServices-->TFrameWorkService->TModels->TModel->IModelService

2005-01-21 16:12:45 B2.TCP INFO(31329846)
有一个完整的UML类图就好了

2005-01-21 16:13:04 /:>D10.天地弦(185511468)
找接口的任务,忘记了的同志可以跟踪下源码。


2005-01-21 16:13:36 /:>D10.天地弦(185511468)
B2.TCP INFO(31329846) 16:12:45
有一个完整的UML类图就好了 ==》我想画一个,UML,不熟,画不出来

2005-01-21 16:14:05 /:>D10.天地弦(185511468)
好了,看看,模块里面哪一个类实现了IModelService

2005-01-21 16:14:35 B2.TCP INFO(31329846)
用ModelMaker 拽一个,我看看

2005-01-21 16:14:59 /:>D10.天地弦(185511468)
呵呵,好

2005-01-21 16:15:18 /:>D10.天地弦(185511468)
看看模块里面哪一个类实现了IModelService 

2005-01-21 16:15:31 西门吹风㊣(48542332)
TModelService 

2005-01-21 16:15:34 /:>D10.天地弦(185511468)
大家可以打开模块,看看,哪一个类实现了

2005-01-21 16:15:41 西门吹风㊣(48542332)
TModelService = class(TdkInterfacedObject, IModelService)

2005-01-21 16:16:05 /:>D10.天地弦(185511468)
[strong]奖励西门

2005-01-21 16:16:27 /:>D10.天地弦(185511468)
好看看这个类

2005-01-21 16:16:37 /:>D10.天地弦(185511468)
MLIntsBaseImp

2005-01-21 16:16:38 西门吹风㊣(48542332)
unit MLIntsBaseImp;

2005-01-21 16:16:46 /:>D10.天地弦(185511468)
对在这个单元里面

2005-01-21 16:17:00 /:>D10.天地弦(185511468)
  TModelService = class(TdkInterfacedObject, IModelService)
  private
    FFrameworkServices: IFrameworkServices; //可通过该服务调用其它模块服务和框架服务
  protected
    procedure SeparateDataAndParams(var Params: TdkHashTools; Data: OleVariant);
    function InnerOperator(OwnId: Cardinal; ActionIndex: Integer; var Data, Msg: OleVariant):

HResult; virtual;
    function GetMsg(OwnId: Cardinal; MsgID: Integer): WideString;
    function GetSql(OwnId: Cardinal; SqlID: Integer): WideString;

    //获取更新表信息
    function GetUpdateInfo(OwnId: Cardinal; FId: Integer): WideString;
  public
    constructor Create();
    destructor Destroy(); override;
    {IModelService Implement}
    function ProcessData(OwnId: Cardinal; ActionIndex: Integer; var Data, Msg: OleVariant):

HResult; stdcall;
    function CloseModel(): HResult; stdcall;
    {IModelService Implement}//

  public
    class function ItSelf: TModelService; virtual;
    property FrameworkServices: IFrameworkServices read FFrameworkServices write

FFrameworkServices;
  end;
 
2005-01-21 16:17:09 /:>D10.天地弦(185511468)
这个类

2005-01-21 16:17:19 /:>D10.天地弦(185511468)
    {IModelService Implement}
    function ProcessData(OwnId: Cardinal; ActionIndex: Integer; var Data, Msg: OleVariant):

HResult; stdcall;
    function CloseModel(): HResult; stdcall;        {IModelService Implement}

2005-01-21 16:17:24 /:>D10.天地弦(185511468)
看这一部分就行了

2005-01-21 16:17:31 /:>D10.天地弦(185511468)
    function ProcessData(OwnId: Cardinal; ActionIndex: Integer; var Data, Msg: OleVariant):

HResult; stdcall;

2005-01-21 16:17:59 /:>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; 

2005-01-21 16:18:27 西门吹风㊣(48542332)
回到中间层了

2005-01-21 16:19:10 /:>D10.天地弦(185511468)
中间层这样
result := TFrameworkServices.ItSelf[ID].ModelService[ModuleIndex].ProcessData(Id, ActionIndex,

Data, Msg) = S_OK;
实质上就是执行了TModelService.ProcessData

2005-01-21 16:19:16 /:>D10.天地弦(185511468)
不用回

2005-01-21 16:19:37 /:>D10.天地弦(185511468)
我贴一下中间层接到命令执行的那一段

2005-01-21 16:20:03 /:>D10.天地弦(185511468)
实质上就是执行了模块里面TModelService.ProcessData这个函数

2005-01-21 16:20:26 /:>D10.天地弦(185511468)
大家都明白吧

2005-01-21 16:22:12 /:>D10.天地弦(185511468)
TFrameworkServices.ItSelf[ID].ModelService[ModuleIndex]==>是找到接口。
执行接口方法实际上是执行实现该接口类的方法

这应该是比较好理解的

2005-01-21 16:23:05 西门吹风㊣(48542332)
继续

2005-01-21 16:23:05 /:>D10.天地弦(185511468)
乾隆(7891551) 16:22:07
我来晚了,现在一点都听不懂了,好着急啊 ==》没有复习一下。隔得太久了,可能淡忘了


2005-01-21 16:23:25 /:>D10.天地弦(185511468)
function TModelService.ProcessData(OwnId: Cardinal; ActionIndex: Integer; var Data,
  Msg: OleVariant): HResult;
begin
  result := InnerOperator(OwnId, ActionIndex, Data, Msg);
end;

2005-01-21 16:24:26 /:>D10.天地弦(185511468)
模块收到命令后,要执行的函数是哪一个函数

2005-01-21 16:25:01 /:>D10.天地弦(185511468)
模块收到命令后,要执行的函数是哪一个函数 

2005-01-21 16:25:18 西门吹风㊣(48542332)
 result := InnerOperator(OwnId, ActionIndex, Data, Msg);


2005-01-21 16:25:39 /:>D10.天地弦(185511468)
InnerOperator(OwnId, ActionIndex, Data, Msg); 

2005-01-21 16:25:50 /:>D10.天地弦(185511468)
这个函数

2005-01-21 16:25:54 /:>D10.天地弦(185511468)
看看这个函数

2005-01-21 16:26:03 乾隆(7891551)

2005-01-21 16:26:11 /:>D10.天地弦(185511468)
贴出来

2005-01-21 16:26:37 西门吹风㊣(48542332)
function TModelService.InnerOperator(OwnId: Cardinal; ActionIndex: Integer; var Data,
  Msg: OleVariant): HResult;
begin
end;

2005-01-21 16:26:48 /:>D10.天地弦(185511468)
不是贴原型

2005-01-21 16:26:53 西门吹风㊣(48542332)
function InnerOperator(OwnId: Cardinal; ActionIndex: Integer; var Data, Msg: OleVariant):

HResult; virtual;

2005-01-21 16:27:09 /:>D10.天地弦(185511468)
可以看到这个函数是一个virtual函数

2005-01-21 16:27:15 西门吹风㊣(48542332)
 virtual; 

2005-01-21 16:27:23 /:>D10.天地弦(185511468)
大家都知道virtual;的作用吧

2005-01-21 16:27:41 乾隆(7891551)
知道

2005-01-21 16:27:44 乾隆(7891551)
哈哈

2005-01-21 16:27:46 西门吹风㊣(48542332)
虚的 man最怕的[:P]

2005-01-21 16:27:59 /:>D10.天地弦(185511468)
是用来实现多态的东东了,上次测试还考了

2005-01-21 16:28:10 乾隆(7891551)
就是后面可以OVERRIDE

2005-01-21 16:28:22 西门吹风㊣(48542332)
Y~

2005-01-21 16:28:43 /:>D10.天地弦(185511468)
好这里我们来看看模块(DLL)是导出的哪一个类来实现IModelService的

2005-01-21 16:29:03 /:>D10.天地弦(185511468)
找到的贴一下

2005-01-21 16:29:21 西门吹风㊣(48542332)

function GetModelService: IModelService; //获取模块服务接口
var
  AModelService: TModelService;
begin
  AModelService := TSelfService.ItSelf;
  result := IModelService(AModelService);
end;

2005-01-21 16:29:35 乾隆(7891551)
西门学的好快啊

2005-01-21 16:30:04 /:>D10.天地弦(185511468)
看到上面西门贴的那段,

2005-01-21 16:30:13 /:>D10.天地弦(185511468)
是TSelfService

2005-01-21 16:31:03 /:>D10.天地弦(185511468)
    result := TFrameworkServices.ItSelf[ID].ModelService[ModuleIndex].ProcessData(Id,

ActionIndex, Data, Msg) = S_OK;
//执行的应该是
TSelfService.ItSelf.ProcessData这个方法

2005-01-21 16:32:28 西门吹风㊣(48542332)
unit MLIntsImp; 

2005-01-21 16:32:45 /:>D10.天地弦(185511468)
 因为TSelfService.ProcessData就是调用InnerOperator来处理数据,现在看看
  TSelfSerive这个类的InnerOperator方法,他重载了TModelService的InnerOperator方法

2005-01-21 16:33:01 /:>D10.天地弦(185511468)
var
  FParams: tdkHashTools;
begin
  SeparateDataAndParams(FParams, Data);
  case ActionIndex of
    aiAccountMgr:
      begin
        result := AccountMgr(OwnId, FParams, Data, Msg);
      end;
    aiTest:
      begin
        result := Test(Data); //
      end;
    aiGetTestData: result := GetTestData(Data);
    aiSetTestData: result := SetTestData(Data);
  else    //子类没有处理,则交由父类进行处理
    Result := inherited InnerOperator(OwnId, ActionIndex, Data, Msg);
  end;
  FParams.Free;

2005-01-21 16:33:06 /:>D10.天地弦(185511468)
function TSelfService.InnerOperator(OwnId: Cardinal; ActionIndex: Integer; var Data,
  Msg: OleVariant): HResult;
var
  FParams: tdkHashTools;
begin
  SeparateDataAndParams(FParams, Data);
  case ActionIndex of
    aiAccountMgr:
      begin
        result := AccountMgr(OwnId, FParams, Data, Msg);
      end;
    aiTest:
      begin
        result := Test(Data); //
      end;
    aiGetTestData: result := GetTestData(Data);
    aiSetTestData: result := SetTestData(Data);
  else    //子类没有处理,则交由父类进行处理
    Result := inherited InnerOperator(OwnId, ActionIndex, Data, Msg);
  end;
  FParams.Free;
end;

2005-01-21 16:34:17 /:>D10.天地弦(185511468)
至此,中间层的任务可以告一段落了,接下来的事情应该由模块看情况进行处理了

2005-01-21 16:35:34 西门吹风㊣(48542332)
继续

2005-01-21 16:36:21 /:>D10.天地弦(185511468)
OK。模块处理数据后,要返回给客户端的数据,包装好放到Data里面,有什么口信放到Msg里面,准备回航,捎

给客户端

2005-01-21 16:36:59 /:>D10.天地弦(185511468)
飞机启航回去了

2005-01-21 16:37:16 /:>D10.天地弦(185511468)
完了,这个中间层框架讲完了

2005-01-21 16:37:26 /:>D10.天地弦(185511468)
任务完成了

2005-01-21 16:38:27 乾隆(7891551)
虽然没听懂,但知道讲的很好。好着急啊

2005-01-21 16:38:34 /:>D10.天地弦(185511468)
估计听懂的人不多

2005-01-21 16:38:44 乾隆(7891551)
太好了,简直给我信心

2005-01-21 16:38:48 /:>D10.天地弦(185511468)
因为,忘记上堂课东西了


2005-01-21 16:40:23 /:>D10.天地弦(185511468)
再回忆一下,整个流程

2005-01-21 16:41:01 /:>D10.天地弦(185511468)
客户端向服务器发送命令

2005-01-21 16:41:03 乾隆(7891551)
好,开始回忆

2005-01-21 16:41:24 b7.leo(122045231)
d3在吗

2005-01-21 16:41:52 B2.TCP INFO(31329846)
AccountMgr主要是做什么的

2005-01-21 16:42:23 西门吹风㊣(48542332)
陛下?服务端接下来做什么

2005-01-21 16:42:24 /:>D10.天地弦(185511468)
客户端向-->服务器发送命令-->TFrameworkServices.ItSelf[ID].ModelService[ModuleIndex]中间层找到模块

提供的接口

2005-01-21 16:42:46 西门吹风㊣(48542332)
AccountMgr 帐套管理

2005-01-21 16:42:59 /:>D10.天地弦(185511468)
B2.TCP INFO(31329846) 16:41:52
AccountMgr主要是做什么的 ==>是一个基本模块,管理帐套的

2005-01-21 16:43:01 乾隆(7891551)
服务端开始执行啊相应的方法啊

2005-01-21 16:43:25 B2.TCP INFO(31329846)
和TestModel.dll没什么区别吧,都是模块

2005-01-21 16:43:33 /:>D10.天地弦(185511468)
是的

2005-01-21 16:43:55 /:>D10.天地弦(185511468)
都是模块,要扩展功能,就是添加模块就行了

2005-01-21 16:44:13 乾隆(7891551)
什么叫帐套啊,这个我都不懂
 
2005-01-21 16:44:22 /:>D10.天地弦(185511468)
其实整个思路是很简单的,

2005-01-21 16:45:10 乾隆(7891551)
整个思路再说次,我就学会个这就知足了

2005-01-21 16:45:40 /:>D10.天地弦(185511468)
中间层就是根据客户端发过来的命令,然后告诉模块客户端要你处理这个命令,快点处理好,交给客户端

2005-01-21 16:46:26 熊科智(65464106)
中间件也是这个意思吗?

2005-01-21 16:46:40 乾隆(7891551)
是,好简单。可做起来就复杂了

2005-01-21 16:47:08 /:>D10.天地弦(185511468)
熊科智(65464106) 16:46:26
中间件也是这个意思吗? ==>是做这种事的

2005-01-21 16:47:21 熊科智(65464106)
哦 

2005-01-21 16:47:22 /:>D10.天地弦(185511468)
我讲解的是我做的这个框架

2005-01-21 16:47:32 湖北人(364076660)
可否讲一下  TUsers.Users.Add(CurrentUser); //添加至用户列表
里面具体怎么工作的,[:L]

2005-01-21 16:47:46 D8。飘尘(43745429)
D10你的中间层有机会过来交流一下了

2005-01-21 16:48:01 /:>D10.天地弦(185511468)
湖北人(364076660) 16:47:32
可否讲一下  TUsers.Users.Add(CurrentUser); //添加至用户列表
里面具体怎么工作的,[:L] ==》上次讲过了

2005-01-21 16:48:10 /:>D10.天地弦(185511468)
D8。飘尘(43745429) 16:47:46
D10你的中间层有机会过来交流一下了==》好啊

2005-01-21 16:48:20 /:>D10.天地弦(185511468)
不知道什么时候有机会

2005-01-21 16:48:37 /:>D10.天地弦(185511468)
TUsers.Users==》是得到一个TUsers实例

2005-01-21 16:48:41 乾隆(7891551)
书上老说三层中间层要把业务抽象成一个个组建,就是说做成一个个接口的意思吧,更通俗说就是做成一个个

类中的方法,供调用对吧

2005-01-21 16:49:14 A3.武稀松(42088303)
他说的组件指服务

2005-01-21 16:49:30 乾隆(7891551)
我们能不能从最基本的来讲大家学习下,比如从类讲,高手们有热心人吗

2005-01-21 16:50:32 /:>D10.天地弦(185511468)
湖北人==》叫西门亲自说给你听听

2005-01-21 16:52:03 B2.TCP INFO(31329846)
D10你的模块在哪加载的

2005-01-21 16:52:24 B2.TCP INFO(31329846)
FModels := TModels.Create(false);   //自己负责释放对象

2005-01-21 16:52:41 /:>D10.天地弦(185511468)
是由TModel来加载

2005-01-21 16:53:15 /:>D10.天地弦(185511468)
TModels是负责管理已装入的模块

2005-01-21 16:53:16 B2.TCP INFO(31329846)
TModel在哪创建的?

2005-01-21 16:53:26 /:>D10.天地弦(185511468)
FModels.Models[i]

2005-01-21 16:53:35 /:>D10.天地弦(185511468)
如果找不到就开始创建

2005-01-21 16:54:02 /:>D10.天地弦(185511468)
function TModels.GetModelFromIndex(Index: Integer): TModel;
var
  i: integer;
  TmpModel: TModel;
begin
  result := nil;
  for i := 0 to Count - 1 do
  begin
    if TModel(Items[i]).ModelIndex = index then
    begin
      result := TModel(Items[i]);
      break;
    end;
  end;

2005-01-21 16:54:13 /:>D10.天地弦(185511468)
    property Model[index: Integer]: TModel read GetModelFromIndex; default;


-----A1老大提问...

2005-01-21 15:42:40 A1.笑熬糨糊(2282902)
A3,来讨论一个接口的问题不?

2005-01-21 15:44:51 D3天之痕若虹(86278566)
听..

2005-01-21 15:45:55 西门吹风㊣(48542332)
源码空间不知道有没有

2005-01-21 15:46:11 C03.MUSIC(281361369)
地址多少?

----------------A1老大提问题
2005-01-21 15:46:17 /:>D10.天地弦(185511468)
来了
2005-01-21 15:46:44 /:>D10.天地弦(185511468)
好,出一题

2005-01-21 15:46:59 A1.笑熬糨糊(2282902)
D10,我来提问你好了。

2005-01-21 15:47:11 /:>D10.天地弦(185511468)

2005-01-21 15:47:13 /:>D10.天地弦(185511468)
老大来

2005-01-21 15:47:23 A1.笑熬糨糊(2282902)
你用的也是DLL导出接口,对不?

2005-01-21 15:47:46 /:>D10.天地弦(185511468)
是的

2005-01-21 15:47:55 A1.笑熬糨糊(2282902)
好,问题来了。

2005-01-21 15:48:03 /:>D10.天地弦(185511468)
[:L]

2005-01-21 15:48:09 /:>D10.天地弦(185511468)
什么问题

2005-01-21 15:48:27 A1.笑熬糨糊(2282902)
(一)。DLL的Exception你如何处理?

2005-01-21 15:48:53 /:>D10.天地弦(185511468)
你好像讲过

2005-01-21 15:49:10 A1.笑熬糨糊(2282902)
你讲回给我听听

2005-01-21 15:49:31 A1.笑熬糨糊(2282902)
讲不好你的课就白听了。

2005-01-21 15:50:26 /:>D10.天地弦(185511468)
三层中的一些“灾难性错误”的产生原因

2005-01-21 15:50:27 A1.笑熬糨糊(2282902)
这是比较简单的问题,下面还有进阶的问题。

2005-01-21 15:50:44 /:>D10.天地弦(185511468)
是说灾难性错误的时候讲的

2005-01-21 15:50:57 A3.武稀松(42088303)
估计D10在那里流汗呢[;P]

2005-01-21 15:51:03 A1.笑熬糨糊(2282902)
算你还有一些记性。

2005-01-21 15:51:05 西门吹风㊣(48542332)
[;P]

2005-01-21 15:51:40 A1.笑熬糨糊(2282902)
好,当时我讲的是如何处理的?

2005-01-21 15:52:17 /:>D10.天地弦(185511468)
用try的

2005-01-21 15:52:24 /:>D10.天地弦(185511468)
用踹

2005-01-21 15:52:36 西门吹风㊣(48542332)
[:D]

2005-01-21 15:52:52 A1.笑熬糨糊(2282902)
好,第一题算你过关了。

2005-01-21 15:53:06 /:>D10.天地弦(185511468)
[:L]

2005-01-21 15:53:06 A1.笑熬糨糊(2282902)
第二题,难度加深一些了。

2005-01-21 15:55:55 A3.武稀松(42088303)
肯定了

2005-01-21 15:55:57 西门吹风㊣(48542332)
有可能

2005-01-21 15:56:17 /:>D10.天地弦(185511468)
死QQ

2005-01-21 15:56:18 A3.武稀松(42088303)
偶徒弟查百渡的能耐更大.差点靠不住她

2005-01-21 15:56:32 /:>D10.天地弦(185511468)
[:L]刚刚QQ死了

2005-01-21 15:56:39 /:>D10.天地弦(185511468)
老大,第二个问题是什么

2005-01-21 15:56:48 A1.笑熬糨糊(2282902)
晕,白打字了。。。

2005-01-21 15:57:01 /:>D10.天地弦(185511468)
QQ,断开了,发不出信息

2005-01-21 15:57:02 D3天之痕若虹(86278566)
2282902(A1.笑熬糨糊) 15:53:42
当Interface中也出现Exception时,如何处理?

2005-01-21 15:57:08 A3.武稀松(42088303)
A1算了,要不让D10讲下去吧

2005-01-21 15:57:37 /:>D10.天地弦(185511468)
2282902(A1.笑熬糨糊) 15:53:42
当Interface中也出现Exception时,如何处理? 

2005-01-21 15:57:50 /:>D10.天地弦(185511468)
raise错误?

2005-01-21 15:57:51 A1.笑熬糨糊(2282902)
第二题答不上的话,第三题就算了。 

2005-01-21 15:57:58 /:>D10.天地弦(185511468)
raise错误?

2005-01-21 15:58:06 /:>D10.天地弦(185511468)
报上级?

2005-01-21 15:58:35 A1.笑熬糨糊(2282902)
不是raise的错误是谁的?

2005-01-21 15:58:36 /:>D10.天地弦(185511468)
今天的课算了吧,好像听的人太少了。

2005-01-21 15:58:49 /:>D10.天地弦(185511468)
[:L]

2005-01-21 15:59:01   冷俊(76437853)
我在看呢
 

2005-01-21 15:59:09 B2.TCP INFO(31329846)
[:)]

2005-01-21 15:59:11 A3.武稀松(42088303)
都在听

2005-01-21 15:59:12 B3.Locet(2212967)
在在````

2005-01-21 15:59:18 D3天之痕若虹(86278566)
[share]

2005-01-21 15:59:20 A3.武稀松(42088303)
不过很多家伙都在潜水

2005-01-21 15:59:23 湖北人(364076660)
[strong]

2005-01-21 15:59:41 D5.笑看风云(22308456)
7CF483

2005-01-21 15:59:42 /:>D10.天地弦(185511468)
2282902(A1.笑熬糨糊) 15:53:4
当Interface中也出现Exception时,如何处理?==>找到错误,踹开错误

2005-01-21 16:00:04 一无所有/bei(36581474)
[:P]师徒一问一答
的课比较好听些

2005-01-21 16:00:06 A1.笑熬糨糊(2282902)
算了,等你讲完课再踹你好了。

2005-01-21 16:00:14 /:>D10.天地弦(185511468)
[:L]

2005-01-21 16:00:16 A3.武稀松(42088303)
这样就对了

2005-01-21 16:00:25 A3.武稀松(42088303)
D10继续吧.你师父饶了你了

2005-01-21 16:00:40 /:>D10.天地弦(185511468)
那继续了

2005-01-21 16:00:42 /:>D10.天地弦(185511468)
呵呵

2005-01-21 16:01:08 /:>D10.天地弦(185511468)
讲到哪里了

2005-01-21 16:01:12 A1.笑熬糨糊(2282902)
不过,得和你说,这三个问题不算理好,你的那个架构就不好用了。

2005-01-21 16:01:14 A3.武稀松(42088303)
[:L]

2005-01-21 16:01:39 A1.笑熬糨糊(2282902)
处理

2005-01-21 16:01:43 /:>D10.天地弦(185511468)
好,等一下,私底下被你踹几下

2005-01-21 16:01:48 /:>D10.天地弦(185511468)
[:D]

2005-01-21 16:01:59 TY(123612838)
[图片]

2005-01-21 16:02:10 A3.武稀松(42088303)
[:T]

2005-01-21 16:02:32 A3.武稀松(42088303)
TY不要捣乱,我们这讲课呢

2005-01-21 16:02:48 西门吹风㊣(48542332)
有组织,无纪律

2005-01-21 16:03:18 /:>D10.天地弦(185511468)
OK

2005-01-21 16:03:20 /:>D10.天地弦(185511468)
开始

2005-01-21 16:03:37 A3.武稀松(42088303)
好,断点续传

2005-01-21 16:03:47 西门吹风㊣(48542332)
呵呵

---讲完没有讲完的课

---讲完没有讲完的课

2005-01-21 16:54:18 A1.笑熬糨糊(2282902)
D10,准备好了吗?

2005-01-21 16:54:25 /:>D10.天地弦(185511468)
准备好了

2005-01-21 16:54:37 /:>D10.天地弦(185511468)
做好了被踹的准备

2005-01-21 16:54:41 A1.笑熬糨糊(2282902)
好,先回答我第二个问题。

2005-01-21 16:54:42 西门吹风㊣(48542332)
[:D]

2005-01-21 16:55:16 B1.斜阳(249208513)
呵呵A1还记着呢,挺记仇的噢![:D]

2005-01-21 16:55:21 /:>D10.天地弦(185511468)
如果接口中有异常,怎么处理

2005-01-21 16:55:23 /:>D10.天地弦(185511468)
是不是

2005-01-21 16:55:26 A1.笑熬糨糊(2282902)
对。

2005-01-21 16:55:51 A1.笑熬糨糊(2282902)
应该说如果接口抛出异常,怎么处理 

2005-01-21 16:55:54 /:>D10.天地弦(185511468)
这个接口中有异常

2005-01-21 16:56:20 /:>D10.天地弦(185511468)
哦,让接口用一个方法抛出异常

2005-01-21 16:56:21 /:>D10.天地弦(185511468)
是不是

2005-01-21 16:56:32 A1.笑熬糨糊(2282902)
也可以这样说。

2005-01-21 16:57:04 B1.斜阳(249208513)
他要是敢有异常,就把他“腿打折、毛拔净,翅膀挂在灯管上”[:D]

2005-01-21 16:57:05 /:>D10.天地弦(185511468)
AInts.RaiseError

2005-01-21 16:57:13 /:>D10.天地弦(185511468)
[:L]

2005-01-21 16:57:18 西门吹风㊣(48542332)
[;-D]

2005-01-21 16:57:38 A1.笑熬糨糊(2282902)
249208513(B1.斜阳) 16:57:04
D10要是敢有异常,就把D10“腿打折、毛拔净,翅膀挂在灯管上”[:D] 

2005-01-21 16:58:18 /:>D10.天地弦(185511468)
那就在接口里面定义一个方法,然后在实现的类里面实现这个方法
raise expcetion.create('出错了,救命啦?')

2005-01-21 16:58:22 /:>D10.天地弦(185511468)
这样行不行

2005-01-21 16:58:23 A1.笑熬糨糊(2282902)
D10的方向倒了。

2005-01-21 16:58:26 B1.斜阳(249208513)
不关我的事啊

2005-01-21 16:58:31 /:>D10.天地弦(185511468)
[:L]

2005-01-21 16:58:38 /:>D10.天地弦(185511468)
这么多人踹

2005-01-21 16:58:44 A1.笑熬糨糊(2282902)
我是让你处理异常,不是抛出异常。

2005-01-21 16:59:21 /:>D10.天地弦(185511468)
处理异常,不是用踹的可以了么

2005-01-21 16:59:45 A1.笑熬糨糊(2282902)
大概你也是想我踹你了。

2005-01-21 17:00:23 /:>D10.天地弦(185511468)
老大,你给我说说

2005-01-21 17:01:02 A1.笑熬糨糊(2282902)
如果是同一个宿主,用Try可能还可以,如果不同宿主,就很麻烦了。

2005-01-21 17:01:24 /:>D10.天地弦(185511468)
同一个宿主

2005-01-21 17:01:39 /:>D10.天地弦(185511468)
是不是说在同一个Application 里面

2005-01-21 17:01:51 A1.笑熬糨糊(2282902)
同一个application

2005-01-21 17:02:27 /:>D10.天地弦(185511468)
那模块DLL算不算是同一个Application

2005-01-21 17:02:53 A1.笑熬糨糊(2282902)
如果不是DLL+BPL的话,就不算了。

2005-01-21 17:04:08 /:>D10.天地弦(185511468)
如果是B模块->调用A模块

2005-01-21 17:04:29 /:>D10.天地弦(185511468)
A,B就是你所说的两个宿主了

2005-01-21 17:05:01 /:>D10.天地弦(185511468)
如果在A里产生错误,B踹就会扭到脚?


2005-01-21 17:05:24 A1.笑熬糨糊(2282902)
对。

2005-01-21 17:05:51 A1.笑熬糨糊(2282902)
如果是普通函数,问题不大

2005-01-21 17:05:55 /:>D10.天地弦(185511468)
那应该怎么办呢

2005-01-21 17:06:00 A1.笑熬糨糊(2282902)
如果是接口,问题就大了。

2005-01-21 17:06:09 /:>D10.天地弦(185511468)
[:L]

2005-01-21 17:06:16 B1.斜阳(249208513)
让异常能波及的范围尽量小

2005-01-21 17:06:16 /:>D10.天地弦(185511468)
还没有试过

2005-01-21 17:06:23 紫风铃 /mn(512551)
我刚才睡醒

2005-01-21 17:06:27 紫风铃 /mn(512551)
写着写着睡着了

2005-01-21 17:06:34 /:>D10.天地弦(185511468)
在一个宿舍主把它给搞定

2005-01-21 17:06:38 A1.笑熬糨糊(2282902)
常见的是“灾难性错误”的产生原因

2005-01-21 17:06:44 /:>D10.天地弦(185511468)
[:L]

2005-01-21 17:07:37 /:>D10.天地弦(185511468)
function TModelService.ProcessData(OwnId: Cardinal; ActionIndex: Integer; var Data,
  Msg: OleVariant): HResult;
begin
  try
    result := InnerOperator(OwnId, ActionIndex, Data, Msg);
  except
    result := S_FALSE;
  end;
end;

2005-01-21 17:07:49 /:>D10.天地弦(185511468)
老大,这个是一个宿主的入口

2005-01-21 17:08:00 /:>D10.天地弦(185511468)
这个是不是在一个宿主里解决了

2005-01-21 17:08:27 A1.笑熬糨糊(2282902)
InnerOperator是不是调用接口的?

2005-01-21 17:08:45 /:>D10.天地弦(185511468)
不是

2005-01-21 17:08:50 /:>D10.天地弦(185511468)
是内部一个函数

2005-01-21 17:09:02 /:>D10.天地弦(185511468)
ProcessData是实现的一个接口函数

2005-01-21 17:10:12 /:>D10.天地弦(185511468)
??

2005-01-21 17:10:14 /:>D10.天地弦(185511468)
老大

2005-01-21 17:10:30 A1.笑熬糨糊(2282902)
ProcessData是DLL里的?

2005-01-21 17:10:40 /:>D10.天地弦(185511468)
是的

2005-01-21 17:12:00 A1.笑熬糨糊(2282902)
那你的异常都已经给截止了,反应不到主程序。

2005-01-21 17:13:14 A1.笑熬糨糊(2282902)
我的意思是EXE知道DLL已经抛出异常了,EXE和DLL要如何处理这个异常。

2005-01-21 17:13:27 /:>D10.天地弦(185511468)
中间层是调用这个函数来处理业务逻辑的

2005-01-21 17:13:48 A3.武稀松(42088303)
出了错怎么知道呢

2005-01-21 17:14:35 /:>D10.天地弦(185511468)
返回S_FALSE

2005-01-21 17:14:38 /:>D10.天地弦(185511468)
呵呆

2005-01-21 17:14:56 /:>D10.天地弦(185511468)
老大,你说应该怎么样做

2005-01-21 17:15:13 A1.笑熬糨糊(2282902)
DLL中普通函数的异常并不可怕,怕的是DLL中导出的接口抛出的异常。

2005-01-21 17:15:44 /:>D10.天地弦(185511468)
那样,是有点可怕,DA8C0A

2005-01-21 17:16:00 B2.TCP INFO(31329846)
目前系统中运行着A,B程序
A.exe 调用 c.dll
B.exe 调用 c.dll
此时c.dll抛出一个异常
A1,是这个意思吗?

2005-01-21 17:16:34 A1.笑熬糨糊(2282902)
对。

2005-01-21 17:17:51 西门吹风㊣(48542332)
异常结束,再运行[;-D]

2005-01-21 17:18:07 /:>D10.天地弦(185511468)
[:L]

2005-01-21 17:18:10 A1.笑熬糨糊(2282902)
最严重的异常是:
A.exe 调用 B.dll (接口) ,B.dll 调用 c.dll (接口),  结果 c.dll 抛出异常,这时,如果不处理的话,A和

B都会Die

2005-01-21 17:18:53 B1.斜阳(249208513)
c怎么这么坏啊[:D]

2005-01-21 17:19:18 B1.斜阳(249208513)
死了还拉一大堆垫背的

2005-01-21 17:19:31 A1.笑熬糨糊(2282902)
[shake]

2005-01-21 17:19:35 /:>D10.天地弦(185511468)
A.exe 调用 B.dll (接口) ,B.dll 调用 c.dll (接口),  结果 c.dll 抛出异常,这时,如果不处理的话,A和

B都会Die ==>我用这种情况

2005-01-21 17:20:30 B2.TCP INFO(31329846)
那就是说 接口调用 最好在实现内部处理异常了

2005-01-21 17:20:40 A1.笑熬糨糊(2282902)

2005-01-21 17:21:18 A1.笑熬糨糊(2282902)
但,有些异常是不得不给回调用它的程序的。

2005-01-21 17:21:39 B2.TCP INFO(31329846)
这个没试过,回去试试[:)]

2005-01-21 17:22:07 A1.笑熬糨糊(2282902)
别把你的电脑折腾坏了。[:D]

2005-01-21 17:22:16 西门吹风㊣(48542332)
[;P]

2005-01-21 17:22:58 B2.TCP INFO(31329846)
[:D],"垃圾"电脑没事

2005-01-21 17:27:52 西门吹风㊣(48542332)
各位观众:又到时间讲Bye~ Bye ~!

版权声明:本文内容由阿里云实名注册用户自发贡献,版权归原作者所有,阿里云开发者社区不拥有其著作权,亦不承担相应法律责任。具体规则请查看《阿里云开发者社区用户服务协议》和《阿里云开发者社区知识产权保护指引》。如果您发现本社区中有涉嫌抄袭的内容,填写侵权投诉表单进行举报,一经查实,本社区将立刻删除涉嫌侵权内容。

相关文章
为什么APF框架初始化时有两个一模一样的analyticConfiguration请求
为什么APF框架初始化时有两个一模一样的analyticConfiguration请求
0 0
WCF 自定义工具错误: 无法生成服务引用“{0}”的代码
作者:jiankunking 出处:http://blog.csdn.net/jiankunking 背景: 今天同一解决方案项目之间添加WCF引用的时候,突然报出了下面的错误 错误信息: 错误 4 自定义工具错误: 无法生成服务引用“TestA”的代码。请检查其他错误和警告信息,了解详细信息。 E:\WorkSpace\DataModelTools\src\Client\Service
1472 0
Winform 调用WCF客户端,所有服务端方法在运行的时候均找不到(编译没有问题)
作者:jiankunking 出处:http://blog.csdn.net/jiankunking  今天在开发过程中遇到了一个很恶心的问题,就是Form窗体ShowDialog的时候,直接报出下面的错误: 有关调用实时(JIT)调试而不是此对话框的详细信息, 请参见此消息的结尾。 ************** 异常文本 ************** System.MissingMe
1057 0
WCF服务全局统一异常处理机制
转载:http://www.csframework.com/archive/1/arc-1-20150109-2193.htm 服务端增加WCF服务全局异常处理机制,任一WCF服务或接口方式出现异常,将统一调用WCF_ExceptionHandler.ProvideFault方法,因此不需要每个方法使用try catch写法。
763 0
C++中消息自动派发之二 About IDL解析器
  前一篇blog中讲了如何在C++中实现消息的自动派发,而关键点在于如何实现通过IDL文件自动生成msg_dispatcher模板类。有几个网友提醒我idl解析器会比较难写,事实却是如此。我第一个版本的idl解析器本来只是想做demo只用。
570 0
+关注
文章
问答
文章排行榜
最热
最新
相关电子书
更多
fibjs 模块重构从回调到协程--陈垒
立即下载
fibjs 模块重构从回调到协程
立即下载
面向失败设计
立即下载