背景:
1、很多情况下我们的终端与服务器是分离的,并且操作系统也可能会存在很大的不同。
2、近些年火爆的WebService技术和SaaS等概念也让我们的思想得以解放。
3、Lazarus是一款可以跨平台开发的工具,在精神上基本满足了我们Once Code愿望。
4、但Lazarus还存在很多的问题,即使原生的类、函数、过程也还会报错。
问题:
1、我需要做一个三层架构,实现WinCE(或Linux)终端进行数据采集处理。
2、涉及到跨网等情况不可能采用直连数据库的方式,而Lazarus对WebService又是一团糟。
3、我打算回到原始状态,建立三层架构(客户端、服务器、数据库)形式,客户端和服务器之间以Tcp方式进行数据交互。
4、Lazarus已经没有了TClientDataSet,经查找取而代之的是TMemDataset。
架构思路:
1、服务器接收客户端请求,进行数据(与数据库交互)的处理,处理结果以流方式进行压缩、传输。
2、客户端接收到流后进行解压、还原,进行本地化操作处理,将本地处理结果打包,发送至服务器。
核心技术:
1、Tcp传输,我采用lnet组件,因为它支持:Linux、Windows、Wince,参见我的另一个贴子,可以多线程处理事务。
2、DataSet网络传输,我打算做成XML再传,==吧想了很多方式但未实现,最后官网上看到了TMemDataset的介绍,用它解决了DataSet在服务器与客户端的类型化问题。
3、困扰了我两天的问题,下面是我写可行性测试代码关于DataSet处理的。
请各位笑纳:
procedure TFormMain.DataSetMethod();
var
DSetSource,DSetObject:TMemDataset;
streamSource,streamObject:TStream;
str:String;
begin
//发送端
//进行原始数据集的处理
DSetSource:=TMemDataset.Create(Self);
DSetSource.FieldDefs.Add('NAME',ftString,20);
DSetSource.CreateTable;
DSetSource.Open;
DSetSource.Append;
DSetSource.FieldByName('NAME').Value:='aaa';
DSetSource.Post;
DSetSource.Append;
DSetSource.FieldByName('NAME').Value:='bbb';
DSetSource.Post;
streamSource := TMemoryStream.Create;
streamObject := TMemoryStream.Create;
DSetSource.SaveToStream(streamSource);
streamSource.ReadBuffer(str, streamSource.Size); //从流读至串
DSetSource.Close;
//好了,在开始在这里写网络传输吧
//这写了很多代码
//接收端
//进行目标数据处理
streamSource.WriteBuffer(str, Length(str)); //从串写至流
DSetObject.LoadFromStream(streamSource);
DSetObject.Open;
DBGridEmployee.DataSource.DataSet:=DSetObject;
end;
欢迎各位留言交流。