| Class TForm1 (unit TCPServerUnit) |
TForm
| Constructors |
| Functions |
procedure Button1Click(Sender: TObject);
procedure Button2Click(Sender: TObject);
procedure Button3Click(Sender: TObject);
procedure Edit1Change(Sender: TObject);
procedure Edit3Exit(Sender: TObject);
procedure FormCreate(Sender: TObject);
procedure FormDestroy(Sender: TObject);
procedure TTY(Msg: string);
procedure TCPServer1Accept(Sender: TObject; Socket: TSocket);
procedure TCPServer1Close(Sender: TObject; Socket: TSocket);
procedure TCPServer1Data(Sender: TObject; Socket: TSocket);
procedure TCPServer1Error(Sender: TObject; Error: integer; Msg: string);| Properties |
| Events |
| Variables |
Button1 : TButton;
Button2 : TButton;
Button3 : TButton;
Edit1 : TEdit;
Edit2 : TEdit;
Edit3 : TEdit;
Label1 : TLabel;
Label2 : TLabel;
Label3 : TLabel;
Memo1 : TMemo;
StatusBar1 : TStatusBar;
UpDown1 : TUpDown;
TCPServer1 : TTCPServer;| Constructors |
| Functions |
procedure Button1Click(Sender: TObject);
procedure Button2Click(Sender: TObject);
procedure Button3Click(Sender: TObject);
procedure Edit1Change(Sender: TObject);
procedure Edit3Exit(Sender: TObject);
procedure FormCreate(Sender: TObject);
procedure FormDestroy(Sender: TObject);
procedure TTY(Msg: string);Public declarations
procedure TCPServer1Accept(Sender: TObject; Socket: TSocket);
procedure TCPServer1Close(Sender: TObject; Socket: TSocket);
procedure TCPServer1Data(Sender: TObject; Socket: TSocket);
procedure TCPServer1Error(Sender: TObject; Error: integer; Msg: string);| Properties |
| Events |
| Variables |
Button1 : TButton;
Button2 : TButton;
Button3 : TButton;
Edit1 : TEdit;
Edit2 : TEdit;
Edit3 : TEdit;
Label1 : TLabel;
Label2 : TLabel;
Label3 : TLabel;
Memo1 : TMemo;
StatusBar1 : TStatusBar;
UpDown1 : TUpDown;
TCPServer1 : TTCPServer;Private declarations