| Class TFrm_Main (unit Main) |
TForm
| Constructors |
| Functions |
procedure Btn_CloseClick(Sender: TObject);
procedure Btn_OpenClick(Sender: TObject);
procedure Btn_SendClick(Sender: TObject);
procedure Button1Click(Sender: TObject);
procedure FormCreate(Sender: TObject);
procedure Sock1Connect(Sender: TObject);
procedure Sock1Disconnect(Sender: TObject);
procedure Sock1Info(sender: TObject; SocketInfo: TSocketInfo;
Msg: string);
procedure Sock1Read(Sender: TObject; Count: Integer);
procedure Sock1Write(Sender: TObject);| Properties |
| Events |
| Variables |
Btn_Close : TButton;
Btn_Open : TButton;
Btn_Send : TButton;
Button1 : TButton;
Chk_CR : TCheckBox;
Chk_LF : TCheckBox;
Chk_NULL : TCheckBox;
Edit_Host : TEdit;
Edit_Input : TMemo;
Edit_Port : TEdit;
Label1 : TLabel;
Label2 : TLabel;
Memo_Output : TMemo;
Memo_Status : TMemo;
Panel1 : TPanel;
Sock1 : TSock;| Constructors |
| Functions |
procedure Btn_CloseClick(Sender: TObject);
procedure Btn_OpenClick(Sender: TObject);Memo_Output.Text := Memo_Output.Text + Sock1.Text;
procedure Btn_SendClick(Sender: TObject);
procedure Button1Click(Sender: TObject);
procedure FormCreate(Sender: TObject);
procedure Sock1Connect(Sender: TObject);
procedure Sock1Disconnect(Sender: TObject);
procedure Sock1Info(sender: TObject; SocketInfo: TSocketInfo;
Msg: string);
procedure Sock1Read(Sender: TObject; Count: Integer);
procedure Sock1Write(Sender: TObject);| Properties |
| Events |
| Variables |
Btn_Close : TButton;
Btn_Open : TButton;
Btn_Send : TButton;
Button1 : TButton;
Chk_CR : TCheckBox;
Chk_LF : TCheckBox;
Chk_NULL : TCheckBox;
Edit_Host : TEdit;
Edit_Input : TMemo;
Edit_Port : TEdit;
Label1 : TLabel;
Label2 : TLabel;
Memo_Output : TMemo;
Memo_Status : TMemo;
Panel1 : TPanel;
Sock1 : TSock;