简简单单的2层架构变成3层

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

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

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

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

 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做为参数的,为了不更改调用函数不得不想了其他招。

    原来的函数

 

ContractedBlock.gif ExpandedBlockStart.gif 代码
 
   
procedure TDBOperate.SelectByADOQuery(sql : string ; adoQuerySelect: TADOQuery);

begin

adoQuerySelect.SQL.Clear;

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

end ;

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

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

 

 

ContractedBlock.gif ExpandedBlockStart.gif 代码
 
   
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.

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

 

 总结:

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

转载于:https://www.cnblogs.com/foolishfox/archive/2010/05/25/1743491.html

  • 0
    点赞
  • 0
    收藏
    觉得还不错? 一键收藏
  • 0
    评论

“相关推荐”对你有帮助么?

  • 非常没帮助
  • 没帮助
  • 一般
  • 有帮助
  • 非常有帮助
提交
评论
添加红包

请填写红包祝福语或标题

红包个数最小为10个

红包金额最低5元

当前余额3.43前往充值 >
需支付:10.00
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明:

1.余额是钱包充值的虚拟货币,按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载,可以购买VIP、付费专栏及课程。

余额充值