如题,在线等待。
以下是在DLL中接收线程中的代码
procedure TRecThread.Execute;
begin
  FreeOnTerminate:=true;
  while not terminated do
  begin
      try
        DMFrm.sTCPClient.CheckForDisconnect(true,False);
        DMFrm.sTCPClient.ReadBuffer(SeatSendMsg, SizeOf(SeatSendMsg));
        Synchronize(RecData);
      except
        DMFrm.sTCPClient.DisconnectSocket;
        Terminate;
      end;
  end;
end;