客户数据库数据发送到服务器问题

Question

客户端数据库表的内容使用TCP IP协议 发送到服务器的表中（直接写入） 应用什么方法实现呢？
最好有实例可以参考一下。

Answer 1

客户端根据表字段定义一个结构，取出数据写进这个结构。然后和服务端建立TPC连接，发送这个结构。
服务端接收到数据，进行解码将数据取出来，写输入数据库。

Answer 2

var
  nIndex,SendLength:integer;
  SendBuffer: Array of Byte;
  Mypack: TMypack;//你定义的record结构
begin
  SendLength:= sizeof(TMypack);
  Mypack.name:=delphi;
  Mypack.id:=3;
  SetLength(SendBuffer,SendLength);
  nIndex := 0;
  CopyMemory(@SendBuffer[nIndex], @Mypack, sizeof(TMypack));
  //Inc(nIndex, sizeof(....));如果还有其它数据在些inc
  //最后用你选择的发送方式发送出去
  //如sendto(FUDPSocket.ListenSocket,SendBuffer[0],SendLength,0,@SockAddrIn,sizeof(TSockAddrIn));
end;