为什么提示我的TMsgHead undeclare indentifier 呢??procedure Tcommonfrm.SSClientRead(Sender: TObject;
Socket: TCustomWinSocket);
var
msghead:TMsgHead;
mstream:Tmemorystream;
begin
mstream:=Tmemorystream.Create;
mstream.SetSize(socket.receivelength);
mstream.Position:=0;
socket.ReceiveBuf(mstream.Memory^,socket.receivelength);
mstream.Read(msgHead,sizeof(TMsgHead));
case msghead.MsgType of
1: LoginProc(socket,mstream);
3: UserMsgProc(mstream);
end;
mstream.Free;
end;
Socket: TCustomWinSocket);
var
msghead:TMsgHead;
mstream:Tmemorystream;
begin
mstream:=Tmemorystream.Create;
mstream.SetSize(socket.receivelength);
mstream.Position:=0;
socket.ReceiveBuf(mstream.Memory^,socket.receivelength);
mstream.Read(msgHead,sizeof(TMsgHead));
case msghead.MsgType of
1: LoginProc(socket,mstream);
3: UserMsgProc(mstream);
end;
mstream.Free;
end;
解决方案 »
免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货