Finishing the Client for an Internet Access Control Application

The reading thread listens for any communication from the server. It will wait for commands from the server for as long as the client is connected and then pass any communication on to the synchronization functions for processing. Here is the code:

constructor TReadingThread.Create(AConn: TIdTCPConnection);

begin

FConn := AConn;

inherited Create(False);

end;

procedure TReadingThread.Execute;

begin

while not Terminated and FConn.Connected do

begin

TLog.AddMsg(FConn.IOHandler.ReadLn);

end;

end;

//**********end message sync functions

procedure TForm1.btnExitClick(Sender: TObject);

begin

close;

end;

When the client is connected, the reading thread is activated and set up:

procedure TForm1.tcConnected(Sender: TObject);

begin

rt := TReadingThread.Create(tc);

end;

procedure TForm1.btnDisconClick(Sender: TObject);

begin

tc.Disconnect;

end;

One of the many actions that is carried out when the client connects is implemented here. First, the client sends over its name and IP address. The btnConnect procedure shows how it is done in code:

procedure TForm1.btnConnectClick(Sender: TObject);

begin

tc.Host:='127.0.0.1';

tc.Port:=1150;

with tc do

begin

try

Connect;

Socket.WriteLn(edname.text+':free@plchldr');

//Socket.WriteLn(GetComputername+':free@plchldr');

except on E : Exception do

showmessage('Could not connect to remote host. Check to see if you entered the right IP address');

end;

end;

end;

procedure TForm1.tcDisconnected(Sender: TObject);

begin

if rt <> nil then

begin

rt.Terminate;

rt.WaitFor;

FreeAndNil(rt);

end;

end;

procedure TForm1.oneClick(Sender: TObject);

var

mins:widestring;

begin

mins:='5'; {

form1.Visible:=false;

form2.times:=strtoint(mins);

form2.label1.caption:=mins;

form2.show; }

//wb.Navigate(path);

end;