А. Григорьев - О чём не пишут в книгах по Delphi

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

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, ответ прочитан полностью, выходим из

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

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

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