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

 Refresh;
 end;
end;

procedure TCurveForm.FormPaint(Sender: TObject);
var
 I: Integer;
 L: Extended;
begin
 // Сначала выводим фон
 Canvas.Draw(0, 0, FBack);
 if FNewLine then
 begin
 // Если программа находится в режиме рисования резиновой прямой,
// рисуем прямую от точки FCurve[0] до FCurve[3]. Значение FCurve[1]
 // и FCurve[2] на данном этапе игнорируется
 if FDragPoint = dpFirst then
 begin
 FCounter := 0;
 L :=
 Sqrt(Sqr(FCurve[0].X - FCurve[3].X) +
 Sqr(FCurve[0].Y - FCurve[3].Y));
 if L > 0 then
 begin
 FDX := Round(4 * (FCurve[0].Y -FCurve[3].Y) / L);
 FDY := Round(4 * (FCurve[3].X - FCurve[0].X) / L);
 LineDDA(FCurve[0].X, FCurve[0].Y, FCurve[3].X, FCurve[3].Y,
 @LineDrawFunc, Integer(Canvas));
 end;
 end;
 end
 else
 begin
 // Если есть незавершённая кривая и установлен режим рисования
 // по опорным точкам, выводим отрезки, показывающие касательные
 // к кривой в её начале и конце
 if RGroupDrawMethod.ItemIndex = 0 then
 begin
 Canvas.Pen.Style := psDot;
 Canvas.Pen.Width := 3;
 Canvas.Pen.Color := clDkGrey;
 Canvas.MoveTo(FCurve[0].X, FCurve[0].Y);
 Canvas.LineTo(FCurve[1].X, FCurve[1].Y);
 Canvas.MoveTo(FCurve[3].X, FCurve[3].Y);
 Canvas.LineTo(FCurve[2].X, FCurve[2].Y);
 end;
 // Рисуем красные квадраты, показывающие точки, которые пользователь
 // может перемещать
 Canvas.Pen.Style := psSolid;
 Canvas.Pen.Width := 1;
 Canvas.Pen.Color := clRed;
 Canvas.Brush.Style := bsClear;
 for I := 0 to 3 do
 Canvas.Rectangle(FCurve[I].X - RectSize, FCurve[I].Y - RectSize,
 FCurve[I].X + RectSize + 1, FCurve[I].Y + RectSize + 1);
 end;
end;

// функция PtNearPt возвращает True, если точка с координатами (X1, Y1)
// удалена от точки Pt по каждой из координат не более чем на RectSize
function TCurveForm.PtNearPt(X1, Yl: Integer; const Pt: TPoint): Boolean;
begin
 Result :=
 (X1 >= Pt.X - RectSize) and (X1 <= Pt.X + RectSize) and
 (Y1 >= Pt.Y - RectSize) and (Y1 <= Pt.Y + RectSize);
end;

procedure TCurveForm.BtnEndClick(Sender: TObject);
begin
 if not FNewLine then
 begin
 DrawCurve(FBack.Canvas);
 FNewLine := True;
 Refresh;
 end;
end;

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

Глава 2 Использование сокетов Delphi

Так как большинство современных компьютеров объединены в сети, то и задачи программирования передачи и получения данных по сети возникают часто. Существует множество высокоуровневых средств обмена, но иногда их бывает недостаточно, и тогда приходится использовать самые низкоуровневные средства сетевого программирования — сокеты. Однако существует целый ряд причин, по которым овладеть этой технологией непросто. Во-первых, она сложна сама по себе из-за большого количества возможностей. Во-вторых, существующие библиотеки отягощены совместимостью со старыми версиями, которые, с современной точки зрения, не всегда развивались по правильному пути. В-третьих, у программистов на Delphi возникают дополнительные трудности, связанные как с тем, что сама реализация библиотеки сокетов ориентирована на язык С, так и с тем, что стандартный модуль WinSock почему-то "застрял" на первой версии этой библиотеки, в то время как начиная с Windows NT 4 существует более удобная вторая.

Несмотря на традиционно высокий интерес к сокетам, литературы, в которой бы эта библиотека была детально описана, очень мало. Если не считать книг, где сокеты упоминаются обзорно, автору известна только одна книга, посвященная сокетам в Windows [3]. Но она не имеет никакого отношения к Delphi и не учитывает специфику этого средства разработки. Естественно, что из-за недостатка информации у начинающих программистов часто возникают вопросы, связанные с использованием сокетов в Delphi. В данной главе мы попытаемся ответить на эти вопросы.

Изложение материала ориентировано на человека, который не только не сталкивался с сокетами раньше, но и вообще имеет смутные представления об устройстве и функционировании компьютерных сетей. Поэтому мы будем обзорно рассматривать и общетеоретические темы, которые необходимо знать, чтобы эффективно программировать сетевое взаимодействие, так что никакая предварительная подготовка в этих вопросах от читателя не требуется.

Глава разбита на две части. Первая посвящена стандартным сокетам, а вторая — сокетам Windows. Термины достаточно условны и нуждаются в дополнительном пояснении. Строго говоря, стандартными называются сокеты Беркли (Berkley sockets), разработанные в университете Беркли для системы Unix. Как это ни парадоксально звучит, но сокеты Беркли появились до появления компьютерных сетей. Изначально они предназначались для взаимодействия между процессами в системе и только позже были приспособлены для TCP/IP. Работа с сокетами Беркли сделана максимально похожей на работу с файлами в Unix. В частности, для отправки и получения данных используются те же функции, что и для файлового ввода-вывода.

Сокеты в Windows не полностью совместимы с сокетами Беркли (например, для них предусмотрены специальные функции отправки и получения данных, переопределены некоторые типы данных и т.п.). Но возможности работы с сокетами в Windows можно разделить на две части: то, что укладывается в идеологию сокетов Беркли, хотя и реализовано несколько иначе, и то, что является специфичным для Windows. Ту часть реализации сокетов Windows, которая по функциональности соответствует сокетам Беркли, мы будем называть стандартными сокетами, а сокетами Windows (Windows sockets) — специфичные для Windows расширения.