VPF::Не получается поймать сообщение

Albinos_x

Дата 2.6.2004, 21:57 (ссылка)

(нет голосов)

Загрузка ...

Evil Skynet

Профиль
Группа: Комодератор
Сообщений: 3288
Регистрация: 28.5.2004
Где: X-6120400 Y-1 4624650

Репутация: 26
Всего: 108

Пытаюсь поймать сообщение винды WM_SpoolerStatus и по событию сделать запись в базу данных, но ничего не происходит.

Привожу часть кода:

Цитата

........
private
{ Private declarations }
procedure WMHotKey(var a:TWMHotKey); message WM_HOTKEY;
procedure WM_SpoolerStatus(var MSG:TWMSpoolerStatus); message WM_SpoolerStatus;
procedure WMTimeChange(var Mes:TWMTimeChange); message WM_TIMECHANGE;

public
{ Public declarations }
end;
.........

procedure TForm1.WM_SpoolerStatus(var MSG:TWMSpoolerStatus);
begin
Table2.Active:=true;
Table2.Append;
Table2.FieldByName('user').AsString:=zvanie;
Table2.FieldByName('data1').AsString:=DateToStr(Date);
Table2.FieldByName('time1').AsString:=TimeToStr(Time);
Table2.FieldByName('Warning').AsString:='10';
Table2.FieldByName('Primech').AsString:=Inttostr(msg.JobsLeft)+' Jobs currenli in spooler';
Table2.Post;
Table2.Active:=false;
end;
......

Остальные сообщения ловлю без проблем.
Помогите разобраться.

Заранее спасибо

Это сообщение отредактировал(а) Albinos_x - 2.6.2004, 21:59

--------------------

"Кто владеет информацией, тот владеет миром"
Уинстон Черчилль

x77

Дата 3.6.2004, 15:26 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Участник Клуба
Сообщений: 1255
Регистрация: 25.3.2002

Репутация: 19
Всего: 22

а печать идёт через стандартный виндовый print manager? на локальном компьютере? прога даже не заходит в процедуру, или заходит, но по каким-то причинам не вставляет запись в таблицу? (не пробовал первой строкой ShowMessage, например, воткнуть)?

--------------------

Я никогда не сопротивлялся искушению, поскольку узнал: что мне
не нравится, то меня не искушает. © Джордж Бернард Шоу (Ирландия)

Albinos_x

Дата 3.6.2004, 17:40 (ссылка)

(нет голосов)

Загрузка ...

Evil Skynet

Профиль
Группа: Комодератор
Сообщений: 3288
Регистрация: 28.5.2004
Где: X-6120400 Y-1 4624650

Репутация: 26
Всего: 108

Согласно справочникам по АПИ функциям это сообщение выдаётся при добавлении/удалении в/из очерендь(и) на печать. В очередь при печати добавляется а вот сообщение не ловится, создаётся впечатление что оно и не посылается.

Насчёт с комбинациями строк я пробовал, не помогает

--------------------

"Кто владеет информацией, тот владеет миром"
Уинстон Черчилль

Albinos_x

Дата 6.6.2004, 23:17 (ссылка)

(нет голосов)

Загрузка ...

Evil Skynet

Профиль
Группа: Комодератор
Сообщений: 3288
Регистрация: 28.5.2004
Где: X-6120400 Y-1 4624650

Репутация: 26
Всего: 108

Кто-нибудь знает в чём проблема???

--------------------

"Кто владеет информацией, тот владеет миром"
Уинстон Черчилль

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: Общие вопросы \| Следующая тема »