如何实现远程多个数据传输？

Question

有个客户端和服务端 ，服务端几个 label控件的 caption属性是自定的数值变量要 时时在变
怎么传这几个变量使在客户端的建的几个label控件的caption的属性跟服务器一样？

Answer 1

我是用delphi仿真十字路口，label的caption为累加数 时时在变 怎么把图中的几个性能指标数值传给上位机使上位机可以 并用label的caption显示出来 

Answer 2

//定义发送和接收个包
type
  Pack = Packed Record
    Caption1,
    Caption2,
    Caption3: String[256];
  end;//Client发送 Button事件
var
  SendPack: Pack;
begin
  SendPack.Caption1 := Label1.Caption;
  SendPack.Caption2 := Label2.Caption;
  SendPack.Caption3 := Label3.Caption;
  ClientSocket.Socket.SendBuf(SendPack, SizeOf(SendPack));
end;//Server接收 ServerSocketRead事件
var
  RecePack: Pack;
begin
  Socket.ReceiveBuf(RecePack, Socket.ReceiveLength);
  Label1.Caption := RecePack.Caption1;
  Label2.Caption := RecePack.Caption2;
  Label3.Caption := RecePack.Caption3;
end;