文件名称:Intraweb+SuperObject+IdHTTP实现三层构架
文件大小:2.73MB
文件格式:RAR
更新时间:2016-01-25 05:24:46
superobject Intraweb idHTTP
在目前流行的三层构架RemObjects、kmbMW、RealThinClient中RealThinClient以轻量、简单博得不少Delphi使用者的青睐。这里我向大家演示的框架比RealThinClient更轻量,更简单。这就是利用Intraweb作为中间层,Indy HTTP作为客户端,SuperObject作为数据编码格式实现三层构架。这一框架将B/S结构与C/S结构处理逻辑统一在一套源代码中,用同一台服务器既提供网页服务也通过应用服务。为实现这一目标,该框架的关键技术是如何在Dataset与XML间相互转换,这里发布的压缩文件中包含TADODataset与XML相互转换的源代码: //将TADODataset转换成XML function RecordsetToXML(const ARecordset: ADOInt._Recordset; const AChangesOnly: Boolean = False; const aIncludeSchema: Boolean = True): WideString; //将XML转换成TADODataset function XMLToRecordset(const AXML: WideString): ADOInt._Recordset; //将XML变动数据转换成MS SQL的Update/Delete/Insert语句 function XMLChangesToMSSQL(const AXML, ATableName, AKeyFlds: WideString): WideString; xander.xiao@gmail.com原创作品,转载请注明
【文件预览】:
IW3Tier
----CommonFiles()
--------superobject.pas(180KB)
--------ADOToXML.pas(7KB)
----IW3Tier.groupproj(2KB)
----Project7.dpr(348B)
----Project7.res(291KB)
----ServerController.dfm(1KB)
----Readme.txt(944B)
----IW3TierClient.identcache(203B)
----Project1.res(291KB)
----UserSessionUnit.pas(1KB)
----Readme.txt.bak(940B)
----IW3TierServer.dproj(8KB)
----IW3Tier.groupproj.local(381B)
----Unit2.pas(245B)
----ClientUnit1.pas(6KB)
----Project7.dproj.local(428B)
----IW3TierClient.res(292KB)
----IW3TierServer.identcache(12KB)
----ServerUnit1.pas(253B)
----UserSessionUnit.dfm(811B)
----TEST.mdb(140KB)
----ServerController.pas(6KB)
----IW3TierServer.dpr(457B)
----IW3TierClient.dpr.bak(355B)
----ClientUnit1.dfm(6KB)
----IW3TierClient.dproj(8KB)
----IW3TierServer.dpr.bak(469B)
----IW3TierServer.res(291KB)
----IW3TierClient.exe(2.84MB)
----IW3TierServer.dproj.local(1KB)
----IW3TierClient.dproj.local(1KB)
----IW3TierServer.log(264B)
----IW3TierClient.dpr(343B)
----Project7.identcache(220B)
----ServerUnit1.dfm(365B)
----IW3TierServer.exe(4.56MB)
----Project7.dproj(8KB)
----Unit2.dfm(365B)