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

  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

  begin

   MessageDlg('Ошибка при получении ответа от сервера: '#13#10 +

    GetErrorString, mtError, [mbOK], 0);

   OnDisconnect;

   Exit;

  end;

  // Если порция кончается на #0, ответ прочитан полностью, выходим из

  // цикла. Здесь мы использовали особенность нашего протокола, который

  // запрещает серверу присылать несколько строк подряд, следующая

  // строка будет выслана сервером только после нового запроса от

  // клиента. Если бы протокол допускал отправку сервером нескольких

  // ответов подряд, при чтении очередной порции данных могло бы

  // оказаться, что начало порции принадлежит одной строке, конец -

  // следующей, а признак конца строки нужно искать где-то в середине

  if Buf[BufStart + Portion - 1] = #0 then

  begin

   EditReply.Text := PChar(@Buf[0]);

   Break;

  end;

  Inc(BufStart, BufStep);

 until False;

end;

Реакция на кнопку Отсоединиться совсем простая: нужно разорвать соединение и закрыть сокет (листинг 2.18).

Листинг 2.18. Реакция на нажатие кнопки Отсоединиться

procedure TSimpleClientForm.BtnDisconnectClick(Sender: TObject);

begin

 shutdown(FSocket, SD_BOTH);

 closesocket(FSocket);

 OnDisconnect;

end;