О чём не пишут в книгах по Delphi

Рис. 2.4. Главное окно программы SimpleClient

Таким образом, наш клиент будет очень простым: по кнопке Соединиться он будет соединяться с сервером, по кнопке Отправить — отправлять серверу сообщение и дожидаться ответа. Третья кнопка, Отсоединиться, служит для корректного завершения работы с сервером. Рассмотрим эти действия подробнее.

При соединении с сервером клиент должен создать сокет и вызвать функцию connect. Здесь мы не можем создать сокет один раз и потом пользоваться им на протяжении всего времени работы клиента, т.к. после закрытия соединения (неважно, корректного или из-за ошибки) сокет больше нельзя использовать. Поэтому при установлении соединения каждый раз приходится создавать новый сокет. Обработчик нажатия кнопки Соединиться приведен в листинге 2.16.

Листинг 2.16. Обработчик нажатия кнопки Соединиться

procedure TSimpleClientForm.BtnConnectClick(Sender: TObject);
var
 // Адрес сервера
 ServerAddr: TSockAddr;
begin
 // Формируем адрес сервера, к которому нужно подключиться
 FillChar(ServerAddr.sin_zero, SizeOf(ServerAddr.sin_zero), 0);
 ServerAddr.sin_family := AF_INET;
 ServerAddr.sin_addr.S_addr := inet_addr(PChar(EditIPAddress.Text));
 // Для совместимости со старыми версиями Delphi приводим
 // константу INADDR_ANY к типу u_long
 if ServerAddr.sin_addr.S_addr := u_long(INADDR_NONE)then
 begin
 MessageDlg('Синтаксическая ошибка в IР-адресе', mtError, [mbOK], 0);
 Exit;
 end;
 try
 ServerAddr.sin_port := htons(StrToInt(EditPort.Text));
 // Создание сокета
 FSocket := socket(AF_INET, SOCK_STREAM, IPPROTO_TCP);
 if FSocket = INVALID_SOCKET then
 begin
 MessageDlg('Ошибка при создании сокета: '#13#10 +
 GetErrorString, mtError, [mbOK], 0);
 Exit;
 end;
 // Подключение к серверу
 if connect(FSocket, ServerAddr, SizeOf(ServerAddr)) < 0 then
 begin
 MessageDlg('Ошибка при установлении подключения: '#13#10 +
 GetErrorString, mtError, [mbOK], 0);
 // Так как сокет был успешно создан,
 // в случае ошибки его нужно удалить
 closesocket(FSocket);
 FSocket := 0;
 Exit;
 end;
 // Включаем режим "Соединение установлено"
 OnConnect;
 except
 on EConvertError do
 // Это исключение может возникнуть только в одном месте -
 // при вызове StrToInt(EditPort.Text)
MessageDlg('"' + EditPort.Text + '"не является целым числом',
 mtError, [mbOK], 0);
 on ERangeError do
 // Это исключение может возникнуть только в одном месте -
 // при присваивании значения номеру порта
 MessageDlg('Номер порта должен находиться в диапазоне 1-65535',
 mtError, [mbOK], 0);
 end;
end;

Теперь посмотрим, как клиент реагирует на нажатие кнопки Отправить (листинг 2.17). Сама по себе отправка — вещь очень простая: нужно сформировать адрес получателя и вызвать функцию send. Несколько сложнее выполняется чтение данных, потому что, согласно нашему протоколу, клиент не знает, сколько байтов он должен прочитать, и читает до тех пор, пока не встретит символ #0.

Листинг 2.17. Обработчик нажатия кнопки Отправить

procedure TSimpleClientForm.BtnSendClick(Sender: TObject);
const
 // Данные из буфера сокета мы будем читать порциями.
 // константа BufStep определяет размер порции
 BufStep = 10;
var
 Str: string
 StrLen, BufStart, Portion: Integer;
 Buf: array of Char;
begin
 Str := EditStringToSend.Text;
 StrLen := Length(Str);
 if StrLen = 0 then
 begin
 MessageDlg('Протокол не допускает отправки пустых строк',
 mtError, [mbOK], 0);
 Exit;
 end;
 // отправляем серверу длину строки
 if send(FSocket, StrLen, SizeOf(StrLen), 0) < 0 then
 begin
 MessageDlg('Ошибка при отправке данных серверу '#13#10 +
 GetErrorString, mtError, [mbOK], 0);
 OnDisconnect;
 Exit;
 end;
 // Отправляем серверу строку
 if send(FSocket, Str[1], StrLen, 0) < 0 then
 begin
 MessageDlg('Ошибка при отправке данных серверу: '#13#10 +
 GetErrorString, mtError, [mbOK], 0);
 OnDisconnect;
 Exit;
 end;
 BufStart := 0;
 // Цикл получения ответа от сервера
 // завершается, когда получаем посылку, оканчивающуюся на #0
 repeat
 SetLength(Buf, Length(Buf) + BufStep);
 // Читаем очередную порцию ответа от сервера
 Portion := recv(FSocket, Buf(BufStart), BufStep, 0);
 if Portion <= 0 then