客户层与应用层中传递的是OLEVARIANT.总有很别扭的感觉.

paranoia190 2006-11-22 09:01:47

不知道为什么.
大家都是怎么传的?

...全文

106 2 打赏收藏转发到动态举报

写回复

2 条回复

切换为时间正序

请发表友善的回复…

发表回复

踢踏 2006-11-22

打赏
举报

回复

习惯了就好，一直觉得OleVariant类型挺好用的～～～～

lihuasoft 2006-11-22

打赏
举报

回复

要是双向传的话，就是用variant。别的好象不能用。而开放数据源则不安全

转换OLEVariant和TMemoryStrea

随便说说最近项目中的三层架构吧。讲点实际的东西。我最讨厌空讲道理。网上讲道理的太多了，不喜欢举例子。大多数文章中都或多或少的讲到了三层架构。表示层，业务层，数据层。又把业务层再细分，分为外观服务层，主业务服务，及数据库库服务层。今天主要讨论一下业务层吧。举个最简单的例子。客户端获取数据。业务层要与表示层尽量解藕，我的方法是：首先我们在中间层TLB_中定义一个接口 IBusinessService, 定义一个方法。getvoList，我要得到一个VO的列表， VO即ValueObject, 例如：TValueObject= class(TPersistent) private b_insertFlag :Boolean; b_updateFlag :Boolean; b_deleteFlag :Boolean; d_rowVersion :double; procedure setInsertFlag(pInsertFlag :Boolean); function getInsertFlag: Boolean; procedure setUpdateFlag(pUpdateFlag :Boolean); function getUpdateFlag: Boolean; procedure setDeleteFlag(pDeleteFlag :Boolean); function getDeleteFlag: Boolean; procedure setRowVersion(pRowVersion :double); function getRowVersion:double; protected function GetOLEData: OleVariant; virtual; procedure SetOLEData(const Value: OleVariant); virtual; published property bInsertFlag: Boolean read getInsertFlag write setInsertFlag; property bUpdateFlag: Boolean read getUpdateFlag write setUpdateFlag; property bDeleteFlag: Boolean read getDeleteFlag write setDeleteFlag; property dRowVersion: double read getRowVersion write setRowVersion; property POLEData:OleVariant read GetOLEData write SetOLEData; end;TUserVO = class(TValueObject) private id: string; name: string; password: string; 。。。。。。。。。。 VO的列表：TValueObjectList = Class(TObjectList) private ValueObject: TValueObject; ClassName: TClass; procedure setClassName(pTmpClsName :TClass); function getClassName: TClass; procedure setValueObject(pTmpVO :TValueObject); function getValueObject: TValueObject; protected function GetOLEData: OleVariant; virtual; procedure SetOLEData(const Value: OleVariant); virtual; published function AddItem(index: integer; AObject: TObject ):Integer; virtual; function GetItem(index, itemid: integer ): TObject; virtual; function CountItem:Integer; virtual; public constructor Create; virtual; destructor Destroy; override; procedure AfterConstruction; override; property PClassName: TClass read getClassName write setClassName; property POLEData: Ole

DBX 三层 CobblerDemo, //公共的查询 function GetSearchData(const SqlStr:string;var V1:OleVariant):Integer; function ExecSQLStr(const SqlStr:string):Integer; //返回单表数据集 function GetSimpleData(const SqlStr:string;var V1:OleVariant):Integer; //主从巢状 function GetMasterDetailData(const MasterSQL,DetailSQL,KeyFields:string;var V:OleVariant):Integer; //保存单表 function SaveSimpleData(const SimpleTable:string;const SaveData:OleVariant):Integer; //保存主从数据 function SaveMasterDetailData(const MasterTable,DetailTable,KeyFields:string;const SaveData:OleVariant):Integer;

本实例源码主要是讲了TCP/remote的分布式开发效果还是不错了改变了以往COM+的实施麻烦的问题适合三层应用程序的开发 1.系统服务端开发采用delphi2007及remobjects SDK 最新版本。 2.客户端的数据访问已经封装在Dll目录下的DllDataAccessObject.dll中，所以新用户开发时不需要再安装delphi2007及remobjects SDK ，其他版本也可以。 3.用户开发时只要写个SQL就可以进行远程传输数据。 4.ERP模型使用DELPHI7开发，用户在开发时需引用commom目录下的UnitRemoteLibary单元，集成了远程REMOTE访问数据库服务端已经考虑了事务，所以不用担心。 5.请仔细研究源码吧...谢谢！例：查询数据 procedure TMainForm.Button1Click(Sender: TObject); var vDatas:OleVariant; begin FRServerAddress:=Edit1.Text; Fiport:=StrToInt(Edit2.Text); vDatas:='select * from tbspda'; if Getdatas(FRServerAddress,Fiport,vDatas) then Cds.Data:=vDatas else ShowVarError(Handle,vDatas,'查询时出错!'); end; 执行数据： procedure TMainForm.Button2Click(Sender: TObject); var vDatas:OleVariant; begin FRServerAddress:=Edit1.Text; Fiport:=StrToInt(Edit2.Text); vDatas:='insert into tbdev(mycode)values(''100'')'; if not Setdatas(FRServerAddress,Fiport,vDatas) then ShowVarError(Handle,vDatas,'保存失败!'); end;

Delphi 打开已有的word文档，如果你的电脑上安装有Word，则会通过Word打开用户选择的文档。其实就是在Delphi窗口中选择你要打开的Word文档，用户确定后，Delphi会调用安装好的word打开该文件，有兴趣参考以下代码：　　var 　　 MSWord:olevariant; 　　begin 　　 MSWord := CreateOLEObject('Word.Application'); 　　 MSWord.Documents.Open (f,false); 　　 MSWord.Visible := 1; 　　end;

5,388

社区成员

262,730

社区内容

发帖

与我相关

我的任务

社区管理员

加入社区

近7日
近30日
至今

加载中

查看更多榜单

社区公告

暂无公告

试试用AI创作助手写篇文章吧

+ 用AI写文章