О чём не пишут в книгах по 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;