Sever Side Chat Application with Borland Delphi/Indy

The first thing we need to do is create a class that will take the details  of every client that connects to the chat. For now we will only take three, the IP address(which will enable you to ban a client if necessary), Nick name and time/date of connection. We also define procedures to send messages, list connected names and files in the same class. Place the following code just below the ‘type’ heading of the form, making sure that it is above the form declaration.

The code below is responsible for displaying messages. It frees up the main VCL thread. Without it, I found that the server system usually crashes.

Add this line of code above the private section of the form:

constructor Create(AOwner: TComponent);override;

Also, add this under the ‘var’ section of the form:

 names:string;

and add in the implementation section:

uses jpeg;

Our communication protocol commands