TTcpServer (C++)

Description

This example demonstrates the use of TTcpServer to receive a buffer (in this case, a stream) and to process it. The example can be used with the example for TTcpClientSendStream_(C++). To build this example, create a VCL Forms Application. Add three buttons (Connect, Disconnect, Clear), a memo box, and a TTcpServer from the Tool Palette.

Code

Define the default port for the communication.

#define DEFAULT_PORT 2501//The default port for the communication

Add the code below to the OnCreate event handler of the form.

__fastcall TForm3::TForm3(TComponent* Owner)
        : TForm(Owner)
{
        Memo1->Lines->Clear();
 
        //Server initialization
        TcpServer1 = new TTcpServer(this);
        TcpServer1->OnAccept = TcpServer1Accept;
        TcpServer1->OnCreateHandle = TcpServer1CreateHandle;
        TcpServer1->OnDestroyHandle = TcpServer1DestroyHandle;
 
}

Add the code below to the OnAccept event handler of the TTcpServer.

void __fastcall TForm3::TcpServer1Accept(TObject *Sender, TCustomIpClient *ClientSocket)
{
        byte a[10];
        ClientSocket->ReceiveBuf(a,10,0);
        TDateTime now = TDateTime::CurrentDateTime();
        Memo1->Lines->Add(DateTimeToStr(now) + " Data added with " +
                                                IntToStr(a[9]));
        for (int i=0; i < 9; i++)
        {
                Memo1->Lines->Add(IntToStr(a[i] + a[9]));
        }
        Memo1->Lines->Add("--------------------");
 
}

Add the code below to the OnClick event of the 'Connect' button.

void __fastcall TForm3::Button1Click(TObject *Sender)
{
        TcpServer1->LocalPort = DEFAULT_PORT;
        TcpServer1->Active = true;
}

Add the code below to the OnClick event of the 'Disconnect' button.

void __fastcall TForm3::Button2Click(TObject *Sender)
{
        TcpServer1->Active = false;
}

Add the code below to the OnClick event of the 'Clear' button.

void __fastcall TForm3::Button3Click(TObject *Sender)
{
        Memo1->Lines->Clear();
}

Add the code below to the OnCreateHandle event handler of the TTcpServer.

void __fastcall TForm3::TcpServer1CreateHandle(TObject *Sender)
{
        TDateTime now = TDateTime::CurrentDateTime();
        Memo1->Lines->Add(DateTimeToStr(now) + " Server started ");
}

Add the code below to the OnDestroyHandle event handler of the TTcpServer.

void __fastcall TForm3::TcpServer1DestroyHandle(TObject *Sender)
{
        TDateTime now = TDateTime::CurrentDateTime();
        if(this->Memo1)
        {
                Memo1->Lines->Add(DateTimeToStr(now) + " Server stopped ");
    }
}

Uses

• Web.Win.Sockets.TTcpServer ( fr | de | ja )
• Web.Win.Sockets.TBaseSocket.ReceiveBuf ( fr | de | ja )
• Web.Win.Sockets.TCustomTcpServer.OnAccept ( fr | de | ja )
• Web.Win.Sockets.TBaseSocket.OnCreateHandle ( fr | de | ja )
• Web.Win.Sockets.TBaseSocket.OnDestroyHandle ( fr | de | ja )
• Web.Win.Sockets.TIpSocket.LocalPort ( fr | de | ja )