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

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;

clientname:string;

IsServer:boolean;

talk:boolean;

public

{ Public declarations }

end;

var

Form1: TForm1;

implementation