| Class TForm3 (unit Unit3) |
TForm
| Constructors |
| Functions |
procedure AddSocket(fSocket: TClientSocket);
procedure AddSocketToGarbage(fSocket: TClientSocket);
procedure BroadcastMessages;
procedure FormCreate(Sender: TObject);
procedure FormDestroy(Sender: TObject);
procedure Listen1Click(Sender: TObject);
procedure OnIdle(Sender: TObject; var Done: Boolean);
procedure PortNumber1Click(Sender: TObject);| Properties |
| Events |
| Variables |
Listen1 : TMenuItem;
ListView1 : TListView;
MainMenu1 : TMainMenu;
m_GarbageList : TList;
m_MessageList : TStringList;
m_ServerSocket : TServerSocket;
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;