serverthread.pas

机器人足球赛比赛平台源代码

unit ServerThread;

interface
uses classes, scktcomp, syncobjs, uClass;

type
  TServerThread = class(TThread)
    fRobotServer : TServerSocket;
    fMatch       : TMatchField;
  public
    tipnum : integer;
    constructor Create(RobotServer :TServerSocket; aMatch : TMatchField);
    procedure Execute; override;
  end;

var
  evtReceived : TEvent;
  evtSended   : TEvent;
implementation

{ TServerThread }

constructor TServerThread.Create(RobotServer: TServerSocket; aMatch : TMatchField);
begin
  Inherited Create(false);
  evtReceived := TEvent.Create(nil, false, false, 'RS_received');
  evtSended   := TEvent.Create(nil, false, false, 'RS_sended');
  fRobotServer := RobotServer;
  tipnum := 0;
end;

procedure TServerThread.Execute;
begin
  inherited;
  while 1=1 do
  begin
    if  fRobotServer.Socket.ActiveConnections >=2 then
    begin
      fRobotServer.Socket.Connections[0].SendText('ask');
    end;  
  end;
end;

end.