最近公司要求将一个产品的架构由2层的改成3层的（原因是：要安全审查，必须3层的架构因为数据库端口只开放给服务器），当时听了就晕过去。

   产品最初的架构是3层，后来由于在客户试用的过程中种种需求种种原因倒回到了2层架构。现在又需要更改回来，唉。。。

   后来想到了一个超级Simple的方法。幸好原来的2层架构 操作数据库都是写在一个基层类中，只需要将这个基础类拆分成2层就好了，也懒得去暴露业务逻辑接口了。直接通过WebService传送ＳＱＬ语句完事。简便是简便，带来的问题也是大的。可以直接操作数据库了。先应付好安全审查再说。ＨＯＨＯ。

　在开发过程中碰到的问题记录了一下：

　1、Delphi调用WebService时 传递到WebServcie的String参数总是为null。

    解决方法： 在Delphi导入WSDL生成的unit中增加 InvRegistry.RegisterInvokeOptions(TypeInfo(DataAccessServiceSoap), ioDocument);

   2、Delphi WebServcie传送中文时乱码

   解决方法：2者通讯都采用UTF8格式。在THTTPRIO 中的抬头声明 使用UTF8。如下：

   FHtprDataAccess.HTTPWebNode.UseUTF8InHeader := True;

  

   3、由于2层架构的基础类中 有几个查询函数采用的是adoquery做为参数的，为了不更改调用函数不得不想了其他招。

    原来的函数

 

复制代码
代码 
procedure TDBOperate.SelectByADOQuery(sql : string; adoQuerySelect: TADOQuery);

    begin

      adoQuerySelect.SQL.Clear;

      adoQuerySelect.SQL.Add(sSelectSQL);
      adoQuerySelect.Open;

    end;

复制代码

    更改成3层后通过Webservice进行查询。WebService返回的值为XML格式数据。

    想到的方法是解析XML然后生存TADODataSet。

 

 

复制代码
代码 
function TBaseDataBase.XMLToDataSet(xml: WideString): TADODataSet;
var   
  xdoc : IXMLDOMDocument;
  xdn : IXMLDOMNode;
  xdns: IXMLDOMNodeList;   
  i,j : Integer;
  tempDataSet : TADODataSet; 
begin   
  xdoc := CreateDOMDocument();
  xdoc.loadXML(xml);

  xdn := xdoc.documentElement;

  xdns:= xdoc.selectNodes('//Table');
  try
    tempDataSet := TADODataSet.Create(nil);
    if (xdns.length > 0) then
    begin
      for i := 0 to xdns.item[0].childNodes.Length - 1 do
      begin
        tempDataSet.FieldDefs.Add(xdns.item[0].childNodes[i].nodeName, ftstring, 8000);
      end;
      tempDataSet.CreateDataSet;                     //建立
      tempDataSet.Active;

      if (xdn.attributes[0].text = 'True') then
      begin

        for i := 0 to xdns.length - 1 do
        begin

          tempDataSet.Append;
          for j := 0 to xdns.item[i].childNodes.length - 1 do
          begin
            tempDataSet.FieldValues[xdns.item[i].childNodes[j].nodeName] := xdns.item[i].childNodes[j].text;
          end;
          tempDataSet.Post;
        end;
      end;
    end;
    Result := tempDataSet;
  except   
    raise;
  end;
end;
复制代码

 

 

 

    将XML结果解析成TADODataSet之后，指定adoQuery.RecordSet := TADODataSet.RecordSet.

     这样保持了原有接口不变。

 

 总结：

    这样的改法简单是简单，但是有很大的问题（至少安全性不高。。。）等有时间了再慢慢的更改去了。。。