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

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

效果图如下：

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

csdn已审核了：http://download1.csdn.net/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. <div align="left"> <script type="text/javascript"><!-- google_ad_client = "pub-4084631125052197"; /* 468x60, 创建于 09-1-6 */ google_ad_slot = "7437767437"; google_ad_width = 468; google_ad_height = 60; //--> </script> <script type="text/javascript" src="http://pagead2.googlesyndication.com/pagead/show_ads.js"> </script> </div> <div style="float: left;margin: 1px;"> <script type="text/javascript"><!-- google_ad_client = "pub-4084631125052197"; /* 468x15, 创建于 09-4-11 */ google_ad_slot = "4877078008"; google_ad_width = 468; google_ad_height = 15; //--> </script> <script type="text/javascript" src="http://pagead2.googlesyndication.com/pagead/show_ads.js"> </script> </div> <p align="center" class="pageLink"><a title="Page"> <b>1</b>/<b>2</b> </a>   <b>1</b> <a href="/html/database/2009-05/570_2.html">2</a> <a href="/html/database/2009-05/570_2.html">下一页</a> <a href="/html/database/2009-05/570_2.html">尾页</a></p></td> </tr> </table> <div class="ebeb">如果您需转载 三层中如何在服务器与客户端之间传输自定义的'Record'类型数据的例子，请注明来自LinuxGoo.com，其版权归原作者所有。请广大网友留言时遵纪守法，使用文明用语。如果您在应用中有什么问题，请在下面留言，我们会尽快解答。</div> <table border="0" align="center" cellpadding="0" cellspacing="8"> <tr> <td><table border="0" align="center" cellpadding="0" cellspacing="0" class="digg"> <tr> <td class="diggnum" id="diggnum"><strong><script type="text/javascript" src="/e/public/ViewClick?classid=3&id=570&down=5"></script></strong></td> </tr> <tr> <td class="diggit"><a href="JavaScript:makeRequest('/e/public/digg?classid=3&id=570&dotop=1&doajax=1&ajaxarea=diggnum','EchoReturnedText','GET','');">来顶一下</a></td> </tr> </table></td> <td><table border="0" align="center" cellpadding="0" cellspacing="0" class="digg"> <tr> <td valign="middle" class="diggnum"><strong><a href="/"><img src="/skin/default/images/back.gif" alt="近回首页" width="12" height="13" border="0" align="absmiddle" /></a></strong></td> </tr> <tr> <td class="diggit"><a href="/">返回首页</a></td> </tr> </table></td> </tr> </table> </td> </tr> </table> <script> function CheckPl(obj) { if(obj.saytext.value=="") { alert("您没什么话要说吗？"); obj.saytext.focus(); return false; } return true; } </script><form action="/e/enews/index.php" method="post" name="saypl" id="saypl" onsubmit="return CheckPl(document.saypl)"> <table width="100%" border="0" cellpadding="0" cellspacing="0" id="plpost"> <tr> <td><table width="100%" border="0" cellpadding="0" cellspacing="0" class="title"> <tr> <td><strong>发表评论</strong></td> <td align="right"><a href="/e/pl?classid=3&id=570">共有<span><script type="text/javascript" src="/e/public/ViewClick?classid=3&id=570&down=2"></script></span>条评论</a></td> </tr> </table> <table width="100%" border="0" cellspacing="10" cellpadding="0"> <tr> <td><table width="100%" border="0" cellpadding="0" cellspacing="2"> <tr> <td width="56%" align="left">用户名: <input name="username" type="text" class="inputText" id="username" value="" size="16" /></td> <td width="44%" align="left">密码: <input name="password" type="password" class="inputText" id="password" value="" size="16" /></td> </tr> <tr> <td align="left">验证码: <input name="key" type="text" class="inputText" size="10" /> <img src="/e/ShowKey?ecms" align="absmiddle" /> </td> <td align="left"><input name="nomember" type="checkbox" id="nomember" value="1" checked="checked" /> 匿名发表</td> </tr> </table> <textarea name="saytext" rows="6" id="saytext">