三层中如何在服务器与客户端之间传输自定义的'Record'类型数据的例子

Delphi自定义数据传输

最新推荐文章于 2025-07-23 13:00:10 发布

转载最新推荐文章于 2025-07-23 13:00:10 发布 · 97 阅读

0 ·

CC 4.0 BY-SA版权

原文链接：http://www.cnblogs.com/xieyunc/archive/2009/04/27/9126742.html

文章标签：

#数据库

本文介绍了一种在Delphi中实现服务器与客户端间自定义'Record'类型数据传输的方法。通过定义TARec记录类型，并提供了两种转换函数，实现记录类型与变体之间的相互转换。

博主自写的三层中如何在服务器与客户端之间传输自定义的'Record'类型数据的例子。

效果图如下：

例子源码下载：http://Delphi盒子上还未审核。现在已审核！下载地址为：http://sd.2ccc.com/downloads/simples/database/xieyunc_RDMRecordDemo.rar

csdn已审核了：http://download1.youkuaiyun.com/down3/20070320/20145824710.rar

关键代码：

/*================================================ 单元名称：Comm 单元功能：定义了一个记录类型TARec，这一文件Server和Client中都要引用作者：小宇飞刀(http://xieyunc.blog.163.com/) 修改日期：2007-03-20 13:56:39 ================================================*/ unit Comm; interface uses SysUtils,Variants; type TARec=Record //自定义的记录类型 Name:ShortString; Age:ShortInt; end; function RecordToVariant(value:TARec):OleVariant; //有问题，好象只能传递第一个成员的值 function VariantToRecord(value:OleVariant):TARec; //有问题 function RecordToVariant2(aRec:TARec):OleVariant;//Writed by 小宇飞刀(xieyunc) function VariantToRecord2(vData:OleVariant):TARec;//Writed by 小宇飞刀(xieyunc) implementation // TARec ---> Variant function RecordToVariant(value:TARec):OleVariant; var P:Pointer; ii:Integer; begin ii := sizeof(TARec); Result := VarArrayCreate([0,ii],varByte); P := VarArrayLock(Result); Move(value,P^,sizeof(P)); VarArrayUnlock(Result); end; // OleVariant ----> TARec function VariantToRecord(value:OleVariant):TARec; var P:Pointer; ii:Integer; begin ii := sizeof(TARec); P:= VarArrayLock(value); Move(P^,Result,ii); VarArrayUnlock(value); end; function RecordToVariant2(aRec:TARec):OleVariant;//Writed by 小宇飞刀(xieyunc) begin Result:=VarArrayCreate([0,1],VarVariant); Result[0] := aRec.Name; Result[1] := aRec.Age; end; function VariantToRecord2(vData:OleVariant):TARec;//Writed by 小宇飞刀(xieyunc) begin if VarIsArray(vData) then begin Result.Name := vData[0]; Result.Age := vData[1]; end; end; end.

转载于:https://www.cnblogs.com/xieyunc/archive/2009/04/27/9126742.html