最近公司要求将一个产品的架构由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做为参数的,为了不更改调用函数不得不想了其他招。
原来的函数
begin
adoQuerySelect.SQL.Clear;
adoQuerySelect.SQL.Add(sSelectSQL);
adoQuerySelect.Open;
end ;
更改成3层后通过Webservice进行查询。WebService返回的值为XML格式数据。
想到的方法是解析XML然后生存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.
这样保持了原有接口不变。
总结:
这样的改法简单是简单,但是有很大的问题(至少安全性不高。。。)等有时间了再慢慢的更改去了。。。