Тема сообщения Loop Hangs in Delphi

Question

У меня есть простая программа Delphi, над которой я работаю, в которой я пытаюсь использовать потоки, чтобы отделить функциональность программы от ее графического интерфейса и сохранить гибкий интерфейс пользователя во время более длинных задачи и т. д. В принципе, у меня есть «контроллер» TThread и «вид» TForm. Представление знает дескриптор контроллера, который он использует для отправки сообщений контроллера через PostThreadMessage. В прошлом у меня не было проблем с использованием такой модели для форм, которые не являются основной формой, но по какой-то причине, когда я пытаюсь использовать эту модель для основной формы, цикл сообщений в потоке просто завершается.

Вот мой код для цикла темы сообщений:

procedure TController.Execute; 
var 
    Msg : TMsg; 
begin 
    while not Terminated do begin 
    if (Integer(GetMessage(Msg, hwnd(0), 0, 0)) = -1) then begin 
     Synchronize(Terminate); 
    end; 

    TranslateMessage(Msg); 
    DispatchMessage(Msg); 

    case Msg.message of 
     // ...call different methods based on message 
    end; 
    end; 
end; 

Чтобы настроить контроллер, я делаю это:

Controller := TController.Create(true); // Create suspended 
Controller.FreeOnTerminate := True; 
Controller.Resume; 

Для обработки сообщений основной формой, я попытался с помощью обоих Application.Run и следующий цикл (сразу же после Controller.Resume)

while not Application.Terminated do begin 
    Application.ProcessMessages; 
end; 

Я застрял здесь - любая помощь будет очень признательна.

Answer 1

Я проверил ваш код в основном как есть, и он отлично работал. Попробуйте добавить вызов GetLastError после того, как GetMessage вернет -1, чтобы узнать, в чем проблема.

Не ясно из кода, создаете ли вы окна в потоке контроллера, но если нет, я бы предложил передать -1 вместо 0 в качестве HWND в GetMessage и удалить вызовы TranslateMessage/DispatchMessage, так как последующий оператор case должен обрабатывать любые полученные вами сообщения.

Кроме того, вам не нужно выполнять «Синхронизировать (завершать)» при ошибке. Terminate просто устанавливает для параметра «Terminated» boolean значение true, поэтому вам не нужно его синхронизировать, и вы можете так же легко использовать «Break», чтобы выйти из цикла с тем же эффектом.

Answer 2

Где «конец» для цикла while? Я думаю, что вам не хватает и конца. Так что, возможно (в зависимости от реального кода), вы застряли в бесконечном цикле while not Terminated do в одном заявлении.