如何发送一条记录？(30分)

我想让服务器端将一条记录发送过去？
请问该如何写代码？
type
Trcod = packed record
rtdate: Integer;
rtopen: Cardinal;
rthigh: Cardinal;
rtlow: Cardinal;
rtclose: Cardinal;
end;

help me~

说清楚!!!!!!!!

将数据库的一条记录取出来,然后发送到客户端～

你存在一个表中，将它Select出来不就成了?

情况比较复杂~~ 因为历史数据都保存在二进制文件中,不在数据库里.
服务器端只能先从二进制文件中将记录一条条读出来,
然后再一条条发送给客户端.

你好像问过与此类似的问题，改用三层结构编程，不难的...

to yanghaijun
是的，我现在就卡在远程连接这里了。
我的编程方法如下：

客户端程序负责连接，查询数据库，服务器端程序负责更新数据库以及和客户端通讯。

请问这是不是三层结构啊？

三层应该是 服务器端程序负责连接数据库,客户端只是从服务器程序获取
结果...

那样怎么获取啊？
就比如用Dbgrid吧，还有adotable,datasuroce等等。
服务器端程序能将数据的表显示在Dbgird里？？

你应该把ADOQuery等东西放到服务器端,而在客户端应该是
TSocketConnection(TDCOMConection)/TClientDataSet/TDataSource
DBGrid连接这DataSource就行了...

连接同一个数据表？
然后分别读取？
还是想用触发器？
希望能给你一点点提示。。

to yanghaijun:
大哥，你好像说到我的兴趣上了。能多说几句吗？
TSocketConnection(TDCOMConection)/TClientDataSet/TDataSource
具体什么含义啊。我还有个150分帖啊，如果帮我把这个问题解决了再加两个
150都没问题～

to aware:
对，数据库只有一个表。
但我不会使用触发器，本身不需要，我也没那水平。
我才刚试着用Delphi~

我简单说一下(在此之前,为使SocketConnection正常工作,要在服务器端运行
ScktSrvr.exe /install 以启动Borland Socket Server)
1.建立服务端:
先 File-->New-->Application
然后使此Applcation成为远程数据服务器,如下操作
File-->New-->Other-->Multitier-->Remote Data Module
在接下来的对话框中的 CoClass 输入一个你喜欢的名称如 TestAppServer
其它的默认就行了...
此时你可以看到一个标题为 TestAppServer 的空白窗体
现在,你可以在这里面放入 ADOConnection、ADOQuery、DataSetProvider
建立ADOConnection的连接串，设ADOQuery.Connection:=ADOConnection;
DataSetProvider.DataSet:=ADOQuery;
DataSetProvider.Options 中设 poAllowCommandText为True;
然后编译运行一下吧，服务器完成!
在保存时，还有个空的主窗体，也就是New-->Application时产生的，这是
应用程序服务器运行时的用户界面，你可以在里面写一些提示的信息或其它
2.客户端：
New-->Application
在窗体中放入 SocketConnection、ClientDataSet、DataSoure及DBGrid组件
设置：
SocketConnection的Address为应用程序服务器的地址，本机的用127.0.0.1
然后点击其ServerName属性，稍待一会，会出现你建立的应用程序服务器名称
选择它即可。
ClientDataSet的RemoteServer设为上面的SocketConnection
点击一下ProviderName,一会儿会出现一个下拉列表，比如 DataSetProvider1
选择它即可
最后，设置DataSource的DataSet为此ClientDataSet
DBGrid的DataSource为上面的DataSource
好了,你在ClientDataSet的CommandText中写入一个SQL语句，然后将其Active
属性设为True，你可以看到数据了...

我只能说到这了，许多美妙的特性还得你自己慢慢体会...

多人接受答案了。