Class TFrm_Main (unit Main)

Inherits from

TForm

Constructors



Functions

procedure Btn_CloseClick(Sender: TObject);


procedure Btn_OpenClick(Sender: TObject);

Memo_Output.

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;