socket如何发送结构体数据:::

[lxj_com2006]

socket如何发送结构体数据:::

如我定义了一个结构体,怎么通过socket发送了????

TChargeSet = record
Name : string; { 收费方式 }
FreeTime :Integer; { 免费时间,分钟 }
SetTime :Integer; { 时间单位,分钟 }
SetCost :Single; { 收费金额,元 }
HintStr :string; { 收费提示 }
end;

TChargeMsg = record
IpAddress :string;
CardNo :string;
Flag :Integer; {状态字}
OpenTime :TDatetime;
ChargeTime :TDatetime; {下一次收费时间}
UseTime :Integer;
ChargeSet :TChargeSet; {收费规则}
Cost :Single; {总收费}
Blance :Single; {余额}
NewOpen :Integer;
Memos :string;
end;

var
TChargeMsg :TChargeMsg;

[Reverse.King]

0分0解答