Class TForm3 (unit Unit3)

Inherits from

TForm

Constructors



Functions

procedure AddSocket(fSocket: TClientSocket);


procedure AddSocketToGarbage(fSocket: TClientSocket);

Prevents flickering

procedure BroadcastMessages;


procedure FormCreate(Sender: TObject);

The above demonstrates how to utilize the DoGetHost functions in your application.

procedure FormDestroy(Sender: TObject);


procedure Listen1Click(Sender: TObject);


procedure OnIdle(Sender: TObject; var Done: Boolean);


procedure PortNumber1Click(Sender: TObject);

Listening

Properties

Events

Variables

Listen1 : TMenuItem;


ListView1 : TListView;


MainMenu1 : TMainMenu;


m_GarbageList : TList;


m_MessageList : TStringList;


m_ServerSocket : TServerSocket;

Public declarations

m_strBuff : Array[0..2047] of Char;


PortNumber1 : TMenuItem;


Server1 : TMenuItem;


StatusBar1 : TStatusBar;



Constructors


Functions


procedure AddSocket(fSocket: TClientSocket);


procedure AddSocketToGarbage(fSocket: TClientSocket);

Prevents flickering


procedure BroadcastMessages;


procedure FormCreate(Sender: TObject);

The above demonstrates how to utilize the DoGetHost functions in your application. You can provide the string, but in this case, we want the location of the socket itself so we provide its own IPAddress.


procedure FormDestroy(Sender: TObject);


procedure Listen1Click(Sender: TObject);


procedure OnIdle(Sender: TObject; var Done: Boolean);


procedure PortNumber1Click(Sender: TObject);

Listening


Properties


Events


Variables


Listen1 : TMenuItem;


ListView1 : TListView;


MainMenu1 : TMainMenu;


m_GarbageList : TList;


m_MessageList : TStringList;


m_ServerSocket : TServerSocket;

Public declarations


m_strBuff : Array[0..2047] of Char;


PortNumber1 : TMenuItem;


Server1 : TMenuItem;


StatusBar1 : TStatusBar;