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;

[hsabrina]

buf <-structobj
size->sizeof(struct)

[controstr]

楼上正解

[pp616]

sdk:
send or sendto
buf填结构体指针，len结构体大小。

TCustomWinSocket::SendBuf
buf填结构体指针 Count填结构体大小

[sbkopoky]

有一个香港和悦网络电话的源文件 ,有兴趣妨进入我的BLOG看看