|
How socket sends structure data :::
If I define a structure, how can I send it through a socket ????
TChargeSet = record
Name: string; {charging method}
FreeTime: Integer; {free time, minutes}
SetTime: Integer; {time unit, minute}
SetCost: Single; {charge amount, yuan}
HintStr: string; {Tips for charging}
end;
TChargeMsg = record
IpAddress: string;
CardNo: string;
Flag: Integer; {status word}
OpenTime: TDatetime;
ChargeTime: TDatetime; {Next charge time}
UseTime: Integer;
ChargeSet: TChargeSet; {Charging Rules}
Cost: Single; {Total Charge}
Blance: Single; {balance}
NewOpen: Integer;
Memos: string;
end;
var
TChargeMsg: TChargeMsg; |
|