请问如何用SERVERSOCKET 收发结构体信息？？

Question

procedure TForm1.Timer1Timer(Sender: TObject);
var
  len:Integer;
  Buff:array[0..8000] of byte;
begin   len :=  ServerSocket1.Socket.ReceiveLength;
   FillChar(Buff,SizeOf(Buff),#0);    ServerSocket1.Socket.ReceiveBuf(Buff,Len);
    CopyMemory(@ReceiveMsg,@Buff[0],SizeOf(ReceiveMsg));
   //  ServerSocket1.Socket.ReceiveBuf(ReceiveMsg,sizeof(ReceiveMsg));
   Memo1.Lines.Add(ReceiveMsg.PHSnumber); 
  
我想做一个时间控件一直在接数据，一直出错呀？？
ReceiveMsg 是一个服务端和客户端都定好的结构体。

Answer 1

请参考http://www.delphibbs.com/delphibbs/dispq.asp?lid=3153454