> procedure FormDestroy(Sender: TObject);
> procedure Button1Click(Sender: TObject);
> procedure Timer1Timer(Sender: TObject);
> procedure ClientConnect(Sender: TObject; Socket: TCustomWinSocket);
> procedure ClientDisconnect(Sender: TObject; Socket: TCustomWinSocket);
>private
> { Private declarations }
>public
> { Public declarations }
>end;
>var
> Form1: TForm1;
>implementation
>{$R *.dfm}
>procedure TForm1.Button2Click(Sender: TObject);
>begin
> Timer1.Enabled:= False;//выключаем таймер
> Client.Close; //закрываем соединение
> Client.Active:= False; //отключаемся от сервера
>end;
>procedure TForm1.FormDestroy(Sender: TObject);
>begin
> Client.Close; //закрываем соединение
> Client.Active:=False; //отключаемся от сервера
>end;
>procedure TForm1.Button1Click(Sender: TObject);
>begin
> Client.Port:= StrToInt(port.Text); //считываем порт
> Сlient.Address:= ip.text; //считываем ip-адрес сервера
> Client.Active:= True; //соединяемся
> Timer1.Enabled:= True; //включаем таймер
>end;
>procedure TForm1.Timer1Timer(Sender: TObject);
>var
> cur:TPoint; //хранит координаты указателя мыши
>begin
> GetCursorPos(cur); //узнаем координаты указателя мыши
> //отправляем данные на сервер
> Client.Socket.SendText(IntToStr(cur.X) +'_' + IntToStr(cur.Y));
>end;
>procedure TForm1.ClientConnect(Sender: TObject; Socket: TCustomWinSocket);
>begin
> ShowMessage('Connected!'); //показать сообщение
>end;
>procedure TForml.ClientDisconnect(Sender: TObject; Socket: TCustomWinSocket);
>begin
> ShowMessage('Disconnected!'); //сообщение при отсоединении
>end;
>end.
⊚ Все файлы проекта и исполняемый файл клиентской программы находятся на прилагаемом к книге компакт-диске в папке Chapter_16\Client, а файлы проекта и исполняемый файл серверной программы — в папке Chapter_16\Server.
