Intraweb+SuperObject+IdHTTP构建三层控件

最新推荐文章于 2025-10-30 11:57:25 发布

原创最新推荐文章于 2025-10-30 11:57:25 发布 · 1.5k 阅读

0 ·

CC 4.0 BY-SA版权

文章标签：

#dataset #DataSet #delphi #Delphi #DELPHI #框架

Delphi 专栏收录该内容

5 篇文章

订阅专栏

本文介绍了一种比RealThinClient更轻量、更简单的三层架构实现方式，通过利用Intraweb作为中间层、IndyHTTP作为客户端、SuperObject作为数据编码，实现B/S与C/S结构处理逻辑统一在一套源代码中，同时提供了关键的Dataset与XML转换源代码。

在目前流行的三层构架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;

基于Intraweb的三层框架，前台数据存取使用TADOdataset，数据编码使用SuperObject。第2版做了如下改进：
1.启用Intraweb的Session；
2.Response改用压缩转送；
4.改进ADO与XML转换算法,使用XPath定位Schama。

下面是新的ADOToXML.Pas函数：
type
TSQLVendor = (svMSSQL, svAccess, svOracle);

function RecordsetToXML(const ARecordset: ADOInt._Recordset;
const AChangesOnly: Boolean = False;
const aIncludeSchema: Boolean = True): WideString;
function ExtractXMLSchema(const AXML: WideString): WideString;
function ExtractXMLData(const AXML: WideString): WideString;
function XMLToRecordset(const AXML: WideString;
const AXMLSchema: WideString = ''): ADOInt._Recordset;
function XMLChangesToSQLCmd(const AXMLChanges, ATableName, AKeyFlds: WideString;
const AXMLSchema: WideString = '';
const ASQLVendor: TSQLVendor = svMSSQL): WideString;

xander.xiao@gmail.com原创作品，转载请注明