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;

[ZyxIp]

SOCKET发送的是一块内存中的数据.至于这数据是什么你自己确定了.
对于结构体中的对象,因为仅是保存了一个指针,所以要将它持久化后才可以发送.

STRING 在DELPHI中也是一个对象.所以你不能直接使用,要定义成字符数组的格式.

[lxj_com2006]

感谢 ZyxIp(绝望中...)

能不能给些代码，实例！

[li_oxen]

tool = packed record
mindex : array [0..3] of char; //Ë÷Òý±àºÅ
mcname : array [0..6] of char; //Ãû³Æ
mcpic : array [0..50] of char; //ĬÈÏͼƬµØÖ·
cx : array [0..3] of char; //¼Ç¼ĬÈÏ¿í¶È
cy : array [0..3] of char; //¼Ç¼ĬÈϸ߶È
cmemo : array [0..3] of char; //¼Ç¼±¸×¢
end;

定义成这样
在sengbuf 就可以

[ZyxIp]

tool = packed record
mindex : array [0..3] of char;
mcname : array [0..6] of char;
end;

楼上这样定义就可以.

[lxj_com2006]

太谢谢了。结贴给分了。