老大们，char系统求解!!!!!!!!

Question

程序如下：procedure TAngelActiveFormX.Angel_ClientSocketRead(Sender: TObject;
  Socket: TCustomWinSocket);
var CommBlock:TClientCommBlock;
begin
   If Socket.ReceiveLength>0 Then
    begin
      Try
         Socket.ReceiveBuf(CommBlock,Socket.ReceiveLength); //接收信息
      except on e:ESocketError do
        Begin
            ShowMessage(e.Message);
        End
     End;
end;才发错了，是Socket.ReceiveBuf(CommBlock,Socket.ReceiveLength); 执行完毕就会出错...........备注：
client and server都申明了 
Type TCommBlock = record
....................
end

Answer 1

改成Socket.ReceiveBuf(CommBlock,sizeof(TCommBlock));