VPF::Ждем сообщения в консольном приложении

yus

Дата 17.3.2008, 19:19 (ссылка)

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

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 27
Регистрация: 1.2.2007
Где: Tomsk

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

Доброго времени суток.
Возник вот такой вопрос.
Как в созданном консольном приложении правильно заставить обрабатывать сообщения.
Например если делается приложение с формой то при его запуске оно работает пока не закроем его.
Стандартное же консольное отработало главную секцию

Код


begin 
.....
end.

и завершила работу.
А как сделать чтоб консольное приложение ждало сообщения например от клавиатуры из сети (сокета) и т.д. Думаю идея ясна.
Спасибо за внимание.

bems

Дата 17.3.2008, 20:07 (ссылка)

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

Загрузка ...

Эксперт

Профиль
Группа: Комодератор
Сообщений: 3400
Регистрация: 5.1.2006

Репутация: 31
Всего: 88

ну сообщение вообще - GetMessage
А конкретные сообщения могут и не посылаться, так как окон программа не создает.
Если нужно просто подождать клавиатуру, то readln smile

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

Обижено школьников: 8

MetalFan

Дата 17.3.2008, 22:09 (ссылка)

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

Загрузка ...

Аццкий Сотона

Профиль
Группа: Комодератор
Сообщений: 3815
Регистрация: 2.10.2006
Где: Moscow

Репутация: 62
Всего: 128

Цитата(yus @ 17.3.2008, 19:19

)

например от клавиатуры из сети

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

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

There are always someone smarter than you...

yus

Дата 18.3.2008, 15:51 (ссылка)

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

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 27
Регистрация: 1.2.2007
Где: Tomsk

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

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

Rrader

Дата 18.3.2008, 16:10 (ссылка)

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

Загрузка ...

Inspired =)

Профиль
Группа: Экс. модератор
Сообщений: 1535
Регистрация: 7.5.2005

Репутация: 70
Всего: 191

Посмотри, может пригодится:

Код


Program MyProgram;

{$APPTYPE CONSOLE}

Uses Windows, Messages;

Var
  Msg: TMsg;

Const
  MY_HOT_KEY = 8001;

Begin
  RegisterHotKey(0, MY_HOT_KEY, MOD_CONTROL + MOD_ALT, VK_F11);
  While GetMessage(Msg, 0, 0, 0) Do
  Begin
    If Msg.Message = WM_HOTKEY Then
      If Msg.WParam = MY_HOT_KEY Then
        MessageBox(GetForegroundWindow, 'Поймали нашу клавишу!', '=)', 0);
    TranslateMessage(Msg);
    DispatchMessage(Msg);
  End; 
End.

Ctrl+Alt+F11 клавиша

Это сообщение отредактировал(а) Rrader - 18.3.2008, 16:12

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

Let's do this quickly!
Rest in peace, Vit!

yus

Дата 18.3.2008, 18:53 (ссылка)

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

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 27
Регистрация: 1.2.2007
Где: Tomsk

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

Спасибо большое я думаю так и сделаю, запущу потоки какие мне нужны, и буду ждать завершение по нажатию клавиши.
PS: Жаль не могу поднимать репутацию постов не хватает ;-)

THandle

Дата 18.3.2008, 19:55 (ссылка)

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

Загрузка ...

Хранитель Клуба
Group Icon

Награды: 1

Профиль
Группа: Админ
Сообщений: 3639
Регистрация: 31.7.2007
Где: Moscow, Dubai

Репутация: 65
Всего: 372

Цитата(yus @ 18.3.2008, 18:53

)

PS: Жаль не могу поднимать репутацию постов не хватает ;-)

Ну это мы сейчас устроим. smile

MetalFan

Дата 18.3.2008, 22:36 (ссылка)

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

Загрузка ...

Аццкий Сотона

Профиль
Группа: Комодератор
Сообщений: 3815
Регистрация: 2.10.2006
Где: Moscow

Репутация: 62
Всего: 128

Rrader, TranslateMessage в твоем коде не имеет смысла, ибо нет доп.обработки WM_CHAR.

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

There are always someone smarter than you...

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