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

Примечание

События — это объекты синхронизации, использующиеся в системе. Событие может быть взведено и сброшено. С помощью функции WaitForSingleObject можно перевести нить в состояние ожидания до тех пор. пока указанное событие не будет взведено. Подробное рассмотрение объектов синхронизации выходит за рамки нашей книги; они детально описаны, например, в [2].

В принципе, при использовании перекрытого ввода-вывода система может сама взводить указанное программой событие при получении данных почтовым ящиком, но перекрытый ввод-вывод имеет ограниченную поддержку в Windows 9х/МЕ и на почтовые ящики не распространяется. Чтобы приложение могло работать не только в Windows NT/2000/XP, мы не будем применять перекрытый ввод-вывод.

События относятся к именованным объектам, поэтому с их помощью можно синхронизировать разные процессы. В нашем случае первая копия приложения с помощью CreateEvent создает событие, а последующие копии с помощью OpenEvent получают дескриптор этого события и взводят его. чтобы послать сигнал о появлении данных в почтовом ящике. Для обнаружения этого момента в первой копии приложения создается отдельная нить, которая ожидает событие и, дождавшись, посылает главной форме сообщение (эта нить практически не требует процессорного времени, потому что почти все время находится в режиме ожидания, т. е. квант времени планировщик задач ей не выделяет, по крайней мере, проверка наличие данных в главной нити по таймеру отняла бы больше ресурсов). Это сообщение определяется пользователем и берется из диапазона WM_USER, т. к. его широковещательной рассылки не будет. При получении этого сообщения форма выполняет код, приведенный в листинге 1.49.

Листинг 1.49. Реакция формы на поступление данных в почтовый ящик

// Реакция на получение команд от других экземпляров приложения

procedure TDKSViewMainForm.WMCommandArrived(var Message: TMessage);

var

 Letter: string;

begin

 // Переводим приложение на передний план

 GoToForeground;

 // Пока есть команды, читаем их и выполняем

 Letter:= ReadStringFromMailslot;

 while Letter <> '' do

 begin

// Анализируем и выполняем команду.

// Команда "s" не требует никаких действий, кроме перевода

 // приложения на передний план, поэтому здесь мы ее не учитываем

 case Letter[1] of

'e': OpenFile(Copy(Letter, 2, MaxInt), False);

 'v': OpenFile(Copy(Letter, 2, MaxInt), True);

end;

Letter:= ReadStringFronMailslot;

 end;

end;

// Чтение очередного сообщения из почтового ящика

function TDksViewMainForm.ReadStringFromMailslot: string;

var

 MessageSize: DWORD;

begin

 // Получаем размер следующего сообщения в почтовом ящике

 GetMailslotInfo(ServerMailslotHandle, nil, MessageSize, nil, nil);

 // Если сообщения нет, возвращаем пустую строку

 if MessageSize = MAILSLOT_NO_MESSAGE then

 begin

 Result:= '';

 Exit;

 end;

 // Выделяем для сообщения буфер и читаем его в этот буфер

 SetLength(Result, MessageSize);

 ReadFile(ServerMailslotHandle, Result[1], MessageSize, MessageSize, nil);

end;