高手帮我看看错在那儿了? ( 积分: 50 )

我在clientsocket读取收到的消息,却显示是空白找了好久也没发现问题在那儿?和位高手帮我瞧瞧!
procedure TForm1.ClientSocket1Read(Sender: TObject;
Socket: TCustomWinSocket);
var
PRecv:TCTPP_Recv;
CmdID:Integer;
msglh:TCTPP_Login_Resp;
Len:Integer;
temp:string;
begin
FillChar(PRecv,Sizeof(TCTPP_Recv),0);
Len:=Socket.ReceiveLength;
Socket.ReceiveBuf(PRecv,Len);
CmdID:=ntohl(PRecv.CommandID);
temp:=precv.dat;
sendmsgfm.Memo1.Lines.Add(temp);

我在clientsocket读取收到的消息,却显示是空白找了好久也没发现问题在那儿?和位高手帮我瞧瞧!
procedure TForm1.ClientSocket1Read(Sender: TObject;
Socket: TCustomWinSocket);
var
PRecv:TCTPP_Recv;
CmdID:Integer;
msglh:TCTPP_Login_Resp;
Len:Integer;
temp:string;
begin
FillChar(PRecv,Sizeof(TCTPP_Recv),0);
Len:=Socket.ReceiveLength;
Socket.ReceiveBuf(PRecv,Len);
CmdID:=ntohl(PRecv.CommandID);
temp:=precv.dat;
sendmsgfm.Memo1.Lines.Add(temp);

TCTPP_Recv这类型有问题
把这类型拿来看看

TCTPP_Recv你这个是指针类型吧，那肯定出问题。