Описание свойств и методов

Пример

•procedure Button1Click(Sender: TObject);

begin

{Присваиваем свойствам Host и Port нужные значения}

ClientSocket1.Host := Edit1.Text;

ClientSocket1.Port := StrToInt(Edit2.Text);

{Пытаемся открыть сокет и установить соединение}

ClientSocket1.Open;

end;

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

begin

{Как только произошло соединение - закрываем сокет и прерываем связь}

ClientSocket1.Close;

end;

•В форму нужно поместить две кнопки TButton и три TEdit. При нажатии на первую кнопку вызывается обработчик события OnClick - Button1Click. Перед этим в первый из TEdit-ов нужно ввести хост-имя, а во второй - порт удаленного компьютера. После установления соединения можно посылать текстовые сообщения, вводя текст в третий TEdit и нажимая вторую кнопку TButton. Чтобы отсоединиться, нужно еще раз нажать первую TButton. Еще нужно добавить TListBox, в который будем помещать принятые и отправленные сообщения.

НЕ ЗАБУДЬТЕ ПОМЕСТИТЬ В ФОРМУ КОМПОНЕНТ TClientSocket!

•procedure Button1Click(Sender: TObject);

begin

{Если соединение уже установлено - прерываем его.} if ClientSocket1.Active then begin

ClientSocket1.Close;

Exit; {...и выходим из обработчика}

end;

{Присваиваем свойствам Host и Port нужные значения}

ClientSocket1.Host := Edit1.Text;

ClientSocket1.Port := StrToInt(Edit2.Text);

{Пытаемся открыть сокет и установить соединение}

ClientSocket1.Open;

end;

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

begin

{Как только произошло соединение - посылаем приветствие}

Socket.SendText('Hello!'); ListBox1.Items.Add('< Hello!'); end;

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

begin

{Если пришло сообщение - добавляем его в ListBox}

ListBox1.Items.Add('> '+Socket.ReceiveText); end;

procedure Button2Click(Sender: TObject); begin

{Нажата кнопка - посылаем текст из третьего TEdit}

ClientSocket1.Socket.SendText(Edit3.Text); ListBox1.Items.Add('< '+Edit3.Text);

end;

procedure ClientSocket1Connect(Sender: TObject; Socket: TCustomWinSocket); var c: Char;

beginMySocket: TWinSocketStream;

{Как только произошло соединение - создаем поток и ассоциируем его с сокетом (60000 - таймаут в мсек)}

MySocket := TWinSocketStream.Create(Socket,60000);

{Оператор WaitForData ждет данных из потока указанное время в мсек (в данном примере - 100) и возвращает True, если получен хотя бы один байт данных, False - если нет никаких данных из потока.}

while not MySocket.WaitForData(100) do Application.ProcessMessages;

{Application.ProcessMessages позволяет Windows перерисовать нужные элементы окна и дает время другим программам. Если бы этого оператора не было и данные бы довольно долго не поступали, то система бы слегка "подвисла".}

MySocket.Read(c,1);

{Оператор Read читает указанное количество байт из потока (в данном примере - 1) в указанную переменную определенного типа (в примере - в переменную c типа Char). Обратите внимание на то, что Read, в отличие от ReadBuffer, не устанавливает строгих ограничений на количество принятой информации. Т.е. Read читает не больше n байтов из потока (где n - указанное число). Эта функция возвращает количество полученных байтов данных.}

MySocket.Write(c,1);

{Оператор Write аналогичен оператору Read, за тем лишь исключением, что Write пишет данные в поток.}

MySocket.Free;

{Не забудем освободить память, выделенную под поток} end;

Сервер сокет

•Сервер, основанный на сокетном протоколе, позволяет обслуживать сразу множество клиентов. Причем, ограничение на их количество Вы можете указать сами (или вообще убрать это ограничение, как это сделано по умолчанию). Для каждого подключенного клиента сервер открывает отдельный сокет, по которому Вы можете обмениваться данными с клиентом. Также отличным решением является создание для каждого подключения отдельного процесса (Thread).

•Определение св-в Port и ServerType - чтобы к серверу могли нормально подключаться клиенты, нужно, чтобы порт, используемый сервером точно совпадал с портом, используемым клиентом (и наоборот). Свойство ServerType определяет тип подключения (подробнее см.ниже);

•Открытие сокета - открытие сокета и указанного порта. Здесь выполняется автоматическое начало ожидания подсоединения клиентов (Listen);

•Подключение клиента и обмен данными с ним - здесь подключается клиент и идет обмен данными с ним. Подробней об этом этапе можно узнать ниже в этой статье и в статье про сокеты (клиентская часть);

•Отключение клиента - Здесь клиент отключается и закрывается его сокетное соединение с сервером;

•Закрытие сервера и сокета - По команде администратора сервер завершает свою работу, закрывая все открытые сокетные каналы и прекращая ожидание подключений клиентов.