struct Deliver
{
byte RecvType;
byte SrcNo[22];
byte TpUid;
byte TpUdhi;
byte Encoded;
word MsgLength;
byte Msg[162];
};struct Result
{
byte RecvType;
unsigned Oid;
unsigned CurrTimes;
byte SendTime[15];
byte SendMode[9];
byte DestNo[22];
byte State;
byte ChargeNo[22];
byte Reserve[111];
};union Receive
{
struct Deliver st_Deliver;
struct Result st_Result;
};unsigned char Buffer[4096];
Receive *rec
rec = (Receive *)Buffer; VC中的类型强制转换,在DELPHI中这条语句应该如何写
{
byte RecvType;
byte SrcNo[22];
byte TpUid;
byte TpUdhi;
byte Encoded;
word MsgLength;
byte Msg[162];
};struct Result
{
byte RecvType;
unsigned Oid;
unsigned CurrTimes;
byte SendTime[15];
byte SendMode[9];
byte DestNo[22];
byte State;
byte ChargeNo[22];
byte Reserve[111];
};union Receive
{
struct Deliver st_Deliver;
struct Result st_Result;
};unsigned char Buffer[4096];
Receive *rec
rec = (Receive *)Buffer; VC中的类型强制转换,在DELPHI中这条语句应该如何写
你看看这样行不行
pReceive = ^Recieve;var
ss:PReceive;
begin
ss := pRevceive(buffer);
ss^.Result.......
end;