可重复使用程序代码 + 可重复使用模型 = 更高的生产力

可重复使用程序代码 + 可重复使用模型 = 更高的生产力

许多朋友最近见到我的时候经常出现的话题之一就是ECO，他们告诉我ECO非常地令人兴奋，他们都非常想要试试ECO，但是令他们困扰的是除了中文参考数据不多之外，就是想询问我ECO的可使用性。例如他们很怕ECO只能使用在BDS 2006的应用程序中，其他的应用，例如MS的C#，VB.NET，或是WinCE是否能够使用。我告诉他们未来ECO会支持WinCE，此外ECO是纯粹的.NET应用程序，其他的.NET语言或是应用程序当然也可以使用，甚至连Win32的应用程序都可以使用ECO提供的服务。怎么做? 那当然就是使用Web Services了。

让我简单地用一个Win32的应用程序范例来说明如何使用ECO服务吧。下图是我经常使用的一个范例业务逻辑模型，请各位注意的是，我甚至可以使用OCL来定义类的方法运算，这样一来，这个类图就更容易移植到其他平台，例如Java平台。

 

现在在BDS 2006中建立一个ECO ASP.NET Web Service应用程序（见下图）：

 

然后在产生的Web Services中（*.asmx文件）加入如下的Web Services方法：

[WebMethod]

function GetDevCoSeminarCount : Integer;

[WebMethod]

function GetDevCoSeminar : TDevCoSeminarList;

然后实现如下：

function TDevCoSeminarService.GetDevCoSeminar: TDevCoSeminarList;

const

  SEMINARCOUNT = 'DevCoSeminar.allInstances';

var

  OclService: IOclService;

  ResultElement: IElement;

begin

  OclService := EcoSpace.GetEcoService(typeof(IOclService)) as IOclService;

  ResultElement := OclService.EvaluateAndSubscribe(nil, SEMINARCOUNT, nil, nil);

  Result := CreateDevCoSeminarDTOs(ResultElement);

  DoneWithEcoSpace;

end;

 

function TDevCoSeminarService.CreateDevCoSeminarDTOs(

  ResultElement: IElement): TDevCoSeminarList;

var

  al : TDevCoSeminarList;

  anElement : IElement;

  aSeminar : DevCoSeminar;

  aDTO : TDevCoSeminar;

  iIndex : Integer;

begin

  SetLength(al, ResultElement.GetAsCollection.Count);

  iIndex := 0;

  for anElement in  ResultElement.GetAsCollection do

  begin

    aSeminar := anElement.AsObject as DevCoSeminar;

    aDTO.FName := aSeminar.Name;

    aDTO.FLocation := aSeminar.Location;

    aDTO.FSrDate := aSeminar.srDate.ToLongDateString;

    aDTO.FMaxCount := aSeminar.MaxCount;

    al[iIndex] := aDTO;

    Inc(iIndex);

  end;

  Result := al;

end;

接着编译这个ECO Web Service应用程序，等待稍后的Win32客户端应用程序调用，使用它提供的服务。

现在我再使用Delphi 7（或是BDS 2006中的Delphi For Win32）建立一个VCL Form应用程序，启动WSDL Importer向导输入刚才开发的ECO Web Service应用程序的WSDL：

 

接着在VCL窗体中实现如下的程序代码来调用ECO Web Service应用程序：

procedure TForm1.Button1Click(Sender: TObject);

var

  aWS : TDevCoSeminarServiceSoap;

  wsResult : ArrayOfTDevCoSeminar;

  icount : Integer;

  aSeminar : TDevCoSeminar;

  sData : String;

begin

  aWS := GetTDevCoSeminarServiceSoap;

  edtCount.Text := IntTostr(aWS.GetDevCoSeminarCount);

  wsResult := aWS.GetDevCoSeminar;

  for iCount := Low(wsResult) to High(wsResult) do

  begin

    aSeminar := wsResult[iCount];

    sData := aSeminar.FName + ':' + aSeminar.FSrDate + ':' +

             aSeminar.FLocation + ':' + IntToStr(aSeminar.FMaxCount);

    ListBox1.Items.Add(sData);

  end;

end;

上面的TDevCoSeminarServiceSoap就是WSDL Importer向导封装远程Web Service应用程序的wrapper类。编译并且执行这个Delphi 7的Web Service客户端应用程序，我们可以看到如下图所示的执行结果，ECO的服务果然成功地被Delphi Win32的应用程序调用、使用了。

 

Yah, 我们在Windows 32下使用Delphi 7就完成了使用由.NET ECO/MDA/DDA实现的业务逻辑服务。ECO强大的可重复使用性再次令人印象深刻。

了解了上面的讨论之后，各位有使用VS.NET的朋友当然也可以使用VS.NET的VB.NET或是MS C#来使用ECO提供的服务了。

使用了ECO技术，ECO不但是“Write code once and Run everywhere”，甚至是“Model 你的business logic once and reuse everywhere”，“Reuse Code + Reuse Model”那不是让开发人员的生产力更为提高吗? 

 

 

         

 

 

 

 

李维先生简体版博客由博文视点陈元玉编辑负责繁转简以及版式设计，如有疑问敬请您与编辑联系，联系方式：[e-mail]