Type
AB=array of byte;
Envelop=record
ProtocolSap: Byte;
Reserved: Byte;
MessageLength: Word;
buf: AB;
var
Ps:Envelop你的messagelength是表示的长度那就好了
F:Tfilesream;
写一条数据小例
F.write(Ps.ProtocolSap,1)
F.write(Ps.Reserved,1)
F.write(Ps.MessageLength,2);
F.write(Ps.buf,MessageLength);
就行了,读的时候反过来就行了,方法也一样
AB=array of byte;
Envelop=record
ProtocolSap: Byte;
Reserved: Byte;
MessageLength: Word;
buf: AB;
var
Ps:Envelop你的messagelength是表示的长度那就好了
F:Tfilesream;
写一条数据小例
F.write(Ps.ProtocolSap,1)
F.write(Ps.Reserved,1)
F.write(Ps.MessageLength,2);
F.write(Ps.buf,MessageLength);
就行了,读的时候反过来就行了,方法也一样
解决方案 »
免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货