На сайте 100500 рефератов в 150 категориях	Искать реферат
Рефераты на 5 с плюсом С нашим сайтом написать реферат проще простого

Использование TCPIP протокола для обмена информацией в сети

Категория: Компьютерные науки

версия для печати

Страница: [1] [2] [3] [4] [5] [6] [7] [8]

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;

Страница: [1] [2] [3] [4] [5] [6] [7] [8]

версия для печати