简单问题，请教下，客户端有两个表要向服务端发数据，服务端有一个表有新数据要向客户端发数据。用socket，结构要怎么做啊，？ ( 积分: 100 )

简单问题，请教下，客户端有两个表要向服务端发数据，服务端有一个表有新数据要向客户端发数据。用socket，结构要怎么做啊，？

简单问题，请教下，客户端有两个表要向服务端发数据，服务端有一个表有新数据要向客户端发数据。用socket，结构要怎么做啊，？

这个问题可不简单。。。...............
你说的是三层结构吧？如果不是三层就不用Socket了。
不知道你用的是什么数据库？
三层：(告诉你最简单的方法)
问题1：服务端有一个表有新数据要向客户端发数据
服务器端：Databases+Query+DataSetProvider
客户端：Socket+Clientdataset+Datasource
传递SQL语句(select ....)就行了
问题2:客户端有两个表要向服务端发数据？：
同问题1，不过传递的是一个Insert....或者update.....语句就行了
其实详细的复杂着呢！！！慢慢研究吧

TForm1 = class(tform)
procedure onConnectionError(Sender:TObject;Socket:TCustomWinSocket;
ErrorEvent:TErrorEvent;var errorCode:integer);
//定义在这里，使之成为TNotifyEvent
...
public
private
end;

procedure TForm1.ServerSocket1Accept(Sender: TObject;
Socket: TCustomWinSocket);
var
i:integer;
begin
socket.onErrorEvent := onConnectionError;
...
end;

procedure TForm1.onConnectionError(Sender:TObject;Socket:TCustomWinSocket;
ErrorEvent:TErrorEvent;var errorCode:integer);
begin
//Error Handling
end;