| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

Обработка сообщений.

Alexander ©   (2002-10-22 11:29:00) 

В VCL я писал так:

private
procedure WM_SpoolerStatus(var Msg : TWMSPOOLERSTATUS); message WM_SPOOLERSTATUS;

и обрабатывал это сообщение (Win98)

сейчас пишу так:

function TFormMain.frmMainMessage(var Msg: tagMSG; var Rslt: Integer): Boolean;
begin
Result := False;
if (Msg.message = WM_SPOOLERSTATUS) then
begin
Form.Caption := "OK";
end;
end;

но я даже не получаю это сообщение. В чём может быть дело?

---

Alexander   (2002-10-28 12:37:00) [1]

А какое это имеет значение?
Задание на печать может послать любое приложение, а система шлёт всем окнам сообщение о посановке этого задания в очередь.
frmMainMessage() нормально принимает это сообщение, а вот в потоке не получается!
Или придётся создавать форму внутри потока?

---

Vladimir Kladov   (2002-10-28 10:52:00) [2]

А это тот поток, который отправил задание на печать?

---

Alexander   (2002-10-24 15:53:00) [3]

тогда почему такой код работает:

function TFormMain.frmMainMessage(var Msg: tagMSG; var Rslt: Integer): Boolean;
begin
Result := False;
if (Msg.message = WM_SPOOLERSTATUS) then
Form.Caption := Form.Caption + "+";
end;

а такой нет:

hThread := CreateThread(nil, 0, @NotificationThread, @ThreadParams, 0, ThreadID);

function NotificationThread(P: Pointer): Cardinal; stdcall;
...
begin
...
while GetMessage(Msg, 0, 0, 0) do
if (Msg.message = WM_SPOOLERSTATUS) then
...
end;


---

Vladimir Kladov   (2002-10-24 15:40:00) [4]

Почему нет? Можно и скрытое окно сделать. Если нужен hook, то вообще окно не нужно. И вообще, сообщения можно ловить не имея окон. В принципе, сообщения посылаются не окну, а потоку.

---

Alexander   (2002-10-22 16:54:00) [5]

Ещё вопрос - как можно (и можно ли) получать сообщения в сервисе?
Там ведь окна нет.

---

Alexander   (2002-10-22 14:44:00) [6]

Давненько я под 98 не писал - всё заработало, просто я привык для экономии бумаги печатать в файл вместо LPT1, а в 98 такой фокус не прошёл - нужно печатать нормально, чтобы послалось сообщение.

---

Alexander   (2002-10-22 14:07:00) [7]

>Gandalf
Это сообщение работает (посылается) только в Win9x, в WinNT линии это делается через FindFirstPrinterChangeNotification.

---

Gandalf   (2002-10-22 13:32:00) [8]

Код правильный (на мой взгляд), но... незнаю, могу сказать что мне тоже не приходит сообщение (это сообщение) :)
WinXP, D5, KOLnMCK 1.51

---

BorisMor   (2002-10-22 12:59:00) [9]

Где то я это уже читал...

http://delphi.mastak.ru/cgi-bin/forum.pl?look=1&id=1027687023&n=10

---

Наверх