Використання TCPIP протоколу для обміну інформацією в мережі, Детальна інформація

const maxmemolines=20;

type

TForm1 = class(TForm)

Memo1: TMemo;

Memo2: TMemo;

ClientSocket1: TClientSocket;

ServerSocket1: TServerSocket;

SpeedButton1: TSpeedButton;

StatusBar1: TStatusBar;

procedure Form1Create(Sender: TObject);

procedure ServerSocket1ClientConnect(Sender: TObject;

Socket: TCustomWinSocket);

procedure Form1Close(Sender: TObject; var Action: TCloseAction);

procedure ServerSocket1ClientRead(Sender: TObject;

Socket: TCustomWinSocket);

procedure SpeedButton1Click(Sender: TObject);

procedure ClientSocket1Connect(Sender: TObject;

Socket: TCustomWinSocket);

procedure ClientSocket1Read(Sender: TObject; Socket: TCustomWinSocket);

procedure Memo2KeyDown(Sender: TObject; var Key: Word;

Shift: TShiftState);

procedure ClientSocket1Error(Sender: TObject; Socket: TCustomWinSocket;

ErrorEvent: TErrorEvent; var ErrorCode: Integer);

procedure ClientSocket1Disconnect(Sender: TObject;

Socket: TCustomWinSocket);

procedure Memo1MouseDown(Sender: TObject; Button: TMouseButton;

Shift: TShiftState; X, Y: Integer);

private

{ Private declarations }

server:string;