void __fastcall TForm1::HttpServerClientConnect(TObject *Sender,
TCustomWinSocket *Socket)
{
AnsiString aRequest, aResponse;
aRequest = Socket->ReceiveText();
if(aRequest.Pos("Status.htm") > 0)
{
aResponse = "StatusStatus :";
aResponse += (MyServer->Active) ? "Running" : "Stopped";
if(MyServer->Active)
{
aResponse += Format("
Port: %d
%d Users Connected",
[ic:ccc] OPENARRAY(TVarRec,(MyServer->Port,
MyServer->Socket->ActiveConnections)));
}
aResponse += "";
}
else
{
if(aRequest.Pos("Start.htm") > 0)
{
if(!MyServer->Active)
StartButton->Click();
aResponse = "StartStarted";
}
else
{
if(aRequest.Pos("Users.htm") > 0)
{
AnsiString aHead;
aResponse = "";
aHead = "";
for(int i=0; i< ConnectedList->Count; i++)
{
aResponse += ConnectedList->Strings[i] + "<BR>";
}
aHead += ConnectedList->CommaText;
aHead += "";
if(aResponse.Length() == 0)
aResponse = "No Users Connected";
aResponse = "" + aHead +
"User List
" +
aResponse +
"";
}
else
{
aResponse = "Invalid Request";
}
}
}
Socket->SendText(aResponse);
Socket->Close();
}